( ( <<<<<<<<< I < I I << I ( .-I I < I I <<<<(< < 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

|IMAL hEADEP. TEST (CARDI 
TESTl 



02bC 



3004 





0C1H 


3005 





00 u 


3006 





00 u, 


3007 





001 fi 


300B 





oou 


3009 





00 If 


300A 





0020 


300b 





002 2 


300C 





002'. 


3000 





0026 


3001- 





002 V 


300F 





002 f; 


3010 





0029 


3C11 





002 A 


3012 





002^ 


3013 





002F 


3014 





0033 


3015 





0035 


3016 





003fc 


3017 





00 3 h 


301fl 





003F 


3019 





0040 


301A 





0043. 



301 B 1046 



301C 0049 



301D 





C04D 


30 IE 





005] 


301 1 





0055. 


3020 





0059 


3021 





0050 


3022 





006) 


3023 





0065 


3J24 





0069 


3025 





0060 


3026 





00 7! 


3027 





O07 5 


3028 





0079 


3029 





0071.' 


302A 





0081 


302B 





008 5 


302C 





008f. 


3020 





008/. 


302E 


u 


009C 


302F 





009' 


3030 





0096 


3031 





009C 


3032 





OOAO 


3033 





00A4 


3034 





OOAf 


3035 





OOAC 


3036 





OObC 


3037 





0CIB4 


3038 





00B6 


3039 





OOHC 


303A 





OOCO 


303b 





00C4 


303C 





00C8 


3030 





OOCC 


30 3 E 





0000 


DATE 




15MAY67 


EC NO. 


411731 



ABS 










ORG 


/3004 








(.***«**»*»■ 


i»6t#tt»4«»V««4 


*****s**f**.#**vw ******* 


* 


WAITS 


ERROR COMMENTS 


***«*«*-?**«?***«* **¥*?34«*?««#4«:*I#$**:4«£$3$:.:6* 


DC 


W3004+1 


MDX 


BY 1 


FAILED 


DC 


W3035+1 


MOX 


BY 2 


FAILED 


DC 


W3006+1 


VOX 


BY 2 


FAILED 


DC 


1/3007+1 


MOX 


BY 4 


FAILED 


DC 


W3008+1 


MOX 


BY 4 


FAILED 


DC 


W30C9+1 


MDX 


BY 4 


FAILED 


DC 


H300A+1 


MOX 


BY 4 


FAILED 


CC 


W300R+1 


MDX 


BY -2 


FAILED 


DC 


W300C+1 


MOX 


BY -2 


FAILED 


DC 


W300D+1 


MDX 


BY -2 


FAILED 


DC 


W300E+1 


MOX 


BY -2 


FAILED 


DC 


W300F+1 


MDX 


BY 8 


FAILED 


DC 


H3010M 


MDX 


BY 8 


FAILED 


DC 


W3011+1 


MDX 


BY 8 


FAILED 


DC 


W3012+1 


MDX 


BY 8 


FAILED 


DC 


W3013+1 


8SC- 


-CARRY 


FAILED 


DC 


H3014+1 


BSC-OVERFLW FAILED 


DC 


W3015+1 


6SC- 


-OVFLW 


SKPO-SHOULD 


* 




*NOT HAVE 




nc 


W3016+1 


6SC- 


•C SHPO SHOULD NOT 


DC 


W3017+1 


LD ACC TO 


FAILED 


DC 


W3018+1 


LD ACC TO 


FAILED 


DC 


W3019+1 


BSC 


ON EVEN TAILED 


DC 


W301A+1 


LOAD ACC. 


FAILED Oft 


* 




*BSC ON NEG. FAILED 


DC 


W301B+1 


BSC 


ON + 


SKPD- 


» 




'SHOULD NOT HAVE 


DC 


W301C+1 


BSC 


ON E 


SKPD- 


* 




'SHOULD NOT HAVE 


DC 


K301D+1 


ACC 


NOT = 


7FFF 


DC 


M301E+1 


ACC 


NOT = 


3FFF 


DC 


W301F+1 


ACC 


NOT = 


1FFF 


DC 


N3020+1 


ACC 


NOT = 


OFFF 


DC 


W3021+1 


ACC 


NOT = 


07FF 


DC 


W3022+1 


ACC 


NOT ■ 


03FF 


DC 


W3023+1 


ACC 


NOT = 


01FF 


DC 


W3024+1 


ACC 


NOT = 


OOFF 


DC 


W3025+1 


ACC 


NOT = 


00 7 F 


DC 


W3026+1 


ACC 


NOT ■ 


003F 


DC 


W3027+1 


ACC 


NOT = 


001F 


DC 


W3028+1 


ACC 


NOT = 


000 F 


DC 


W3029+1 


ACC 


NOT = 


0007 


DC 


W302A+1 


ACC 


NOT = 


0003 


DC 


W302B+1 


ACC 


NOT = 


0001 


DC 


W302C+1 


ACC 


NOT ■ 


0000 


DC 


W302D+1 


ACC 


NOT = 


0000 


DC 


W302E+1 


ACC 


NOT = 


FFFF 


DC 


W302F+1 


ACC 


NOT = 


FFFF 


DC 


W3030+1 


ACC 


NOT ' 


7FF- 


DC 


W3031+1 


ACC 


NOT = 


3FFF 


DC 


W3032+1 


ACC 


NOT « 


1FFF 


DC 


W3033+1 


ACC 


NOT = 


OFFF 


DC 


W3034+1 


ACC 


NOT = 


07FF 


DC 


W3035+1 


ACC 


NOT = 


03FF 


DC 


W303G+1 


ACC 


NOT * 


01FF 


DC 


W3037+1 


ACC 


NOT = 


OOFF 


DC 


. H 30 38+1 


ACC 


NOT * 


007F 


DC 


W3039+1 


ACC 


NCT = 


00 3F 


d: 


W303A+1 


ACC 


NOT = 


001F 


DC 


W303B+1 


ACC 


NOT = 


OOOF 


DC 


K303C+1 


ACC 


NOT = 


0007 


DC 


W303D+1 


ACC 


NOT « 


0003 


DC 


W303E + 1 


ACC 


NOT = 


0001 
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60200010 
60200020 
60200030 
80200040 
80200050 
60200060 
80200070 
60200080 
80200090 
80200100 
80200110 
6020012C 
80200130 
8C200140 
60200150 
80200160 
80200170 
80200180 
80200190 
80200200 
80200210 
8020022C 
60200230 
802002 40 
80200250 
80200260 
80200270 
30200280 
80200290 
80200300 
80200310 
80200320 
80200330 
80200340 
60200350 
80200360 
80200370 
80200380 
80200390 
60200400 
80200410 
80200420 
60200430 
60200440 
80200450 
60200460 
80200470 
80200480 
80200490 
60200500 
80200510 
80200520 
80200530 
80200540 
80200550 
80200 560 
80200570 
80200580 
80200590 
80200600 
80200610 
80200620 
80200630 
80200640 
60200650 
60200660 
60200670 
80200680 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTtM 

DIMAL HEADER TEST (CARDI 
TEST1 



303F 





0003 


3040 





0GG5 


3041 





0008 


3042 





GGGC 


3043 





OGDF 


3044 





00E2 


3045 





CCE6 


3046 





OOEA 


3047 





OGEE 


3048 





Oir3 


3049 





00F7 


304A 





00F6 


304B 





01 GO 


304C 





0104 


304D 





01C9 


304E 





010C 


304F 





0100 


3050 





0111 


3051 





0112 


3052 





0115 


3053 





0116 


3054 





0119 


3055 





011A 


3056 





011E 


305V 





0122 


3058 





0123 


3059 





0126 


305A 





0127 


305B 





012* 


305C 





0130 


305D 





013* 


305E 





0136 


305F 





0139 


3060 





013E 


3061 





0143 


3062 





014B 


3063 





C14C 


3064 






0014 





0200 



0015 

0016 

0017 



0018 
0019 
001A 

001B 
001C 
001D 
001E 
001F 

0020 
0021 



0022 

0023 

0024 

0025 



DATE 
EC NO. 



7000 
7001 
3034 

7002 
3005 
3006 

7004 
3007 
3008 
3009 
300A 

7002 
3006 

7008 
70FE 
300C 
3000 



15VAY67 
411731 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
PC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
********** 

ABS 

ORG 
•****»**«* 

PID DC 

********** 

* 

* 

* 

***«««***« 

MDX 
A080 MDX 
W3004 DC 
* 

G080 MDX 
W3005 OC 
H3006 DC 
* 

G081 MDX 
W3007 DC 
K3008 DC 
W3009 DC 
W300A DC 
* 

G082 MDX 
W300R OC 
« 

G083 
G084 
W300C OC 
W300J OC 



W303F+1 
W3040+1 
H3041+1 
W3042+1 
W3043+1 
W3044+1 
W3045+1 
W3046+1 
W3047+1 
W304B+1 
W3049+1 
W304A+1 
W304B+1 
W304C+). 
W304D+1 
W304E+1 
W304F+1 
W3050+1 
K30S1 + 1 
W3052+1 
W3053+1 
H3054+1 
W3055+1 
W3056+1 
W3057+1 
V3058+1 
W3059+1 
H305A+1 
W305B+1 
W305C+1 
W305D+1 
K305F+1 
H305F+1 
H 3060+1 
W3061+1 
W3062+1 
W3063+1 
««**«*«***** 

20 

»*»S««*««*******«se«**»v**9«*S****** 

/0200 PID 

****»«,-*»»**«» *«#«*«****** *»»»»»*$.»** 

TEST MOX OPERATION 

******* *******««**********?£ *#4*$«£* 



ACC NOT = 0000 
ACC NOT = OOOO 
ACC NOT = ZERO 
ACC NOT = FFFF 
ACC MIT = ZERO 
EUR CF ANO FAILED 
EOR OF 1 AND 1 FAILED 
EOR OF 1 ANO FAILED 
EOR OF 1 ANO FAILED 
EOR OF AND 1 FAILED 
EOR OF ANO 1 FAILED 
WRONG LOCATION LOADED 
WRONG LOCATION LOADED 
WRONG LOCATION LOADED 
WRONG LOCATION LOADED 
BSC FELL THROUGH 
BSC SKPD-SHOULD BRNC 
BSC E FELL THROUGH 
BSC SKPD-SHOULD BRNC 
BSC + FELL THROUGH 
BSC SKPO-SHOULD BRNC 

bsc z fell through 

BSC SKPD-SHOI.Ln BRNC 

BSC SKPD-SHOULO NOT 

BSC C FELL THROUGH 

6SC SKPD-SHOULD BRNC 

BSC FELL THROUGH 

BSC SKPD-SHOULO BRNC 

BSC BRNCD-SHOULD NOT 

bSC BRNCO-SHOULD NUT 

BSC 8RNCO-5HUULD .JUT 

BSC +- FELL THROUGH 

BSC SKPD-SHOULO BRNC 

BSC 6RNCHED-SH0ULDNT 

BSC rtRNCHFD-SliOULONT 

INDIRECT BSC FAILED 

INDIRFCT BSC FAILED 

******** ***************** 



MDX 
MOX 



A080 
GO 80 
/3O04 

GOBI 

/3005 

/3006 

G082 

/3007 

/3008 

/3009 

/300A 

G084 
/300B 

ACCO 
G083 
• 300C 
/3000 



BCH TO NEXT INST 
MDX BY 1 FAILED 



MDX BY 2 FAILED 
MUX BY 2 FAILED 



MDX BY 4 FAILED 
MDX BY 4 FAILED 
MOX BY 4 FA I LEO 
MOX BY 4 FAILED 



MOX BY -2 FAILED 



MDX BY -2 FAILED 
MDX BY -2 FAILED 
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6G200690 
8^200700 
80200710 
fcG20OV20 
6C230730 
E02 00740 
EG2i)07iO 
SG2GG760 
63200770 
t'.kMlbO 
6'.2GG7VO 
80200800 
6C20C31O 
802Gt>62O 
fcC2CGB30 
fcC20O6-O 
6C20jb5C 
cG2GCe60 
6G2GC370 
6G200eeO 
8G20G890 
6G2G0900 
6G2GG910 
6020G92O 
8C2GGJ30 
fcCI00940 
SG20L950 
6C'2-jiS»60 

o:2. J .;.i7o 
eoiycsEo 

602Gi-990 
cuiOlGOO 
bCiJIOlO 
8C2GIC20 
6020 1030 
6G2C1040 
E0201O5O 
60201060 
E020107C 
SG2C10S0 
6020 1090 
502C1100 
60231110 
60201120 
60201130 
80201140 
80201 150 
60201160 
60201 no 
60201180 
60201190 
60201200 
80201210 
60201220 
802Q1230 
80201240 
602012 5» 
60231260 
60201270 
60201280 
802312>O 
60201330 
60201310 
60201320 
60201330 
80201 340 
80201350 
63201 360 



PROG 10 
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KM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

llHAL HEAOEk TEST (CARD) 
TEST1 



0C26 


300E 


W300E 


DC 


/300E 


0027 


300F 


W3U0F 


CC 


/300F 


C028 


3010 


'13010 


DC 


/3010 


0029 


301) 


.(3011 


DC 


/3011 


002A 


3012 


W3012 


DC 


/3012 



002B 20'">'i 
002C 4M.2 
0020 7Ci)? 



OOZE 


3013 


W3013 


DC 


/3013 


002F 

0030 

0031 
CU32 


0000 

4&01 
7001 
301* 


NlOO 
GOO 

W3014 

• 

G0C2 

W3015 

* 

W3016 


DC 
BSC 
MDX 
DC 





G0C2 
/3014 


0033 

0034 


4S01 
3015 


BSC 

DC 



/3015 


0035 

0036 
CU37 


20CP 
30 : r> 


IDS 

BSC 

oc 



C 
/3016 



MDX BY -2 FAILED 

MDX DY B FAKED 

MDX BY 8 FAKtO 

MDX BY 8 FAKED 

MDX BY 8 FAKED 

» 

* TEST OF bSC SKIP KnEN IT 

* SHOULD NOT 

» 

AOCO LOS 3 
BSC C 
MDX G0C1 

BSC-CARRY FAILED 



BSC-OVERFLN FAILED 



0038 C0F6 

oo3v o *h:-:o 

003A 3017 

C03B C0F3 

cose o 4f>:-L' 

0031) 301* 



BSC-OVFLV SKFD-SHOULD 
•NCI HAVE 



BSC-C SHPD SrOULD NOT 



* 

* TEST OF ACC ABILITY TO HOLD 

* ALL ZEROS 

LD NlOO 
BSC 2 



003E 
C03F 



480* 
3019 



/3017 

NlOO 

Z 

/3018 

E 
/3019 



LD ACC TO C FAILED 

ACC=0,RELOAO TO 
LD ACC TO FAILED 

BSC ON EVEN FAILED 



W3017 DC 
* 

LO 

BSC 
W3018 DC 
* 

BSC 
W3019 DC 
* 

• CONTAIN ALL ONES 

* 

••»••***** ***«>**»»••»»*•*»»»»»■*«»»»»»«»»*•*»** 

ACC. «0, RELOAD TO ONES 



LOAD ACC. FAILED OP 
•SHOULD NOT HAVE 
•BSC ON NEG. FAILED 



0040 





C04A 




LD 


N140 


0041 





4810 




BSC 


- 


0042 





301A 


M301A 

» 


DC 


/301A 


0043 





4808 


• 


Bsr 


♦ 


0044 





7001 




MDX 


G140 


0046 





J01H 


W301B 


OC 


/301B 


0046 





480* 


G140 


BSC 


E 


0047 





7001 




MDX 


G141 


0048 





301C 


W301C 


DC 


/301C 


0049 





1801 


G141 


SRA 


1 


004A 





480* 




BSC 


t 


004B 





7001 




MDX 


G142 


004C 





301D 


M301D 


OC 


/301D 


004D 





1801 


G142 


SRA 


1 


DATE 




15MAY67 








EC NO. 


411731 









BSC ON ♦ SXPD- 



BSC ON E SKPO- 
•SHOULD NCT HAVE 



ACC NOT - 7FFF 
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80201370 

80201380 

80201390 

80201400 

80201410 

80201420 

80201430 

80201440 

80201450 

60201460 

80201470 

B0201 '♦60 

80201490 

80201500 

80201510 

80201520 

80201530 

80201 540 

80201550 

30201560 

802C1570 

80201 5S0 

80201590 

80201600 

80201610 

80201620 

80201630 

80201640 

80201650 

80201660 

80201670 

802016..0 

80201690 

60201700 

80201710 

80201720 

60201730 

80201740 

80201750 

80201760 

80201770 

80201780 

80201790 

60201800 

80201810 

80201820 

60201830 

80201840 

80201850 

60201860 

80201870 

80201880 

80201890 

80201900 

80201910 

80201920 

60201930 

60201940 

80201950 

80201960 

80201970 

60201980 

80201990 

80202000 

80202010 

80202020 

80202030 

8C 2020 40 
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IBK MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



DIMAL HEADER TEST ( 


CARD) 






TEST1 










0C4E 


4804 




BSC 


E 


004F 


7001 




MDX 


G143 


0050 


301E 


H301E 


DC 


/301E 


0051 


1801 


G143 


SRA 


1 


0052 


4e04 




BSC 


E 


0053 


7001 




MDX 


G144 


0054 


301F 


W301F 


DC 


/301F 


0055 


1801 


G144 


SRA 


1 


0056 


4804 




BSC 


E 


0057 


70C1 




MDX 


G145 


0058 


3020 


H3020 


CC 


/3020 


0059 


1801 


G145 


SRA 


1 


005A 


4804 




BSC 


E 


005B 


7001 




MDX 


G146 


005C 


B021 


H3021 


DC 


/3021 


005D 


1801 


G146 


SRA 


1 


005E 


4804 




BSC 


E 


005F 


7001 


. 


MDX 


Gi.47 


0060 


3022 


W3022 


DC. 


/?022 


0061 


1801 


G14-' 


SRA 


1 


0062 


4804 




BSC 


E 


0063 


7001 




MDX 


G148 


0064 


3'."23 


M3023 


OC 


/3023 


0065 


1801 


G148 


SRA 


1 


0066 


4804 




BSC 


E 


0067 


7001 




HOX 


G149 


CC63 


3024 


W3024 


DC 


/3024 


0069 


1601 


G149 


SRA 


1 


006A 


4604 




BSC 


E 


0066 


7001 




MDX 


G14A 


006C 


3025 


W3025 


DC 


/3025 


006D 


1601 


G14A 


SRA 


1 


006E 


4804 




BSC 


E 


006F 


7001 




MCX 


G14B 


0070 


3026 


W3026 

4 


DC 


/3026 


0071 


1801 


G14B 


SRA 


1 


0072 


4804 




BSC 


E 


0073 


7001 




HDX 


G14C 


0074 


3027 


H3027 


DC 


/3027 


0075 


1801 


G14C 


SRA 


1 


0076 


4804 




BSC 


E 


3077 


7001 




MDX 


G14D 


0078 


3028 


W3026 


DC 


/3028 


0079 


1801 


G14D 


SRA 


1 


007A 


4804 




BSC 


E 


007B 


7001 




MDX 


G14E 


007C 


3029 


W302S 

* 


DC 


/3029 


007D 


1301 


G14E 


SRA 


1 


007E 


4804 




BSC 


E 


007F 


7001 




MDX 


G14F 


0060 


302A 


W302J 

« 

G14F 


DC 


/302A 


0081 


1801 


SRA 


1 


0062 


4804 




BSC 


E 


0083 


7001 




MDX 


G150 


0084 


302 B 


M302C 

• 


DC 


/3026 


DATE 


15MAY67 








EC NO. 


411731 









ACC NOT « 3FFF 



ACC NOT « 1FFF 



ACC NOT » OFFF 



ACC NOT « 07FF 



ACC NOT * 03rF 



ACC NOT « 01FF 



ACC NOT » OOFF 



ACC NOT « 007F 



ACC NOT * 003F 



ACC NOT ■ 001F 



ACC NOT • OOOF 



ACC NOT « 0007 



ACC NOT > 0003 



ACC NOT • 0001 



PA*? NO. 2242253 
PACE 2A 



80202050 

80202**0 

802O2O7G 

80202G60 

S0202O90 

B0202100 

80202110 

802C2120 

80202130 

8020.21*0 

80202150 

E02C2I60 

80202170 

60204100 

602023%0 

80202200 

8020*210 

80202.220 

80202230 

802022*0 

80202250 

802022*0 

602G22 70 

60202**0 

60202290 

302023O0 

80202 3 iO 

60202 32 i> 

80202330 

80202540 

602023=50 

802C236U 

80202370 

8020.: 5 Mi 

80202390 

60202*00 

60202*10 

80202*20 

80202*30 

802024*0 

S32O2*50 

80202*60 

80202*70 

60202*60 

60202*90 

80202500 

60202510 

8020fi.62O 

60202430 

60202*40 

602O2550 

60202 WO 

80202*70 

80202*90 

60202*90 

80202600 

80202*10 

80202*20 

80202630 

60202*40 

80202*50 

80202*60 

8020*170 

V0202*eO 

80232*90 

80202 TOO 

60202710 

60202720 
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3 
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OIMAL HEADER TEST (CARD) 
TEST1 



0085 1801 

0086 4804 

0087 302C 

0088 4820 

0089 302D 

008A 7001 

008B FFFF 



< ( ( 


< ■ 


( 
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• 




T 
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DIHAL HEADER TEST (CARD) 
TEST1 



006C 


COFE 


0080 


4S2C 


006 f 


4810 


008F 


30Zfc 


C090 


COFA 


C091 


482C 


0092 


4810 


0093 f 


302F 


0094 


leoi 


0095 


4604 


009 t 


7001 


0097 


3030 


0098 


1601 


0f")9 


4t'04 


009A 


7001 


0098 


3031 


009C 


1801 


0090 


4804 


009fc 


7001 


009F 


3032 


OOAO 


1801 


00A1 


4804 


00A2 


7001 


0OA3 


3033 


0044 


1801 


00A5 


4804 


00A6 


7001 


0OA7 


3034 


00A8 


1801 


00A9 


4804 


OOAA 


7001 


0OA8 


3035 


OOAC 


1801 


OOAD 


4804 


OOAF. 


7001 


OOAF 


3036 


OObO 


1601 


OOB) C 


4604 


00B2 


7001 


00B3 


3037 


0084 


1801 


0085 


4804 


0086 


7001 


DATE 
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EC NO. 
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G150 SRA 


1 




80202730 






00B7 


3038 


H3039 


DC 


/3038 


ACC NOT = 007F 


80203410 




BSC 


E 




B0202740 


3 


■3 






* 








80203420 




H302C DC 


/302C 


ACC NOT « 0000 


80202/50 


: 




0088 


1801 


G189 


SRA 


1 




80203430 




* 






80202760 


! 




00B9 


4604 




BSC 


E 




80203440 




BSC 


2 




80202770 


I ! 


3 


OOBA 


7001 




KDX 


G18A 




80203450 




W3020 DC 

* 


/302D 


ACC NOT « 0000 


80202780 
80202790 


j 




OOBB 


3039 


W3039 

ft 


DC 


/3039 


ACC NOT » 003F 


8C203460 
8020347G 




KDX 


A180 


EXIT 


80202800 


1 


3 


00 BC 


1801 


518A 


SRA 


1 




80203480 




ft»ft9ftft«£4ft«ftft*ft«ftftft€ftfe#ftft«*e*nsft*ft****ftftftft«ftft« 


80202810 






OOBD 


4804 




BSC 


E 




80203490 




N140 DC 


/FFFF 


CONSTANT 


80202820 






OOBE 


7001 




MDX 


G18B 




80203500 




«««»*«» **«»«»»*«»«««««««*»*»* «*«•*««**»***»*»« 


80202630 


1 


3 


, OOBF 


303A 


W303A 


DC 


/303A 


ACC NOT » 001 F 


80203510 




ft 






80202840 










ft 








80203520 




ft 


TEST 


LDING OF ONES ON ONES 


60202850 






OOCO 


1801 


G18B 


SRA 


1 




80203530 




•» 






30202860 


3 


3 


00C1 


4e04 




BSC 


E 




80203540 




ftftftftftft-fftftftftftftftttftftftftftftftftftftftftfteftftftftftftttftlftftftftftftftft 


80202870 






00C2 


7001 




*DX 


G18C 




80203550 




A180 LD 


N140 




80202880 






00C3 


303B 


W303B 


DC 


/303B 


ACC NOT = OOOF 


80203560 




BSC 


+ EZ 




80202890 


3 


3 






« 








80203570 




BSC 






80202900 






O0C4 


18C1 


G18C 


SRA 


1 




80203580 




W302E DC 


/302E 


ACC NOT * FFFF 


00202910 






00C5 


4804 




BSC 


E 




80203590 




ft 






80202920 


3 i 


3 


00C6 


7001 




MDX 


G18D 




B0203600 




LG 


N140 




80202930 






00C7 


303C 


H303C 


OC 


/303C 


ACC NOT ' 0007 


80203610 




BSC 


♦ EZ 




80202940 










* 








807.03620 




BSC 






80202950 


3 


1 


00C8 


1801 


G18D 


SRA 


1 




80203630 




W302F DC 


/302F 


ACC NOT « FFFP- 


8020i960 






00C9 


4804 




BSC 


E 




80203640 




« 






80202970 






OOCA 


7001 




MO." 


G18E 




8020365a 




SRA 


1 




80202980 


J 


3 


OOCB 


3030 


W303D 


DC 


/303D 


ACC NOT * 0003 


80»036fc0 - 




BSC 


E 




80202990 










*■ 








80203470 




MOX 


G181 




80203000 






OOCC 


1801 


G18E 


SRA 


1 




80203680 




W3030 DC 


/3030 


ACt NOT = 7FFF 


80203010 


3s 


1 


OOCD 


4C04 




BSC 


E 




80203690 




ft 






80203020 






OOCF 


7001 




vo.: 


C18F 




60203700 




G181 SRA 


1 




80203030 






OOCF 


303E 


W303E 


DC 


/303E 


ACC NOT * 0001 


60203710 




BSC 


E 




80203040 


3 


3 






* 








802O3720 




HDX 


G182 




80203050 






OOCO 


1901 


G18F 


SF.A 


1 




80203730 




U3031 DC 


/3031 


ACC NOT « 3FFF 


8*. 203060 






00D1 


4604 




esc 


E 




80203740 




» 






80203070 


1 


3 


0002 


303F 


W303F 


DC 


/303F 


ACC NOT « 0000 


80203750 




G182 SRA 


1 




80203080 










ft 








80203760 




BSC 


E 




80203090 






00D3 


4820 




BSC 


Z 




80203770 




MOX 


G1B3 




80203100 


3 


3 


0004 


3040 


W3040 


DC 


/3040 


ACC NOT «■ 0000 


80203780 




W3032 DC 


/3032 


ACC NOT « 1FFF 


80203110 










ft 








80203790 




* 






80203120 










**ftft»»S*«»««tt»»*ftft««»ft««3>i'»*ft»ft*ft»B«««»«**C*«ft 


60203800 




G183 SRA 


1 




80203130 


1 


3 






ft 








80203810 




BSC 


E 




80203140 










ft 




TEST 


ABILITY TO LOAD ZEROS 


80203820 




MDX 


G184 




80203150 










ft 




ON TOP OF ZEROS AND ONES 


60203830 




W3033 DC 


/3033 


ACC NOT « OFFF " 


80203160 


3 


3 






ft 




TOP 


DF ZEROS 


80203840 




• 






80203170 










ft 








80203850 




G184 SRA 


1 




80203180 










«***ft***«*«ft**£*ft«««ftft»*»*««C«*ft*«ft«:#ft*« ftftftftftft 


80203860 




BSC 


E 




80203190 


3 


3 


00D5 


C077 




LD 


N101 




80203670 




MDX 


G185 




80203200 






00D6 


4820 




BSC 


Z 




80203880 




H3034 DC 


/3034 


ACC NOT « 07FF 


80203210 






00D7 


3041 


M3041 


DC 


/3041 


ACC NOT « ZERO 


30203890 




ft 






80203220 


2 


3 






• 








80203900 




G185 SRA 


1 




80203230 






O0D6 


C0B2 




LD 


N140 




80203910 




BSC 


E 




80203240 






00D9 


482C 




BSC 


♦ EZ 




80203920 




MOX 


G186 




80203250 


I 


-\ 


OODA 


4810 




BSC 


- 




80203930 




W3035 DC 


/3035 


ACC NOT = 03FF 


80203260 






OODB 


3042 


W3042 


PC 


/3042 


ACC NOT ■ FFFF 


60203940 




* 






80203270 










* 








80203950 




G186 SRA 


1 




80203280 


t 


3 






ftftftftftftftftftftftftftftftftftftftftftvftftftftftftftftftftftftftftftftftftftftftft^ft 


60203960 




BSC 


E 




80203290 










t 








80203970 




MDX 


G187 




80203300 










ft 




TEST 


EOR OPERATION 


80203980 




ft 






80203310 


t 


3 






ft 








80203990 




W3036 DC 


/3036 


ACC NOT - 01FF 


80203320 










*«*ft**«ft*ft«*ftft*««****ft**»«ft**««*ft»*«*V«**««»»ft 


80204000 




G187 SRA 


1 




80203330 






OODC 


C070 




LD 


NIDI 




80204010 




BSC 


E 




80203340 


t 


3 


OODD 


4820 




BSC 


Z 




80204020 




MDX 


G188 




80203350 






OODE 


3043 


W3043 


DC 


/3043 


ACC NOT « ZERO 


80204030 




H3037 CC 


/3037 


ACC NOT « OOFF 


80203360 










* 








80204040 










80203370 


t 


3 


OODF 


F06D 




EOR 


NIDI 




80204050 




G188 SRA 


1 




80203380 






OOEO 


4820 




BSC 


Z 




80204060 




BSC 


E 




80203390 






00E1 


3044 


W3044 


DC 


/3044 


EOR OF AND FAILED 


80204070 




MDX 


G189 




80203400 


t 


3 






ft 








80204080 
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I 

! 



DIKAL HEADER TEST 


<C«RO> 






TEST1 










O0E2 


CCA8 




LD 


N140 


O0E3 


F0A7 




EOR 


N140 


00E4 


4820 




BSC 


z 


00E5 


3045 


H3045 

* 


DC 


/3045 


00E6 


F0A4 


EOR 


N140 


00E7 


4620 




BSC 


♦ EZ 


00 E 8 


4810 




BSC 


- 


00E9 


3046 


W3046 


DC 


/3046 


OOPA 


1601 




SRA 


1 


OOEd 


F062 




EOR 


N1D2 


OOEC 


4b;0 




BSC 


Z 


OOED 


SC47 


H3047 

* 


DC 


/3047 


OOPt 


C09C 


LD 


N140 


OOfcF 


F05D 




EOR 


NIDI 


OOFO 


462C 




BSC 


+EZ 


00F1 


4610 




BSC 


- 


00F2 


3046 


N304B 


OC 


/3048 


00F3 


1601 




SRA 


1 


00F4 


F059 




EOR 


N1D2 


O0F5 


4 1.20 




asc 


Z 


00F6 


3049 


W3049 


DC 


/3049 



C0F7 00 C400014D 

00F9 4620 

OOFA 3umA 

OOFb OC C4000150 

OOF:. F052 

OOFE 4620 

OOFF 3043 



EOR OF 1 AND 1 FAILED 



EOR OF 1 AND FAILEO 



EOR OF 1 AND FAILEO 



EOR OF AND 1 FAILED 



EOR OF AND 1 FAILED 



* 

» TEST OF ABILITY TO SET 

* F BIT TO ONE 

* 

LD L NIDI 
BSC Z 
W304A DC /304A 

LD L NIEO 
EOR NIEO 
BSC Z 
M304B DC /3043 

• 

* 

• TEST OF INDIkECT ADDRESSING 



WRONG LOCATION LOADED 



WRONG LOCATION LOADED 



0100 00 
C102 
0103 


C4600151 
4620 

?,'4C 


LD 
BSC 

W304C OC 

* 

LD 

EOR 

BSC 

W304D DC 


1 N1F2 
Z 
/304C 


0104 00 

0106 

0107 

0108 


C4600150 
F049 
4820 
304D 


1 NIEO 
NIEO 
Z 
/304D 



0109 00 4C00010D 
010B 204E 
010C 304F 

0100 CC41 
ORE 00 4CC40112 

0110 3050 



WRONG LOCATION LOADEO 



WRONG LOCATION LOADEO 

• 

* TEST OF BSC LONG FORM AND 

* INDIRECT OPERATION 

* 

********* **»*i*«***» »■*«*«******* ***»*****»***«* 

BSC L G200 

W304E OC /304E BSC FELL THROUGH 

W30'F DC /304F BSC SKPO-SHOULD BRNC 
» 

G200 LD N1D0 

BSC L G201.E 

W3050 DC /3050 BSC E FELL THROUGH 
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80204090 

80204100 

80204110 

80204120 

80204130 

80204140 

80204150 

80204160 

80204170 

80204180 

80204190 

80204200 

80204210 

80204220 

80204230 

80204240 

80204250 

80204260 

80204270 

80204280 

80204290 

80204300 

80204310 

80204320 

80204330 

80204340 

80204350 

80204360 

80204370 

80204360 

80204390 

80204400 

80214410 

80204420 

80204430 

8020444C 

80204450 

80204460 

80204"' 1 

80204480 

80204490 

80204500 

80204510 

80204520 

80204530 

80204540 

60204550 

80204560 

80204570 

80204580 

60204590 

80204600 

80204610 

80204620 

80204630 

80204640 

80204650 

60204660 

60204670 

80204680 

60204690 

8C204700 

80204710 

8020472 3 

80204730 

80204740 

80204750 

8G204760 
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1 

1 
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3 

3 



X 


-* 


X 


"3 


X 


3 


t 


3 


t 


^ 


t 


«» 


t 


J 


1 


X 





X 


• 

• 


t 



DIMAL HEADER TEST 
TEST1 


CARD) 






0111 


3051 


W3051 


OC 


/3051 


0112 00 

0114 

0115 


4C0B0116 

3052 

3053 


G201 

W3052 

W3053 

* 

G202 

W3054 

W3055 


BSC 

OC 

DC 


L G202.+ 
/?052 
/3053 


0116 00 

0118 

0119 


4C20011A 

3054 

3C55 


BSC 

OC 
DC 


L G203.Z 
/3054 
/3055 


011A 00 

one 

011D 


4C10011D 

7001 

3056 


G203 
W3056 


BSC 
MDX 
DC 


L V3056,- 
G204 
/3056 


OllE 
01 IF 00 

0121 

0122 


2003 

4C020123 
3057 
3056 


G204 

W3057 
W3058 


LDS 
BSC 

DC 
OC 


3 
L G205.C 
/3057 
/3058 


0123 00 

0125 

0126 


4C010127 

3059 

305A 


G205 

W3059 

W305A 

9 


8SC 
DC 

DC 


L G208 f 
/3059 
/305A 


0127 OP 
0129 
012A 


4CC1012A 

7001 

305B 


G208 
W3C56 


BSC 
MDX 
OC 


■_ U305BtO 
G206 
/305B 


012B 
012C OD 
C12E 
012F 


2000 
4C02012F 
7001 
305C 


G206 
W305C 

g 


LDS 
BSC 
MDX 
DC 



L W3C5CtC 
G207 
/305C 


0130 00 

0132 

0133 


4C010133 

7001 
305D 


G207 
W305D 


BSC 
MDX 
OC 


L W305D.O 
G209 
/3050 


0134 

0135 00 

0137 

0138 


C018 

4C180139 
30aE 
305F 


G209 

W305F 
W305F 

g 


LO 
BSC 
DC 
DC 


NIDI 

L G20A,*- 

/305E 

/305F 


0139 
013A 00 
013C 
013D 


C015 
4C1 80130 
7001 
3060 


G20A 
W3060 


LD 
BSC 
MDX 
DC 


N1D0 
L W3060t+- 
G20D 
'=060 


013E 
013F 00 

0141 

0142 


C013 

4C180142 
7001 
3061 


G20D 
W3061 




LD 
BSC 
MDX 
OC 


N202 

L W3061t+- 

G20B 

/3061 


0143 00 

0145 

0146 00 


C40000U 
FOOC 
0400001 i 


G206 


LO 

EOR 

STO 


L 17 

N202 
L 17 


0148 OC 
014A 
014B 


4C800153 

3062 

3063 


G20C 

W3062 

W3063 


BSC 

DC 

DC 


I N203 
/3062 
/3C63 


014C 


70FB 


MDX G20C 

********************** 


014D 
014E 
014F 

0150 

0151 

0152 

0153 


OOOO 
7FFF 
FFFF 
0150 
014D 
0001 
0002 


NIDI 
N1D2 
N100 
N1EC 
N1F2 
N202 
N203 


DC 
OC 
DC 
DC 
DC 
DC 
DC 


/OOOO 

/7FFF 

/FFFF 

NIEO 

NIDI 

/0001 

/0002 


DATE 
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BSC SKPD-SHOULO BRNC 



BSC + FELL THROUGH 
BSC SKPD-SHOULO BRNC 



BSC Z TELL THROUGH 
BSC SKPO-SHOULD BRNC 



BSC SKPl»-SHOUL0 NOT 



BSC C FELL THROUGH 
DSC SKPD-SHOULD BRNC 



BSC FELL THROUGH 
B:C SKPD-SHOULD BRNC 



BSC BRNCD-SHOULD NOT 



BSC BRNCD-SHOULD NOT 



BS r . BRNCD-SHUULO NOT 



BSC *- FELL THROUGH 
BSC SKPD-SHOULO bRNC 



BSC BRNCHEO-SHOULDNT 



BSC bRNCHED-SHOULONT 

CALL READ IOCC 
CHANGE SECTOR 



RETURN TO CALL 
INDIRECT BSC FAILED 
INDIRECT BSC FAILEO 



CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
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8020*770 

80204780 

80204790 

60204800 

80204810 

80204820 

80204830 

80204640 

8020 VW50 

80204860 

80204870 

80204860 

80204890 

80204900 

60204410 

60204970 

80204930 

80204940 

80204950 

80204960 

60204970 

80204980 

80204990 

80205000 

80205010 

80205020 

60205030 

80205040 

60205050 

80205060 

60205070 

80205080 

80205090 

80205100 

60205110 

60205120 

60205130 

80205140 

60205150 

80205160 

80205170 

80205180 

60205190 

60205200 

80205210 

80205220 

80205230 

80205240 

80205250 

80205260 

60205270 

80205280 

6020 5290 

802053OO 

80205310 

80205320 

80205330 

8020534O 

60205350 

6020536© 

80205370 

60205380 

80205390 

802054OO 

8020541O 

80205420 

60205430 

802054*0 
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0154 OHO 



******«****************#«*»*»•*»*»»«»***«**«»* 80205450 
END X *-PID END CARD NOT USED 8020545 60205460 
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CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 


AOCO 


002B 


0022 


A080 


0016 


0015 


A180 


00 8C 


008A 


G0C1 


0030 


002D 


G0C2 


0033 


0031 


G060 


0018 


0016 


GOBI 


001B 


0018 


GO 82 


0020 


001B 


G083 


0022 


0023 


G084 


0023 


0020 


G14A 


0060 


0068 


G14B 


0071 


006F 


G14C 


0075 


0073 


G14D 


0079 


0077 


G14E 


0070 


007B 


G14F 


0081 


007F 


G140 


0046 


0044 


G141 


0049 


0047 


0142 


0U4D 


004B 


G143 


0051 


034F 


G144 


0055 


0053 


G145 


0059 


0057 


G146 


0050 


005B 


G147 


0061 


005F 


G148 


0065 


0063 


G149 


0069 


0067 


G150 


0085 


0083 


&18A 


OOBC 


OOBA (r 


G18B 


OOCO 


OOBE 


G18C 


00C4 


00C2 


G18D 


00C8 


00C6 


G18E 


OOCC 


OCCA 


G18F 


OODO 


OOCE 


G181 


0098 


0096 


G182 


009C 


009A 


G183 


OOAO 


009E 


G184 


00A4 


00A2 


G185 


00A8 


00A6 


GI86 


OOAC 


OOAA 


G187 


OOBO 


OOAE 


G188 


00B4 


00B2 


G189 


00B8 


00B6 


G20A 


0139 


0135 


G20B 


0143 


0141 


G20C 


0148 


014C 


G20D 


013E 


013C 


G200 


0100 


0109 


G201 


0112 


010E 


G202 


0116 


0112 


G203 


011A 


0116 


G204 


01 IE 


one 


G205 


0123 


011F 


G206 


012B 


0129 


G207 


0130 


012E 


G208 


0127 


0123 


G209 


0134 


0132 


N1D0 


014F 


0100,0139 


N101 


014D 


0OD5,0ODC.C0DF,00EF,00F7, 01 3^,0151 


N1D2 


01 4E 


00EB.00F4 


N1E0 


0150 


00F8.00FD, 0104, 0106, 0150 


N1F2 


0151 


0100 


N100 


002F 


0038, 003B 


N140 


008B 


0040, 008C, 0090, 00D8,00E2,00E3.00E6,00EE 


N202 


0152 


013E.0145 


N203 


0153 


0148 


OATE 


15MAY67 


EC NO. 


411721 
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D1MAL HEADER TEST 


(CARD) 


TKST1 






P1D 


0014 


C154 


K300A 


001F 


300A 


W300B 


0021 


300B 


W300C 


0024 


300C 


M30OD 


0025 


300D 


W300E 


0026 


300E 


W300F 


0027 


300F 


1*3004 


0017 


3004 


K3005 


0019 


3005 


H3006 


001A 


3006 


W3007 


001C 


3007 


113008 


0010 


3008 


K30G9 


001E 


3009 


M301& 


0042 


301A 


K301& 


0045 


301B 


WHO K. 


0048 


301C 


H301D 


C04C 


3010 


W301E 


0050 


301c 


K301F 


0054 


301F 


H3010 


0028 


3010 


N3011 


0029 


3011 


W3012 


002A 


3012 


H3013 


002E 


3013 


K3014 


0032 


3014 


N3015 


0034 


3015 


W3016 


0037 


3016 


W3017 


003A 


3017 


KaOlB 


0030 


3018 


W301V 


003F 


3019 


K302A 


0080 


302A 


K3023 


0084 


302B 


Ki^iC 


00!l7 


302C 


W3021- 


0089 


302D 


KH02E 


OOdF 


302E 


h302f 


0093 


302F 


h3G20 


0053 


3020 


K3021 


005C 


3021 


K3022 


0060 


3022 


W3023 


006 V 


3023 


K3024 


0068 


3024 


H3025 


006C 


3025 


M3026 


0070 


3026 


M3027 


0074 


3027 


M3028 


0078 


3028 


W3Q29 


007C 


3029 


K303A 


OOBF 


303A 


W303B 


00C3 


303B 


H303C 


00C7 


30 3C 


H303D 


OOCB 


3030 


K303E 


OOCF 


303E 


W303F 


C0D2 


303F 


W3O30 


0097 


3030 


W3031 


009B 


3031 


H3032 


009F 


3032 


W3033 


00A3 


3033 


W3034 


00A7 


3034 


W3035 


OOAB 


3035 


M3036 


OOAF 


3036 


U3037 


00B3 


3037 


W3038 


00B7 


3038 


H3039 


OOliB 


3039 


K304A 


OOF A 


304A 


H304b 


OOFF 


304B 


K304C 


0103 


304C 


N304D 


0108 


30 •'. - 


W304F 


010B 


304E 


N304F 


010C 


304F 


W3040 


0004 


3040 


DATE 


15MAY67 


EC NO. 


411731 
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:> 
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OIMAL HEADER TEST ICA1D) 
TEST1 



W3041 


00D7 


3041 


W3042 


OODB 


3042 


H3043 


OODE 


3043 


U3044 


00E1 


3044 


H3045 


00E5 


3045 


H3046 


00E9 


3046 


W3047 


OOED 


3047 


U3048 


00F2 


3048 


W3049 


00F6 


3049 


H305A 


0126 


305A 


W305B 


012A 


3056,0127 


W305C 


012F 


305C012C 


H305D 


0133 


3050,0130 


W3C5E 


0137 


305E 


W305F 


0138 


305F 


H3050 


0110 


3050 


U3051 


0111 


3051 


H3052 


0114 


3052 


H3053 


0115 


3053 


W3054 


0118 


3054 


M3055 


0119 


3055 


H3056 


one 


3056, OHA 


M3057 


0121 


3057 


M3056 


0122 


3058 


U3059 


0125 


3059 


W3060 


01 3D 


3060. 013A 


H3061 


0142 


i"ib\, 013F 


H3062 


014A 


3062 


M3063 


014B 


3063 



DATE 
EC NO. 



15MAY67 
411731 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



OIMAL HEADER TEST 
TEST2 



02BC 



(CARD) 



ABS 

ORG /3064 

is**************************"**************** 
* WAITS ER r iDi COMMENTS 

**« ** ********************** stss»S**t*«M*»« v*» 



3064 





0018 


3065 





0010 


3C66 





0020 


3067 





0021 


3066 





002 7 


3069 





002E 


306A 





0033 


306B 





0036 


306C 





003F 


3060 





0045 


3066 





0046 


306F 





00S2 


3070 





0059 


3071 





0060 


3072 





006A 


3073 





0084 


3074 





00fc9 


3075 





OOBF 


3076 





0096 


3077 





009C 


3078 





00m2 


3079 





00A9 


307A 





00 H 3 


307b 





oce.9 


307C 





OOCl 


30 7D 





00C7 


3076 





OOCE 


307F 





0004 


3080 





OODA 


3081 





GCDF 


308? 





00E5 


3083 





00fc» 


3084 





00F5 


3Co5 





OOFA 


3086 






0014 





0200 



0154 



0015 





4002 


0016 





0016 


0017 





3064 


0018 





0000 


0019 





COFE 


001A 





FOFB 


001B 





4820 


001C 





3065 



001D 03 44080022 
001F 3066 

0020 3067 

0021 001F 

0022 COOO 

0023 COFE 



DC . 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

OC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

OC 

DC 

DC 

DC 



W3064+1 
W3065+1 
H3066+1 
W3067+1 
W3068+1 
W3069+1 
W306A+1 
H306B+1 
W306C*1 
W306D+1 
W306E+1 
H306F+1 
W3070-rl 
W3071+1 
H3072t1 
W3073+1 
K3074+1 
W3075+1 
W3076+1 
W3C~7+1 
W3078+1 
H3079+1 
W307A+1 
W3076+1 
W307C+1 
W307D+1 
H307E+1 
W307F+1 
W3080+1 
H30B1+1 
W3082+1 
W3083+1 
W3084+1 
W3085+1 



BS1 SKPD-SHOULD BRNC 
BS1 HOT STORED I REG 
BSI ->■ C ELL THROUGH 
BS1 SM>D-SHOUtD BNC 
BSI LOT STORE I REG 
STORE FAILED 
D E Srf NOT ZERO 
D E S* NOT ZERO 
S/P SW NOT ZERO 
S/P Srf NOT ZERO 
SRA 16 FAILED 
SRA 15 FAILEO 
SRA 1 FAILEO 
SRA ] FAILED 
COKc SRA FAILED 
AI.D CF AND FAILEO 
AND t- AND 1 FAILED 
AND CF 1 ANO FAILED 
AND CF 1 ANO 1 FAILEO 
OR OF AND FAILED 
OR Or ANO 1 FAILEO 
OR CF 1 AND 1 FAILEO 
ACC fciSTROYED AFTER 
ADD T 3 MEM FAILFD 

THRU FAILED 
1 THRU FAILED 
^2-A REG FAIL2D 
S2-0 REG FAILED 
SRT 32-A REG FAILEO 
SRT 12-0 REG FAILED 
SRT 35-A REG FAILED 
SRT 15-0 REG FAILEO 
SERIES SRT FAILED 
SEklES SRT FAILED 



ALL 
ALL 
SRT 
SRT 



****»***S**<-*SS.#*4****4 «****.= ---$*** *********** 

ORG 20 

eft******************************************** 
P1D DC /0200 P1D 

* 

RAREA EQU 340 

********************************************** 



TEST SHORT AND LONG FORM 
BSI 



« 
* 



BSI 
N240 OC 
W3064 OC 
* 

N241 DC 
LO 
EOR 
BSC 
W3065 DC 
* 

BSI 
W3066 DC 
W3067 DC 
* 

N242 DC 

N243 DC 

LD 



N241 
N240 
/3064 

/OOOO 

N241 

N240 

Z 

/3065 

N243.+ 

/3066 

/3067 

W3066 
/OOOO 
N243 



BSI SKPD-SHOULD BRNC 



BSI NOT S10RE0 I REG 



BSI ♦ FELL THROUGH 
BSI SKPD-SHOULD BNC 



DATE 
EC NO. 
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80200010 

80200020 

80200030 

80200040 

80200050 

80200060 

80200070 

80200080 

80200090 

80200100 

80200110 

80200120 

80200130 

8C200140 

80200150 

6020016C 

80200170 

80200180 

80200190 

80200200 

80200210 

80200220 

30200230 

802002 '.0 

80200250 

80200260 

802002 70 

80200280 

80200290 

80200300 

80200310 

80200320 

80200330 

802 ■'0340 

80200350 

60200360 

80200370 

80200330 

802J0390 

80200400 

80200410 

80200420 

80200430 

80200440 

80200453 

80200460 

80200470 

80200480 

8020L490 

80200530 

80200510 

60200520 

60200530 

80200540 

80200550 

80200560 

30200570 

80200580 

80200590 

80200600 

80200610 

80200620 

80200630 

B0200o40 

80200650 

80200660 

80200670 

80200680 
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0024 FOFC 

0025 4820 

0026 3068 



0027 





C044 


0028 





D04B 


0029 





C050 


002A. 





C049 


002B 





F040 


002C 





4820 


U02D 





3069 



002E 0830 
002F C03E 
0030 00 4C180034 

0032 306A 

0033 70FA 

0034 0839 

0035 00 4C 180039 

0037 306B 

0038 70FB 

0039 0836 
003A C037 
003b E039 
003C 00 4C180940 
003E 306C 
003F 70F9 

0040 0831 

0041 E033 

0042 00 4C18G0',6 

0044 3060 

0045 70FA 



0046 C034 

0047 1610 

0048 00 44000115 
004 A 306 E 
0048 70 FA 

004C C029 

0040 180F 

004E F02F 

OO'.F 00 44000115 



DATE x 
EC NO. 



15MAY67 
411731 





EOR 




N242 




80200690 






BSC 




Z 




80200700 




W3068 


DC 




/3068 


BSI NOT STORE 1 REG 


80200710 




* 










60200720 




********************************************** 


80200730 




* 










80200740 




* 






TEST 


OF 1NSTR RE0U1RED FOR 


60200750 




* 






ERROR 


CONTROL 


80200760 




* 










60200770 




********************************************** 


80200780 






LD 




F900 




80200790 






STO 




F912 




80200800 






LD 




N300 




80200810 






LD 




F912 




60200820 






EOR 




F9P0 




80200830 






BSC 




Z 




80200640 




W3069 


DC 




/3069 


STORE FAILED 


80200850 




* 










60200860 




******* ******<;******************************«i* 


60200870 




* 










80200880 




• 






TEST READ 


AND SENSE OF OATA ENTRY 


60200690 




* 






AND SENSE/PROGRAM SWITCHES 


60200900 




* 










60200910 




4«tt«ttt«»4t*«»**»»t***»*«»t»tt****et«M*»t*» 


80200920 




G904 


XIO 
LO 




F900 
F901 


READ DATA ENTRY SW 


80200930 
60200940 






BSC 


L 


G905.+- 


BCH IF OKAY 


60200950 




H306A 


OC 




/306A 


E SW NOT ZERO 


80200960 






MDX 




G904 


LOOP 


60200970 




* 










802C0980 




G905 


XIO 




F901 




8020099U 






BSC 


L 


G906.+- 


BCH IF OKAY 


80201GOO 




W306B 


OC 




/306B 


D E SW NOT ZERO 


80201010 






MDX 




G905 


LOOP 


80201020 




* 










80201030 




G906 


XIO 

LD 

ANO 




F902 
F903 
F923 




80201040 
80231050 
6020 1C60 






BSC 


L 


G907.+- 


BCH IF OKAY 


80201070 




U306C 


DC 




/306C 


S/P SW NOT ZERO 


80201080 






MDX 




G906 


LOOP 


802C1090 




* 










80201100 




G907 


XIO 
ANO 




F903 
F923 




80201110 
80201120 






BSC 


L 


A280t+- 


BCH IF OKAY 


80201130 




N306D 


DC 




/306D 


S/P SW NOT ZERO 


80201140 






MDX 




G907 


LOOP 


80201150 




********************************************** 


60201160 




* 










60201170 




* 






BEGINING OF SECTION OF 


60201180 




* 






PROGRAM USING COMMON ERROR 


80201190 




• 






CONTROL ROUTINE 


80201200 




* 










80201210 




*****************!/*************************#** 


80201220 




* 










80201230 




* 






TEST 


OF SRA OPERATION 


80201240 




• 










80201250 




♦ a******************************************** 


80201260 




A280 


LD 
SRA 




N303 
16 




8C2012 70 
80201260 






BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80201290 




W306E 


OC 




/306E 


SRA 16 FAILEO 


80201300 






MDX 




A280 


LOOP 


80201310 




**************** v********************* ******** 


80201320 




A281 


LD 

SRA 

EOR 




N281 

15 

N282 




80201330 
80201340 
80201350 






BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80201360 

PROG ID 
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0802-1 
7A 



N 
E 



t 
1 
f 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 2242253 
PAGE 6 



CI HAL H 


;ader test 


(CARD) 












TFST2 
















0051 


306F 


W306F DC 




/30SF 


SRA 15 FAILED 


80201370 




0052 


70F9 


MOX 




A281 


LOOP 


80201380 








**********w**** *»********»>* *********** *•»*««* 


80201 390 




0053 


C023 


A282 LD 




N283 




80201400 




0054 


1801 


SRA 




1 




80201410 




0055 


F022 


EUR 




N284 




80201420 




005< 00 


44000115 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SU 


80201430 




0056 


3070 


W3070 DC 




/3070 


SRA 1 FAILED 


80201440 




0059 


70F9 


MOX 




A282 


LOUP 


80201450 








***¥*****************************************»■ 


80201460 




005A 


C01D 


A283 LD 




N284 




80201470 




005B 


1801 


SRA 




1 




80201480 




005C 


F01C 


EOR 




N285 




80201490 




0050 00 


14000115 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80201503 




005F 


3071 


M3071 DC 




/3071 


SRA 1 FAILED 


80201510 




0060 


70F9 


MDX 




A283 


LOOP 


80201520 








♦ ♦a****************************** *******. ****** 


80201530 




0061 


C014 


4284 LD 




N281 




80201540 




0062 


1801 


SRA 




1 




80201550 




C063 


1802 


SRA 




2 




80201560 




0C64 


1804 


SRA 




4 




80201570 




0065 


1808 


SRA 




8 




80201580 




0066 


F017 


EOR 




N282 




8012 t>l 590 




0067 00 


44000115 


BSI 


L 


FOOO 


ChECK ERR OR LOOP SW 


80201600 




0069 


3072 


V -072 DC 




/30/2 


COMB SRA FAILED 


80201610 




006A 


70F6 


MDX 

• 




A284 


LOOP 


8C201620 
80201630 




006B 


7013 


MDX 




A2C0 


EXIT 


80201640 








********«*«*******««*»***•**********: ********* 


80201650 




006C 


COOO 


BSS 


E 






80201660 




006C C 


C06E 


F900 DC 




F901 


READ ADDRESS 


80201670 




006U 


0240 


DC 




/0240 


READ DES 10CC 


8C2016B0 




006E 


0000 


F901 DC 




/OOOO 


BIT SWiTCrl STORAGE 


80201690 




006F 


0740 


DC 




/0740 


SENSE OES IOCC 


80201700 




0070 


0072 


F902 DC 




F904 


READ ADDRESS 


90201710 




0071 


0260 


OC 




/0260 


RtAD S/P IOCC 


80201720 




0072 


0000 


F903 DC 




/OOOO 


S/P SWITCH STORAGE 


80201730 




0073 


0760 


DC 




/0760 


SENSE S/P IOCC 


80201740 








**»**» ? ****** ««»»*t*»*»»»»tttt«t*» ************ 


80201750 




0074 


0000 


F912 DC 




/OOOO 


STORAGE 


80201760 




0075 


FFOO 


P923 DC 




/F*00 


CONSTANT 


80201770 




0076 


8003 


N2B1 DC 




/8000 


CONS TAN 


80201780 




0077 


AAA A 


N283 DC 




/AAAA 


CONSTANT 


80201790 




0078 


5555 


N284 DC 




/5555 


CONSTANT 


80201800 




0079 


2AAA 


N285 OC 




/2AA« 


CONSTANT 


80201810 




007A 


OOOC 


M300 DC 




/OOOO 


CONSTANT 


80201820 




007B 


FFFF 


N303 DC 




/FFFF 


CONSTANT 


80201830 




007C 


3000 


N842 DC 




/3000 


STDHAGE 


80201840 




0070 


3001 


N846 OC 




/3001 


CONSTANT 


80201850 




007E 


000). 


N282 DC 




/0001 


CONSTANT 


80201860 








♦ft******************************************** 


80201870 








* 








80201880 








• 




TEST 


OF AND FUNCTION 


80201890 








* 








80201900 








******* ***********«*****•*****•*$**•**•:******* 


80201910 




007F 


COFA 


A2C0 LD 




N300 




•0201920 




0080 


E0F9 


AND 




K300 




80201930 




0081 00 


44000115 


esi 


L 


FOOO 


CHECK ERR OR LOOP SW 


60201940 




0083 


3073 


H307? DC 




/3073 


AND OF AND FAILED 


80201950 




0084 


70FA 


MDX 




A2C0 


LOOP 


80201960 




0085 


E0F5 


AND 




N303 




80201970 




0086 00 


44000115 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80201980 




0088 


3074 


W3074 DC 




/3074 


AND OF AND 1 FAILED 


80201990 




0089 


70F5 


MDX 




A2C0 




80202000 








ft,.********************************!************ 


80202010 




008A 


COFO 


A2C8 LD 




N303 




80202020 




008B 


fcOEE 


AND 




N300 




80202030 




008C 00 


44000115 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80202040 




DATE 


15MAY67 










PROG ID 


0802-1 


EC NO. 


411731 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



OIMAL HEADER TEST (CARD) 
TEST2 



008E 
008F 

0090 

0091 

0092 



3075 
70FA 

COEA 
EOl? 
F0E8 



W3075 DC /3075 AND OF 1 AND FAILED 
MDX A2C8 LOOP 

a********************************************* 



A2CC 



0093 00 44000115 

0095 3076 

0096 70F9 



0097 C0E2 

0098 E8E1 

0099 00 44000115 
0098 3077 
009C 70FA 
009D E8DD 
009E FOOC 
009F 00 44000115 
00A1 3078 
00A2 70F4 

00A3 C0D7 
00A4 E8D6 
00A5 F0D5 
OOAi 00 44000115 
00A8 3079 
00A9 70F9 



LD 

AND 

EOR 

BSI L 
W3076 DC 
MDX 



N303 

:»303 

N303 

FOOO 

/3076 

A2CC 



CHECK ERR OR LOOP SW 
AND OF 1 AND 1 FAILED 
LOUP 

*e***********************»******************** 

* 

* TEST OF OR FUNCTION 

********************************************** 



A300 LD 
OR 
BSI 

W3077 DC 
MDX 
PR 
EOR 
BSI 

W3078 DC 
MDX 



N300 

N300 

FOOO 

/3077 

A 300 

N303 

N303 

FOOO 

/3078 

A 300 



CHECK ERR OR LOOP SU 
OR OF AND FAILED 
LOOP 



CHECK 
OR OF 



ERR OR LOOP SW 
AND 1 FAILED 



********************************************** 
A304 



LD 
OP. 
EOR 
BSI 
W3079 OC 
MDX 



N303 

N303 

N303 

FOOO CHECK ERR OR LOOP SU 

/3079 OR OF 1 AND 1 FAILED 

A304 LOOP 
********************************************** 
• 
• TEST OF MDX LONG FORM INST 

a********************************************* 



CHECK ERR OR LOOP SW 
ACC DISTROYED AFTER 



001 A 


C067 


G842 


LD 




DSW 


OOAB 


DODO 




STO 




N842 


OOAC 


COBF 




LD 




F900 


OOAD 00 


7401007C 




MDX 


L 


N842.1 


OOAF 


FOCC 




EOR 




F900 


OOBO 00 


'•4000115 




BS! 


L 


FOOO 


00B2 


307A 


W307A 


DC 




/307A 


00B3 


70F6 




MDX 




G842 


O0B4 


C0C7 




LD 




N842 


00B5 


F0C7 




EOR 




N846 


00B6 00 


44000115 




BSI 


L 


FOOO 


00B8 


307B 


W307B 


DC 




/307B 


00B9 


70F0 




MDX 




G842 



CHECK ERR OR LOOP SW 
ADD TO MEM FAILED 



**•*•*-•»*•**•••« ****************************** 
* TEST OF RTF 16 OPERATION 

********************************************** 



OOBA 


COBF 


A340 


LD 


N300 


OOBB 


18D0 




RTE 


16 


OOBC 


COBE 




LD 


N303 


OOBD 


18D0 




RTE 


16 


OOBE 00 


440001J.5 




BSI L FOOO 


OOCO 


307C 


W307C 


DC 


/307C 


00C1 


70F8 




MDX 


A 340 


00C2 


18D0 




RTE 


16 


00C3 


F0B7 




EOR 


N303 


00C4 00 


440001 :.5 




BSI 


. FOOO 


OOCb 


307D 


W307D 


DC 


/307D 


00C7 


70F2 




MDX 


A340 



CHECK ER1 OR LOOP SW 
ALL THRU FAILED 
LOOP 



CHECK ERR OR LOOP SW 
ALL 1 THRU FAILED 
LOOP 

***************** ********** ******************* 



OATE 
EC NO. 



15MAY67 
411731 



PART KO. 2242253 
PAGfc 8A 



80202050 

80202060 

8O2O207O 

80202080 

80202090 

80202100 

60202 1 lO 

80202120 

80202 1 30 

8C202140 

80202150 

810202 160 

80202170 

80202180 

80202190 

80202200 

80202210 

80202220 

8O20223O 

8020224C 

80202250 

•0232260 

80202270 

80202280 

80202290 

80*02300 

84202 310 

60202320 

80202 330 

80292340 

80202350 

80202360 

60202 370 

80202380 

80202390 

80202400 

80202410 

8O202420 

80202430 

80202440 

80202450 

8020246C 

80202470 

60202490 

80202490 

80202500 

80202510 

60202520 

80202530 

80202540 

80202 550 

80202560 

80202570 

60202S8O 

•0202590 

80202600 

80202610 

80202620 

80202630 

80202640 

uO20265C 

•0202660 

80202670 

80202680 

80202690 

80202700 

80202710 

80202 720 



Htoe 10 
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6A 



N 

< i 



<((<<<<(<<<<< «,-(' <<<<<<<<<<<(<<<<< 



IBM MAINTENANCE DIAGNOSTIC PROGRAH FOR THE 1800 SYSTEM 



PART NO. 2242253 
PAGE 9 



DIMAL HEADER TEST (CARD) 














TEST2 




* 
* 
« 






TEST 


OF SRT OPERATION 


80202730 
80202740 
80202 7 SC 








#*«*******=* 


ss »»?«***.»******»**»#*** **s*******» 


80202760 




OOCB 


COAO 


A380 


LD 




N281 




80202770 




O0C9 


18A0 




SRT 




32 




60202780 




OOCA 


r-obo 




EOR 




N303 




80202790 




OOCB 00 


44000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80202800 




OOCO 


30 7 E 


W307E 


DC 




/307E 


SRT 32-A REG FAILED 


80202810 




OOCE 


70FO 




MDX 




A380 


LOOP 


80202820 




OOCF ' 


1800 




RTE 




16 




80202830 




0000 


FOAA 




EOR 




N303 




80?02840 




0001 00 


•,4000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80202850 




0003 


307F 


W307F 


DC 




/307F 


SRT 32-0 REG FAILED 


802028(0 




00D4 


7 OF 3 




MDX 




A380 


LOOP 


80202870 








**S»*»S**Si 


sa 


s**«*****# 


»*««»*« »#***»******»«** 


80202880 




00D5 


C03E 


A384 


LD 




N382 




80202890 




00D6 


I8A0 




SRT 




32 




80202900 




00D7 00 


4400011 -j 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80202910 




0009 


.5080 


H3080 


DC 




/3080 


SRT 32-A REG FAILED 


80202920 




OOUA 


70FA 




MDX 




A384 


LOOP 


80202930 




OOUB 


1800 




RTE 




16 




80202940 




OOOC 00 


m4000i15 




BSI 


L 


FOOO 


CHECK ERR OR i.COP SW 


80202 9 50 




OOOE 


3081 


W3081 


DC 




/3C81 


SRT 32-0 REG FAILED 


80202960 




OOUr" 


70F5 




MDX 




A384 


LOOP 


80202970 








»**«**»*«»: 


SS3- 


»*SSS9**S*****#*#**#»**«#*******# 


80202980 




OOEO 


C097 


A388 


LD 




N284 




80202990 




00E1 


188F 




SRT 




15 




80203000 




00E2 00 


..4000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80203010 




00E4 


3082 


W3082 


DC 




/3082 


SRT 15-A REG FAILED 


80203020 




00E5 


70FA 




MDX 




A38& 


LOOP 


80203030 




00E6 


mr.o 




RTE 




16 




8020 3C 40 




00E7 


F03F 




EOR 




N283 




80203050 




00E8 00 


'•4000115 




BSI 


L 


FOOO 


CHECX ERR OR LOOP SW 


8020 3060 




OOEA 


3083 


W3083 


DC 




/3082 


SRT 15-0 REG FAILED 


80203070 




OOEB 


70F4 




MDX 




A388 


LOOP 


80203080 








«**«»*«>*»« 


fiiS«(SStSM*«»tS***»***"S««****« 


80203090 




OOEC 


C08B 


A38C 


LO 




N264 




80203100 




OOEO 


i860 




SRT 









80203110 




OOEE 


:.882 




SRT 




2 




80203120 




OOEF 


-884 




SRT 




4 




80203130 




OOFO 


^886 




SRT 




6 




80203140 




00F1 


:.888 




SRT 




8 




80203150 




00F2 


:.88A 




SRT 




10 




8020316C 




0OF3 


4021 




BSI 




FOOO 


CHECK ERR OR LOOP SW 


80203170 




0OF4 


3084 


H3084 


DC 




/3084 


SERIES SRT FAILED 


80203180 




00F5 


'0F6 




MDX 




A38C 


LOOP 


80203190 




00F6 
00F7 


-8DD 
F086 




RTE 
EOR 




16 

N262 




60203200 
60203210 




OOFS 


<i01C 




BSI 




FOOO 


CHECK ERR OR LOOP SW 


80203220 




00F9 


3085 


W308S 


OC 




/3085 


SERIES SRT FAILED 


802032 30 




OOFA 


70F1 




MDX 




A38C 


LOOP 


80203240 








*«#**«*«£$ 


««M»W»t»««»t*4****»t**St»»*»*«* 


802032 50 




OOFB 00 


C4000011 




LD 


L 


/ll 




80203260 




OOFO 


1:813 




OR 




READ+l 




80203270 




OOFE 


1)012 


* 


STO 




RFAD+1 




60203280 
60203290 




OOFF OC 


C400000D 




LO 


L 


/O 




60203300 




0101 


1:811 




OR 




DSW+1 




80203310 




010-2 


0010 


* 


STO 




DSW+1 




60203320 
80203330 




0103 


COOB 




LD 




N383 




80203340 




0104 


D04F 




STO 




RAREA 




80203350 




0105 


1000 




NOP 








60203360 




0106 


1000 


* 


NOP 








60203370 
80203380 




0107 00 74010111 


CNTL 


MDX 


L 


REA.D+1,1 


ADJUST REAC SECTOR 


80203390 




0109 


0806 




XIO 




READ 




80203400 




DATE 


15MAY67 












PROG ID 


0602-1 


EC NO. 


411731 
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IBM MAINTENANCE DIAGNOSTIC FROGRAM FOR THE 1800 SYSTEM 



DIMAL HEADER TEST 


(CARD) 








TEST2 












01 OA 


0807 


CHECK 


XIO 


OSW 




0108 


1002 




SLA 


2 




010C 


4828 




BSC 


+ Z 




010D 


70FC 




MDX 


CHECK 


6CH NOT READY 


010E 


7048 


* 
N383 


MDX 


RAREA+3 


BCH TO PROG 


010F 


0141 


DC 


321 




0110 


ocoo 




BSS 


E 




0110 


0154 


READ 


DC 


RAREA 


READ AREA 


Olll 


0601 




DC 


/0601 


OISC IOCC 


0112 


3000 


DSW 


DC 


/3000 


CONSTANT 


0113 


0701 




OC 


/0701 


SENSE DSW IOCC 


0114 


4000 


N382 


OC 


/4000 


CONSTANT 



« ERROR CONTROL SUB-ROUTINE 

* 

BO- BYPASS WAIT 

81- LOOP INSTRUCTION 



0115 0000 

0116 4818 

0117 7005 

0118 00 OC00006E 

011A 4810 
011B 700B 
011C 7007 

0110 00 OC00006E 
Ollr 1001 

0120 4828 

0121 7002 

0122 00 74010115 
0124 00 74010115 

0126 1010 

0127 00 4C000115 



* 

* 

* 

FOOO DC 
BSC 
MDX 
XIO 

» 

BSC 
MOX 
MOX 



/OOOO 

+- 

OUT 

F901 



UUT2 
0UT1 



RETURN ADDRESS 
IS ACC ZERO 

* YES 

» NO 

iS BIT ON 

* NO 
» YES 



* 
OUT 



012A 



0115 



XIO L F901 

SLA 1 

BSC *Z 

MOX 0UT1 

MDX L FOOOtl 

0UT1 MDX L F000,1 

SLA 16 

0UT2 BSC 1 FOOO 
* 

END X *-PID END CARD NOT USED 8020 



CHECK BIT I 
IS BIT 1 ON 
* YES 
» NO 

CLEAR ACC 

RETURN TO PROGRAM 



PART NO. 2242253 
PAGE 9A 



60203410 
80203420 
8020343C 
80203440 
80203450 
80203460 
80203470 
60203460 
80203410 
80203500 
80203610 
80203520 
80203630 
80203540 
80203550 
80203560 
80203570 
80203580 
80203590 
80203600 
80203610 
30203620 
80203630 
80203640 
802036-0 
8020366C 
80203670 
80203680 
802036*0 
80203700 
80203710 
80203720 
802037 30 
80203740 
80203750 
80203760 
8C203770 
80203760 
80203790 
60203SOO 
80203810 
80203820 
382 80203830 



DATE 
EC MO. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



DIMAL HEADER TEST ICARDI 
TEST2 



PART NO. 2242253 
PAGE 10 



CROSS (-EFERENCE LISTING 

SYMBOL VALUE REFERENCES 

A2CC 0090 0096 

A2C0 007F 006B, 0084, 0089 

A2CU 008A 008F 

A2B0 0046 0042,0048 

A281 004C 0052 

A282 0053 0059 

A263 005A 0060 

A284 0061 006A 

A300 0097 009C.00A? 

A304 00A3 OOAO 

A340 OOBA 00C1.00C7 

A38C OOEC 0OF5,OOFA 

A380 OOCf! OOCE.0004 

A384 0005 OODA.OODF 

A388 OOEO 0OE5,O0E8 

CHECK 010A 010D 

CNTL 0107 

OSW 0112 OOAA, 0101, 0102, 010A 

FOOO 0115 0048, 004F, 0056, 0050,0067, 0081, 0086, 008C, 0093, 0099, 
009F,00A6,00fa0,OOB6, 00b E,00C4,O0CB, 0001, 0007, COOC, 
0OE2,O0E8,O0F3,00Ft,O12 2,0124,0127 

F900 006C 0O27,OO2B,1O2E,OOAC,00AF 

F901 006F 002F, 0034, 006C, 0118, 0110 

F902 0070 0039 

F903 0072 003A, 0040, 0070 

F912 0074 0028, 002A 

F923 0075 0033,0041 

G842 OOAA O0B3,OOB9 

G904 0C2E 0033 

G905 0034 0030,0038 

G906 0039 0035, 003F 

G907 0040 003C0045 

N240 0016 0016, 001A 

N24) 0018 0015,0019 

N"42 0021 0024 

N243 0022 0010,0023 

N281 0076 004C,0061,OOC8 

N282 007% 004E,0066,OOF7 

N2B3 0077 0053, O0E7 

N284 O078 0O55.O05A, OOEO, OOEC 

N285 0079 005C 

N300 007A 0029, 007F, 0080. 008B, 0097, 0096, OOBA 

N303 007B 0046, 0085, 008A, 0090, 0091, 0092, 0090, 009E,00A3,00A4, 

O0A5,OOBC,OOC3.00CA,O0D0 

N382 0114 0005 

N383 010F 0103 

N842 007C OOA3,O0AC,00B4 

N846 0070 C0B5 

OUT 0110 0117 

0UT1 0124 011C, 0121 

0UT2 0127 011B 

P1D 0014 C129 

RAREA 0154 0104, 010E ,01 1 

READ 0110 OOFO.OOFE, 0107, 0109 

W306A 0032 306A 

W306B 0037 306B 

W306C 003t 306C 

K3060 0044 3060 

W306E 004A 306E 

W306F 0051 306F 

W3064 0017 306* 

H3065 001C 3065 

W3066 00 IF 3066,0021 

W3067 0020 3067 

W3068 0026 3068 



DATE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



OIMAL HEADER TEST ICARO) 
TEST2 



H3069 


002D 


3069 


H307A 


0082 


307A 


W397B 


00B8 


307B 


H307C 


OOCO 


30 7C 


H3070 


00C6 


307D 


W307E 


OOCO 


307E 


W307F 


0003 


307F 


W3070 


0058 


3070 


W3071 


005F 


3071 


M3072 


0069 


3072 


H3073 


0083 


3073 


W3074 


0088 


3074 


W3075 


003E 


3075 


W3076 


0095 


3076 


V3077 


009B 


3077 


W3078 


00A1 


3078 


U3079 


0OA8 


3079 


W3080 


0009 


3080 


H3081 


OOOE 


3081 


H3C82 


00E4 


3082 


W3083 


OOEA 


3C83 


W3084 


0OF4 


i084 


W3085 


0OF9 


3085 
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DATE 
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0802-1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



DIKAL HEADER TEST (CARD) 
TEST3 



02BC 



30B6 





015F 


3087 





C165 


30H8 





C175 


3089 





C17A 


3CRA 





C18F 


308b 





0196 


308C 


(1 


01A2 


3080 





01A7 


308E 





0183 


30RF 





OlbB 


3090 





01C3 


3091 





01C8 


3092 





oioa 


3093 





0100 


3094 





01EF 


3095 





oir-4 


3096 





C1FF 


3097 





0204 


3096 


(1 


020F 


3099 





0215 


309A 





0225 


3098 





022A 


309C 





0239 


3090 





0242 


309H 


e 


(240 


309F 





0255 


30/.0 





0250 


30A1 





0265 


30A2 





C26B 


30A3 





0274 


30A4 





0279 


30A0 





0282 


30A6 





0287 


30 A 7 






0156 





0200 


0107 






0115 







0166 C018 

0167 18D0 

0168 C015 



ABS 

ORG /3086 

gas*************************** **************** 

* WAITS ERROR COMMENTS 

********************************************»'•* 

RTE 15-0 TO A FAILED 
RTE 15-A TO U FAILED 
SERIES RTF FAILED 
SERIES RTE FAILED 
SLA 16-CARRY FAILED 
SL1 16-166 3T 4 R 
SLA 16-CARRY FAILED 
SLA 16-AFFECTED REG 
SLA 1-CARRY FAILED 
SRA 1-AFFtCTEO REG 
SIA 1-CARRY FAILED 
SLA 1-AFFECTED REG 
COMB SLA-CARRY FAILED 
COMB SLA-AFFcCTEO 
SLT 32-CARRY FAILED 
SLT 32-0 REG FAILED 
SLT 16-CARRY FAIIEO 
SLT 16-0 REG FAILED 
SLT 15-CARRY FAILED 
SLT 15-0 REG FAILED 
COMB SLT-CARRY FAILED 
COMB SLT-0 REG FAILE 
STORE ZEROS FAILED 
STO ONES FAILED 
STS FAILED TO STORE 
ACC GONE AFT LDS-STS 
STS NOT CLEAR CARPY 
STS NOT CLEAR OVERFLW 
STS FAILED TO STliKE 
STS FAILED TU STORE 
STS NOT CLEAR CARRY 
STS FAILED TO STORE 
STS NOT CLEAR OVERFL 

<-*****"*****"** **£##***£***#******************** 

* 

ORG 342 

**<******«*****************«********* ********* 

PIO DC /0200 PID 

* 

CNTL EOU /0107 

FOOO EOU /0115 

********************************************** 

* 

* TEST OF RTE OPERATION 

* 

********************************** ************ 



CHECK ERR OR LOOP SW 
RTE 15-0 TO A FAILED 
LOOP 



CHECK ERR OR LOOP SW 
RTE 15-A TO FAILED 
LOOP 

A********************************************* 
A3C4 LO N3C3 

RTE 16 

LD N3C2 



DC 


W3086+1 


DC 


W3087+1 


DC 


W3088+1 


DC 


W3089+1 


DC 


W308A+1 


DC 


W308B+1 


DC 


W308C+1 


DC 


W308D+1 


DC 


W308F. + 1 


DC 


W308F+1 


DC 


W3090+1 


DC 


W3091+1 


DC 


W3092+1 


DC 


W3093+1 


DC 


W3094+1 


DC 


W3095+1 


DC 


W3096+1 


DC 


W3097 1 


DC 


W3098+1 


DC 


W3099->-l 


DC 


W309A+1 


DC 


W309P.t1 


DC 


W309C+1 


DC 


W309D+1 


DC 


W309E+1 


DC 


W309F+1 


DC 


W30A0+1 


DC 


W30A1+1 


DC 


W30A2+1 


DC 


W30A3+1 


DC 


W30A4+1 


DC 


W30A5+1 


DC 


W30A6+1 



0157 


CC25 


A3C0 


LD 


N3C1 


0158 


18D0 




RTE 


16 


0159 


C022 




LD 


N3C0 


015A 


18CF 




RTE 


15 


015B 


F024 




EOR 


N3C4 


015C 00 


44000115 




BSI 1 


FOOO 


015E 


3086 


W3086 


DC 


/3086 


015F 


70F7 




HDX 


A3C0 


0160 


1800 




RTE 


16 


0161 


F01F 




EOR 


N3C5 


0162 00 


44000115 




BSI 


. FOOO 


0164 


30B7 


won 


DC 


/3087 


0165 


70F1 




MOX 


A3C0 



OATE 
FC NO. 



15MAY67 
411731 



PART NO. 2242253 
PAGE 11 



80200010 

80200020 

80200030 

80200040 

80200050 

80200060 

80200070 

80200080 

60200090 

80200100 

80200110 

80200120 

80200130 

80200140 

80200150 

60200160 

80200170 

80200180 

80200190 

60200200 

80200210 

8020022C 

802002 30 

60200240 

802002 50 

80200260 

80200270 

80200280 

80200290 

80200300 

80200310 

802003" > 

80200330 

80200340 

80200350 

80200360 

80200370 

80200380 

80200390 

80200400 

80200410 

80200420 

80200430 

80200440 

80200450 

60200460 

80200470 

80200480 

80200490 

80200500 

60200510 

80200520 

80200530 

80200540 

8020C550 

80200560 

80200570 

80200560 

80200590 

80200600 

80200610 

80200620 

80200630 

80200640 

80200650 

80200660 

8020067C 

80200680 



PROG ID 
PAGE 



0807-1 
11 



4 


A 


z 


• 


i 




5 




3 * 


} J 


7 




7 




■> 




") 




1 




1 




1 


3 


1 


3 


I. 


1 


) 


"i 


) 


3 


") 


4* 


1 




7 


4» 


1 


4* 


3 


3 


* 
•* 


3 


4 


3 


I 


3 


t 




t 




t 




t 




t 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



DIMAL HEADER TEST (CARD) 
TEST3 



0169 


18C0 




RTE 





016/ 


18C1 




RTE 


1 


0168 


18C2 




RTE 


2 


016C 


18C3 




RTE 


3 


0160 


18C4 




RTE 


4 


016E 


18C5 




RTE 


5 


016F 


18C6 




RTE 


6 


0170 


18CA 




RTE 


10 


0.171 


F010 




EOR 


N3C6 


0172 00 


44000115 




BSI L FOOO 


0174 


3086 


W3088 


DC 


/30R8 


0175 C 


70F0 




MOX 


A3C4 


0176 


13D0 




RTE 


16 


0177 00 


44000115 




BSI 


L FOOO 


0179 


3069 


W3089 


DC 


/3089 


017A 


70EB 


* 


MOX 


A3C4 


017B 


7007 




MOX 


A400 






****»****»**»****•>* 


017C 


5555 


N3C0 


DC 


Z5555 


017D 


AAAA 


N3C1 


DC 


/AAAA 


017E 


0000 


N3C2 


DC 


/OOOO 


017F 


8000 


N3C3 


DC 


/bOOO 


0180 


5554 


N3C4 


DC 


Z5554 


0181 


AAAB 


N3C5 


DC 


/AAAB 


0182 


0001 


N3C6 


DC 


/OOOi 



CHECK ERR OR LOOP SW 
SERIES RTE FAILEO 
LOOP 

CHECK ERR OR LOOP SW 
SERIES RTE FAILED 
LOOP 

EXIT 

»«**»****«««**«****««** 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONST A NT 
******** ******************************** ****** 
* 
* TEST OF SLA OPERATION 

* 

******** ************************************** 



0163 00 

0185 

0186 00 

0188 

0189 00 
0188 
OlfiC 00 
018E 
018F 

0190 L 

0191 00 
0193 00 

0195 

0196 



C400010F 

18D0 

C400010F 

1010 

4C02018C 

C0E8 

44000115 

308A 

70F3 

1830 

F40001DF 

44000115 

30AB 

70EC 



A400 



LD 

RTE 
LD 
SLA 
BSC 
LD 
G404 BSI 
W308A DC 
MDX 
RTE 
EOR 
BSI 
W308B DC 
MOX 



N400 

16 

N400 

16 

G404,C 

W3088 

FOOO 

/308A 

A400 

16 

N400 

FOOO 

/308B 

AtOO 



CHECK ERR OR LOOP SW 
SLA lb-CARRY FAILEO 
LOOP 



CHECK ERR OR LOUP SW 
SLA 16-AFFECTED RE 
LOOP 



******* * ***v************s********************» 



0197 
0199 
019A 
019B 
019C 
019E 
019F 
01A1 
01A2 
01A3 
01A4 
01A6 
01A7 



00 C40001E4 
18D0 
C045 
1010 
00 4C02019F 
COEF 
00 44000115 
30 8C 
70F4 
1800 
00 44000115 
3C80 
70EF 



A408 LD 
RTE 
LD 
SLA 
BSC 
LD 

C40C BS I 

W308C DC 
MDX 
RTE 
BSI 

W308D DC 
MDX 



N405 

16 

N401 

16 

G40C-C 

W308A 

FOOO 

/308C 

A406 

16 

FOOO 

/308D 

A406 



CHECK ERR OR LOOP SW 
SLA 16-CARRY FAILED 
LOOP 

CHECK ERR OR LOOP SW 
SLA 16-AFF2CTE0 REG 
LOOP 



********************************************** 



01A8 C03B 
01A9 L8C0 
01AA C037 
01AB 1001 
01AC 00 4C0201AF 
01AE O 7001 
01AF F033 
01B0 00 44000115 



B400 



H402 
H400 



LD 

RTE 

LD 

SLA 

BSC 

MDX 

EOR 

BSI 



N405 
16 

N403 

1 

H402.C 
H400 
N404 
FOOO 



CHECK ERR OR LOOP SW 



DATE 
EC NO. 



15MAY67 
411731 



PART K3. 
PACE 



802OC69O 
802O070O 

80200 7 lO 

80200 720 

80200730 

80200740 

80200 7 50 

80200760 

80200V7O 

80200780 

80200790 

80200800 

80200810 

8020082C 

802008 30 

80200840 

802O0B5O 

60200860 

80200870 

60200860 

8020®.: 90 

80200900 

80200910 

80200*20 

80201* i 30 

802009*0 

802009 SO 

80200960 

802OOV7O 

80200980 

80200990 

80201000 

80201010 

8O2Oi02O 

80201030 

80201040 

60201050 

60201060 

80201070 

80201080 

80201090 

80201100 

80201110 

60201120 

80201130 

80201140 

60201 15C 

60701160 

60201170 

80201180 

80201190 

80201200 

80201210 

80201220 

80201230 

80201240 

80201250 

80201260 

80201270 

80201260 

80201290 

80201300 

80201310 

80201320 

80201330 

80201340 

80201 350 

80201360 



2242253 
11* 



PROG ID 
PACE 



0802-1 
11A 



t 



N 
E 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 2242253 
PAGE 12 



D1MAL HEADER TEST (CARDI 














TEST3 


















01B2 


30 8 E 


W3C8E 


DC 




/308E 


SLA 1-CARRY FAILED 


80201370 




01B3 
01 B4 
01B5 00 


70F4 
1800 
44000115 




MOX 
RTE 
BS1 


L 


B400 

16 

FOOO 


LOOP 

CHECK ERR OR LOOP SW 


80201380 
80201390 

80201400 




01B7 


30 BF 


U308F 


DC 




/308F 


SRA 1-AFFECTfcD REG 


80201410 




01B8 


70EF 


MDX 8400 LOOP 


80201420 
80201430 




01B9 
OIBA 

oir.e o 

01BC 


(.02A 
18D0 
(.025 
,001 


B406 


LD 
RTE 
LD 
SLA 




N405 
16 

N402 
1 




80201440 
80201450 
80201460 
80201470 




oibi) oo 

01BF 


4C0201C0 
r 022 




BSC 
EOR 


L 


H407.C 
N403 




80201480 
60201490 




OICO 00 


44000115 


H407 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SH 


80201500 




01C2 


3090 


(■"3090 


DC 




/3090 


SLA 1-CARkY FAILED 


80201510 




01C3 
01C4 
01C5 00 


V0F5 
1800 
44000115 




MDX 
RTE 
BSI 


L 


8406 

16 

FOOO 


LOOP 

CHECK ERR OR LOOP SW 


80201520 
60201530 
S0201540 




01C7 


3091 


W3091 


DC 




/3091 


SLA 1-AFFECTED REG 


80201550 




01C8 


70F0 




MDX 




B406 


LOOP 


60201560 








***#********-* 


*»****«*«#**»>?*«!**«■***'»«*****»*** 


80201570 




01C9 
OICA 


(.01 A 
IbDO 


B40A 


LD 
RTE 




N405 
16 




60201580 
80201590 




01CB 
01CC 


(.014 
1000 




LD 
SLA 




N401 





80201600 
S0201610 




OICO 
OlCb 
0!CF 


1001 
1002 
1004 




SLA 
SLA 
SLA 




1 
2 

4 




60201620 
80201630 
60201640 




01D0 


1006 




SLA 




6 




60201650 




0101 
01D2 00 


1003 
'C0201D5 




SLA 
BSC 


L 


3 
H400.C 




60201660 
60201670 




0104 


(.OKD 




LD 




W3090 




60201680 




011)5 00 


44000115 


H400 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


60201690 




010 7 


-.092 


W3092 


DC 




/3092 


COMB SLA-CARRY FAILC-0 


80201700 




0108 


70FO 




KOX 




B40A 


LOOP 


60201710 




0H>9 
01 DA 00 


1800 
'4000115 




RTE 
BSI 


L 


16 
FOOO 


CHECK ERR OR LOOP SH 


60201720 
60201730 




01 DC 


J.093 


W3093 


OC 




/3093 


COMB SLA-AFFECTED 


80201740 




01D0 


TOEB 


» 


MDX 




B40A 


LOOP 


60201750 
60201760 




01DE 


7006 




MOX 




A440 


EXIT 


60201770 








**<.»**»»**»*»»*»***.****»*************»******** 


60201780 




01DF 


FFFF 


N400 


OC 




/FFFF 


CONSTANT 


60201790 




01E0 


0001 


N401 


DC 




/0001 


CONSTANT 


80201800 




01E1 


£•555 


N402 


DC 




/5555 


CONSTANT 


60201810 




C1E2 


/.AAA 


N403 


DC 




/AAAA 


CONSTANT 


80201620 




01F3 
01E4 


t554 
0000 


N404 
N405 


DC 
DC 




Z5554 
/OOOO 


CONSTANT 
CONSTANT 


60201830 
60201840 ' 








»»»«{«****««»»*»»**»«»«»»«»**«•«»»»*«»»**»*•* 


80201850 








* 










60201860 








* 






TEST 


OF SLT OPERATION 


60201870 








* 










80201880 








***ft*******V 


«»»«««* V #WS «»*****»*«=«** »«**»*»»#* 


60201890 




01E5 


(046 


A440 


LD 




N440 




60201900 




01E6 


1800 




RTE 




16 




60201910 




01E7 


(045 




LD 




N441 




80201920 




01EB 


10AO 




SLT 




32 




60201930 




01E9 OC 


'C0201EC 




BSC 


L 


G442.C 




80201940 




01EB 


COEB 




LD 




N3092 




80201950 




01FC 00 '4000115 


G442 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80201960 




01EE 


•094 


W3094 DC 




/3094 


SLT 32-CARRY FAILEO 


60201970 




01EF 


70F5 




MDX 




A440 


LOOP 


60201960 




01F0 


18DD 




RTE 




16 




80201990 




01F1 00 44000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SH 


60202000 




01 Fi 


3095 


W309 


: DC 




/3095 


SLT 32-0 REG FAILED 


60202010 




01F4 


70F0 




MDX 




A440 


LOOP 


40202020 








»»4S»»W»»>*M»»«*t««' 


#»»»*«**»»***«*»*»»*»** 


80202030 




01F5 


(038 


A444 


ID 




N442 




80202040 




DATE 

tr tin. 


15MAV67 
41 17*1 












PROG ID 
PAGE 


0802-1 
12 



t • 

t t 

t * 

t 3 

t 3 

t 3 

I 3 

1 3 

a 3 

3 3 

3 3 

3 3 

3 3 

3 3 

3, 3 

3 3 

1 3 

3 3 

3 3 

t 3 

X 3 

t 3 

t 3 

t 3 
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• t 
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PART NO. 2242253 
PAGE 12A 



DIHAL HEADER TEST (CARD) 
TEST3 



01 F6 16D0 
01F7 C035 
01F8 1090 
01F9 00 4C0201FC 
OlFB F032 
01 FC 00 44000115 
01FE 3096 


G446 
W3096 


RTE 

LD 

SLT 

BSC 

EOR 

BSI 

DC 


L 

L 


16 

N441 

16 

5446, C 

N442 

FOOO 

/3096 


CHECK ERR OR 1 OOP SH 
SLT 16-CARRV FAILEO 


80202050 
6U202060 
80202070 
80202080 
80202090 
8)202100 
60202110 




01FF 70F5 

0200 1800 

0201 00 44000115 




MDX 
RTE 
BSI 


L 


A444 

16 

FOOO 


LOOP 

CHECK ERR OR LOOP SW 


80202120 
8C202130 
60202140 




0203 3097 

0204 70FO 


H3097 OC /3097 
MDX A444 

*********************** 


SLT 16-0 REG FAILEO 
LOOP 

**•*********»•***•****« 


60202150 
80202160 
60202170 




0205 C029 

0206 1800 

0207 C025 

0208 108F 

0209 00 4C02020C 
020B F024 
020C 00 44000115 


A44A 
G44C 


LD 

RTE 

LD 

SLT 

BSC 

EUR 

BSI 


L 
L 


N443 
16 

N441 
15 

G44CC 

N444 

FOOO 


CHECK ERR OR LOOP SH 


80202180 
80202190 
80202200 
80202210 
60202220 
60202230 
60202240 




020E 3098 
020F 70F5 

0210 18D0 

0211 FOIF 

0212 00 44000115 


W309B 


DC 

MDX 

RTE 

EOR 

BSI 


L 


/3098 

A44A 

16 

N445 

FOOO 


SLT 15-CARRY FAILED 
LOOP 

CHECK ERR OR LOOP SW 


80202250 
80202260 
C0202270 
60202280 
60202290 




0214 3099 

0215 70EF 


W3099 


DC 
MOX 




/3099 
A44A 


SLT 15-0 REG FAILED 
LOOP 


80202300 
60202 310 






*****«****»***********» 


**************** V****** 


80202320 




0216 C015 

0217 1800 

0218 C014 

0219 1080 
021A 1G81 
0218 1065 
021C 1087 
0210 1089 
021E 108A 


B440 


LD 

RTE 

LD 

SLT 

SLT 

SLT 

SIT 

SLT 

SLT 




N440 
16 

N441 



1 

5 

7 

9 

10 




80202330 
60202340 
60202 350 
80202360 
80202370 
80202380 
80202390 
80202400 
80202410 




021F 00 4C020222 

0221 COEC 

0222 00 440001 15 


H443 


BSC 

LD 

BSI 


L 
L 


H443.C 

M3098 

FOOO 


CHECK ERR OR LOOP SW 


60202420 
80202430 
60202440 




0224 309A 


M309< 


DC 




/309A 


COMB SLT-CARKY FAILED 


60202450 




0225 70F0 

0226 1800 

0227 00 44000115 




MDX 
RTE 
BSI 


L 


B440 

16 

FOOO 


LOOP 

CHECK ERR OR LOOP SW 


60202460 
60202470 
80202460 




0229 309B 


H309R DC 




.'309B 


COMB SLT-0 REG FA1LE 


80202490 




022A 70EB 


* 


MDX 




B440 


LOOP 


80202500 
60202510 




022B 7006 




MDX 




A480 


EXIT 


60202520 






******** a************************************* 


60202530 




022C 0001 


N440 


DC 




/0001 


CONSTANT 


8020*540 




0220 0000 


N441 


DC 




/OOOO 


CONSTANT 


80202550 




022E FFFF 


N44? 


DC 




/FFFF 


CONSTANT 


60202560 




022F 5555 


N443 


DC 




/5555 


CONSTANT 


80202570 




0230 2AAA 


N444 


DC 




/2AAA 


CONSTANT 


80202580 




0231 8000 


N445 


OC 




/8000 


CONSTANT 


60202 590 






********************************************** 


80202600 






• 










80202610 






• 






TEST Of STB OPERATION 


80202620 






* 










80202630 






*****<■**« 


»***********************»»»v»»»****** 


60202640 




0232 C011 


A480 


LD 




N480 




60202650 




0233 D012 




STO 




N482 




80202660 




0234 C010 




LD 




N481 




80202670 




0235 C010 




LD 




N*82 




80202680 




0236 00 44000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SH 


80202690 




0238 309C 


H309C OC 




/309C 


STORE ZEROS FAILED 


60202700 




0239 70F8 




MDX 




A480 


LOOP 


60202710 






***********•«*••*********«**«••***•***»*•«***• 


80*02720 




DATE 15MAV67 












PROG ID 


0802-1 


EC NO. 411731 












PAGE 


12A 
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ieM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



D1MAL H 


-A k TEST 


(CARO) 






TLS13 










023A 


COOA 


A48? 


LO 


N481 


023B 


OOOA 




STO 


N482 


02 3C 


C007 




LD 


N480 


023D 


C008 




LD 


N482 


023c 


F006 




EOR 


N461 


023F 00 


44000115 




BSI 


. FOOO 


0241 


1:090 


W309D 


DC 


/309D 


0242 


70F7 




MDX 


A482 



0243 7003 



0244 

0245 

0246 



00 ';o 
FFI-F 
FFFF 



0247 C 2000 

0248 28<.l 

0249 C0<»0 
024A 00 440001 If 
024C 309E 
024!) O 70F9 



024h 
024P 
0250 
0251 
0252 
0254 
0255 
0256 
0258 
0259 
025A 
025C 
0250 
025E 
0260 
0261 
0262 
0264 
0265 
0266 
0267 
0268 
026A 
026B 




00 

o 



oo 



00 

o 



00 





UO 









00 







COFF 

2003 

2839 

FOFC 

44000115 

309F 

701-1 

4C020259 

7001 

C0F4 

44000115 

30AO 

70F0 

4C010261 

7001 

COFC 

44000115 

30AI 

701:8 

C023 

F0.!3 

440C0115 

30a2 

701:2 



2002 
28.C 
28!D 
CO. A 

FOi.r. 

0271 00 44000115 
0273 30A3 
70F7 

co;.6 

0276 00 44000115 

0278 (i 30.-V4 

0279 70F2 

027A 2001 

027B 280F 

027C 260F 

027D COOC 



02 6C 
0260 
026c 
026F 
0270 



0274 
0275 



DATE 
EC NO. 



MDX 



A4C0 



CHECK ERR OR LOOP SW 
STO ONES FAILED 
LOOP 

EXIT 



ft**,****************************'************* 

N480 DC /OOOO CONSTANT 

N481 DC /i-FFF CONSTANT 

N482 DC /FFFF STORAGE 

*<,*******************#***************»***»**** 

* 

* TEST OF STS OPERATION 



15MAY67 
Hi 1731 



***** 
A4C0 



K309F. 



a**********.-********************'******** 



LDS 
STS 
LD 
BSI 

OC 
MOX 





N4C0 

N4C0 

FOOO 

/309E 

A4C0 



t * * **#>:..,.**»*--'* ft ***** * * 



A4C? LO 
LOS 
STS 
EOk 
BSI 
H309F OC 
MDX 
BSC 
MDX 
H4C2 LD 
G4C2 BSI 
W30A0 DC 
MDX 
BSC 
MDX 
H4C.4 LD 
G4C4 BSI 
W30A1 DC 
MDX 
LD 
EOR 
BS 
W30A2 DC 
MDX 



A4C2 

3 

N4C0 

A4C2 

FOOO 

/309F 

A4C0 

H4C2tC 

&4C2 

A4C2 

FOOO 

/30A0 

A4C2 

H4C4.0 

G4C4 

A4C2 

FOOO 

/30A1 

A4C2 

N4C0 

N4C1 

FOOO 

/30A2 

A4C2 



CHECK FRR OR LOOP SW 
STS FAILED TO STORE 
LOOP 

**£**** ********** ******* 



CHECK ERR Ok LOOP SW 
ACC GONE AFT LOS-STS 



CHECK ERk OR LOOP SW 
STS NOT CLEAR CARRY 
LOOP 



CHECK ERR OR LOOP SW 
STS NOT CLEAR OVEPFlW 
LOOP 



CHECK ERR OR LOOP SW 
STS FAILED TO STORE 
LOOP 



********************************************** 



A4C8 LDS 
STS 
STS 
LD 
EOR 
BSI 

W30A3 DC 
MDX 
LO 
BSI 

W30A4 DC 
MDX 



2 

N4C0 

N4C2 

N4C0 

N4C3 

FOOO 

/30A3 

A4C8 

N4C2 

FOOO 

/30A4 

A4C8 



CHECK ERR OR LOOP SW 
STS FAILED TO STORE 
LOOP 

CHECK ERR OR LOOP SW 
STS NOT CLEAR CARRY 
LOOP 



********************************************** 
A4CC LDS 1 

STS N4C0 

STS N4C2 

LD N4C0 
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80202730 

80202740 

80202750 

80202760 

80202 770 

80202780 

80202790 

80202800 

8020281C 

80202820 

80202830 

80202840 

80202850 

8020286C 

80202870 

80202880 

80202890 

80202900 

80202910 

80202920 

80202930 

80202940 

80202950 

8C202960 

80202970 

80202980 

60202990 

80203000 

80203010 

80203020 

80203030 

8020 3040 

80203050 

00203060 

80203070 

80203080 

80203090 

8020310C 

8020311C 

8C203120 

80203130 

80203140 

80203150 

80203160 

80203170 

80203180 

80203190 

80203200 

80203210 

80203220 

802032 30 

80203240 

802032 50 

80203260 

80203270 

80203280 

80203290 

80203300 

80203310 

80203320 

80203330 

80203340 

80203350 

80203360 

80203370 

80203380 

B0203390 

80203400 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



DIMAL HEADER TEST ICAROI 
TEST3 



027E FOOF 
027F 00 44000115 



0281 
0282 
0283 



30A5 
70F7 
C008 



0284 00 44000115 

0286 30A6 

0287 7CF2 

0288 00 4C000107 



028A 





0003 


0288 





0003 


028C 





0000 


02RD 





0002 


028E 





0001 



0290 



0139 



EOR 




N4C4 


BSI 


L 


FOOO 


W30A5 DC 




/30A5 


MDX 




A4CC 


ID 




N4C2 


BSI 


L 


FOOO 


W30A6 DC 




/30A6 


MDX 




A4CC 


********************* 


BSC 


L 


CNTL 


********************* 


N4C0 OC 




/0003 


N4C1 DC 




/0003 


N4C2 OC 




/OOOO 


N4C3 DC 




/0002 


N4C4 OC 




/C001 


**«***«->*******«***** 


F.ND 


X 


♦-PID 



CHECK ERR OR LOOP SW 
STS FAILED TO STORE 
LOOP 

CHECK ERR OR LOOP SW 
STS NOT CLEAR OVERFL 

LOOP 

******** * *****^ ********** 

RETURN TO REAO NEXT SEC 

******** ~* ****** #*******■># 

STORAGE 
CONS t ANT 
CONS I ANT 
CONSTANT 
CONS 'ANT 
******** ***************** 

END CARO NOT USED 8020357 



PM.T MO. 2242253 
PA.&6 13 A 



60203*10 
6020 3*20 
8C203430 
60203440 
602O34S© 
60203463 
802334 70 
602t»3*£0 
E-020iV»0 
1020.000 
S020551C 
60203:520 
80203530 
602Q354O 
S02035<*0 
802O34&O 
60203570 
80203560 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



DIMAL HcADER TEST (CARD) 
TEST3 



CROSS REFERENCE LISTING 



REFERENCES 

015F,0165 

0175, 017A 

0282,0287 

02*3, 02*0, 0255 

024E, 0251, 0259, 0250,0261, 0265. 0266 

0274,0279 

017B,018F,0196 

01A2.01A7 

020F.0215 

01DE.01FF.01F4 

01FF.0204 

0226,0239 

0242 

0108,0100 

01B3.01B8 

01C3.01C6 

0225, 022A 

0288 

01 5C, 0162, 01 72, 0177, 01 8C, 0193, 019F, 01 A4, 0160, 0165, 

01CO,01C5,Oin5,010A,v,lEr.,01Fl,01Fr.,0201,020C,0212, 

0222, 0227, 02 36, 023F.Q24A, 0252, 02 5A, 0262, 0268. 0271, 

0276,027F,02B4 

0258 

0260 

019C 

0189 

020? 

01E9 

01F9 

0256 

025E 

0102 

01AE 

01AC 

01B0 

02 1F 

0159 

0157 

0168 

0166 

0156 

0161 

0171 

0248, 0249, 0250, 0266, 0260, 026F, 0276, 0270 

0267 

026E, 0275.027C, 0283 

0270 

027E 

0183,0166,0191 

019A.01CB 

01B8 

01AA.01BF 

01AF 

0197,01AB,01B9,01C9 

01E5.0216 

01E7.01F7, 0207, 0218 

01F5.01FB 

0205 

0206 

02 1: 

0232, 023C 

O234,O23A,023E 

0233,0235,0238,0230 

028F 

30A0 
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SYMBOL 


VALUE 


A3C0 


0157 ( 


A3C4 


0166 


A4CC 


027A 


A4C0 


0247 


A4C2 


024E 


A4C8 


026C 


A400 


0183 


A408 


0197 


A44A 


0205 


A440 


01E5 


A444 


01F5 


A430 


0232 


A482 


023A 


B40A 


01C9 


B400 


01 (.8 


B406 


01B9 


B440 


0216 


CNTL 


0107 


FOOO 


0115 


G4C2 


025A 


G4C4 


0262 


G40C 


019F 


G404 


018C 


M^l 


020C 


G442 


01EC 


G446 


01FC 


H4C2 


0259 


H4C4 


0261 


H400 


0105 


H400 


01B0 


H402 


01AF 


H407 


01C0 


H443 


0222 


N3C0 


017C 


N3C1 


0170 


N3C2 


017E 


W3C3 


017F 


N3C4 


0180 


N3C5 


0181 


N3C6 


0182 


N4C0 


028A 


N4C1 


028B 


N4C2 


02 BC 


N4C3 


0280 


N4C4 


028E 


N400 


010F 


N401 


O1E0 


N402 


01E1 


N403 


01E2 


N404 


01E3 


N405 


01F4 


N440 


022C 


N441 


0220 


N442 


022E 


N443 


022F 


N444 


0230 


N445 


0»31 


N460 


0244 


N481 


0245 


N482 


0246 


PIO 


0156 


W30A0 


02 5C 


DATE 


15MAY67 


EC NO. 


411731 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 22*2253 
PAGfc 14A 



DIMAL HEADER TEST 


(CARD) 


TEST3 






U30A1 


0264 


30A1 


M30A2 


026A 


30A2 


U30A3 


0273 


30A3 


H30A4 


0278 


30A4 


W30A5 


0281 


30A5 


W30A6 


0286 


30 A 6 


W306A 


016E 


308A.019E 


H308B 


0195 


3088 


W306C 


01A1 


308C 


W3080 


01A6 


3080 


U308E 


01B2 


30RE 


H308F 


0167 


308F 


W3086 


015E 


3086 


W3087 


0164 


3087 


H3088 


0174 


3088,0188 


M3089 


0179 


3089 


U309A 


0224 


309A 


W309B 


0229 


3096 


W309C 


0238 


309C 


U3090 


0241 


3090 


H309E 


02 4C 


309E 


H309F 


0254 


309F 


M3090 


01C2 


3090,0104 


W3091 


01C7 


3091 


H3092 


0107 


3C92,01EB 


U3093 


01DC 


3093 


W3094 


01EE 


3094 


W3095 


01F3 


3095 


W3096 


01FE 


3096 


H3097 


0203 


3097 


W3098 


020E 


3098,0221 


H3099 


0214 


3099 



DATE 

EC NO. 



15MAY67 
411731 



PROG in 
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N 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



OIMAL HEAOER TEST ICARD) 
TEST* 



02BC 



ABS 

ORG /30A7 

»*****♦********»*«***»»»****»**»*»»*»»•*»**•»» 
« WAITS ERROR COMMENTS 



30A7 





015E 


30A8 





0167 


30A9 





0171 


30AA 





0179 


30Ab 





0182 


30&C 





018C 


30AD 





0190 


30AE 





0195 


30AF 





019F 


30B0 





01A3 


30;>1 





01 AC 


30B2 





0101 


30BS 





01 BC 


30B4 





01C1 


3085 





0102 


30B6 





0107 


30B7 





01E0 


30BB 





01E9 


30B9 





01ED 


30BA 





01F9 


30BB 





0204 


30CC 





020F 


30BD 





021 A 


30BE 





0225 


30BP 





0230 


30C0 





0230 


30C) 





0245 


30C2 


3 


0240 


30C3 





0256 


30C4 





025F 


30C5 





0268 


30C6 





0271 


30C7 





027A 


30C8 





0283 


30C9 






0156 





0200 


0107 






0115 







DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
OC 
DC 
DC 
DC 
OC 
OC 
OC 
OC 
DC 
DC 



W30A7+1 
W30A8+1 
W30A9+1 
W30AA+1 
W30AB+1 
W30AC+1 
W30AD+1 
W30AE+1 
W30AF+1 
W30B0+1 
W30B1+1 
W30B2+1 
W30B3+1 
W30B4+1 
W30B5+1 
W30B6+1 
H30B7+1 
W30B8+1 
W30f.9+1 
W308A+1 
W30BB+1 
W30BC+1 
W30BD+1 
W30BE+1 
W30BF+1 
W30C0+1 
W30C1+1 
H30C2+1 
W30C3+1 
W30C4+1 
W30C5+1 
W30C6+1 
N30C7+1 
H30C8+1 



BSC SKPO-SHOULO NOT 
BSC SKPD-SHOULD NO'l 
BSC FAILED TO SKIP 
BSC NOT CLEAR OVERFLW 
BSC FAILED TO SKIP 
BSC FELL THRU 
BSC SKPD-SHOULD BRNCH 
ACC OISTROYED AFTER 
BSC FELL THRU 
BSC SKPD-SHOULD BRNC 
BSC SXPD-SHOULONT 
BSC BRNCHED-SHOULONT 
+ CLEARED OVFLW 
FAILED TO SKP 
FELL THRU 
8S1 SKFD-SHOULO BRNC 
BSI DID NOT CLEAR OFL 
FELL THROUGH 
SKPD-SHOULO BRNC 
BSI BRNCHD-SHOOLDNT 
BSI BRNCHD-SHOULDNT 
BSI BRNCHD-SHOULDNT 
BSI BRNCHD-SHOULDNT 
BSI BRNCHD-SHOULDNT 
BSI BRNCHO-SHOULONT 
TAG REG BIT 7 FAILED 
TAG RFG BIT 6 FAILED 
TAG BIT 6 OR 7 FAILED 



BSC 
BSC 

BSI 



BSI 
BSI 



IX 
IX 
IX 
IX 
IX 
IX 



NOT LCADEO 
NOT LOADED 
NOT LOADED 
NOT LOADED 
NOT LOADED 
NOT LOADED 



•**»****«***«»#»«*******»**••»*******#**«***** 



* 

PID 

« 

CNTL 

FOOO 



ORG 



DC 



342 



/0200 



PID 



EOU 
EOU 



/0107 
/0115 

» TEST OF BSC OPERATION 

***«***#**«»» **#******»**♦«*»*******»» ******** 



CHECK ERR OR LOOP SW 
BSC SKPD-SHOULD NOT 
LOOP 



0157 





2003 


A500 


LOS 




3 


0158 





C06A 




LD 




N500 


0159 





462F 




BSC 




O+EZC 


015A 





F068 




EOR 




N500 


015B 


00 


44000115 




BSI 


L 


FOOO 


015D 





30A7 


M30A7 


DC 




/30A7 


015E 





70F8 




MDX 




A500 








*»»»***»»»»**»**»** 


015F 





2003 


A502 


LOS 




3 


0160 





C063 




LD 




N501 


0161 





481B 




BSC 




-OC* 


0162 





7001 




MDX 




G502 


0163 





COOO 




10 




G502 


0164 


00 


44000115 


G502 


BSI 


L 


FOOO 


0166 





30A? 


M30-8 


DC 




/30A8 


0167 





70F7 




MDX 




A502 








**»*♦»*»»******«»»* 


DATE 




15MAY67 










EC NO. 


411731 











CHECK ERR OR LOCP SW 
BSC SKPD-SHOULD NOT 
LOOP 
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80200010 

80200020 

80200030 

80200040 

80200050 

80200060 

80200070 

80200080 

80200090 

80200100 

80200110 

80200120 

80200130 

80200140 

80200150 

80200160 

80200170 

80200180 

80200190 

80200200 

80230210 

80200220 

80200230 

80200240 

802002 50 

80200260 

80200270 

80200280 

80200290 

80200300 

B0200310 

80200 320 

80200330 

80200340 

802003!} 

80200360 

80200370 

80200380 

80200390 

80200400 

80200410 

80200420 

80200430 

80200440 

80200450 

80200460 

80200470 

80200480 

80200490 

80200500 

80200510 

80200520 

80200530 

80200540 

80200550 

80200560 

80200570 

80200580 

80200590 

80200600 

80200610 

80200620 

80200630 

80200640 

80200650 

80200660 

80200670 

80200680 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



DIMAL HEADER TEST ICARDI 
TEST4 



0168 


2003 


A504 


LDS 




3 




0169 


C05B 




LD 




N502 




016A 


2807 




STS 




N507 




0168 


4815 




BSC 




0-E 




016C 


7001 




MDX 




G504 




016D 


F05Y 




EOR 




N502 




016E 00 


44000115 


G504 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


0170 


30A9 


W30A9 


DC 




/30A9 


BSC FAILED TO SKIP 


0171 


70F6 




MDX 




A 504 


LOOP 


0172 


2000 


N507 


LDS 







STATUS STORED HERE 


0173 


4801 




BSC 







TURN OFF OVERFLO 


0^74 


4801 




BSC 









0175 


C04F 




LD 




N502 




0176 00 


44000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


0178 


30AA 


W30AA 


DC 




/30AA 


BSC NOT CLEAR OVERFLW 


0179 


70EE 




MDX 




A504 


4. OOP 






****•*««•»*•*•*«•••••••••••••*'«*''**»****••«•** 


017A 


2000 


♦ 508 


LDS 









017B 


C047 




LD 




N500 




017C 


482A 




BSC 




c+z 




017D 


7001 




MDX 




G508 




017E 


F044 




EOR 




N500 




017F 00 


44000115 


G503 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


0181 


30AB 


W30AB 


nc 




/30A6 


BSC *A11ED TO SKIP 


0182 


70F7 




MDX 




A503 


LOOP 






*»»*«»»**»«*»» t«t*«»»««»«««ot»t«»»»*»*ti-v«««»» 


0183 


2003 


A 50 A 


LOS 




3 




0184 


C03E 




LD 




N500 




0185 00 


4C0F0191 




BSC 


L 


G50A,*0Cc 




0187 


7001 




MDX 




Hj>OA 




01S8 


7004 




MDX 




J50A 




0189 00 


44000115 


H50A 


BSI 


L 


rOOO 


CHECK ERR OR LOOP SW 


018B 


30AC 


W30AC 


DC 




/30AC 


BSC FELL THRU 


018C 


70F6 




MDX 




A50A 


LOOP 


018D 00 


44000115 


J50A 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


018F 


30AD 


W30AD 


DC 




/30AD 


BSC SKPO-SHOULO BRNCH 


0190 


70F2 


• 


MOX 




A50A 


LOOP 


0191 


F031 


G50A 


EOR 




N500 




0192 00 


44000115 




BSI 


L 


FOOO 


CHECK ERR Ok LOOP SW 


0194 


30AE 


W30AE 


DC 




/30AE 


ACC OISTROYEO AFTER 


0195 


70ED 




MDX 




A50A 








**a*$*##«*#a*»*wr»»*>ft***#***»*»***«**#***#***# 


0196 


2003 


A50C 


LDS 




3 




0197 


CC2E 




LD 




N504 




0198 00 


4C3001A4 




BSC 


L 


A50E.-Z 




019A 


7001 




MDX 




H50C 




019B 


7004 




MDX 




J50C 




019C 00 


44000115 


H50C 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


019E 


30AF 


W30AF 


DC 




/30AF 


BSC FELL THRU 


019F 


70F6 




MDX 




A50C 


LOOP 


01A0 00 


44000115 


J50C 


BSI 


L 


FOOO 


C.4ECK ERR OR LOOP SW 


01A2 


30B0 


W30B0 


OC 




/3080 


8SC SKPO-SHOULO BRNC 


01A3 


70F2 




MDX 




A50C 


LOCP 






***«***•*»*••**••*•••••*•«**£•*•*•*»«*«•«••*•• 


01A4 C 


2003 


A50E 


LDS 




3 




01A5 


COID 




LD 




N500 




01A6 00 


4C3F01AE 




BSC 


L 


G50Et*EOCZ- 


01A8 


F01A 




EOR 




N500 




01A9 00 


44000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


01AB 


30B1 


W3081 


DC 




/30B1 


BSC SKPD-SHOULDNT 


01AC 


70F7 




MDX 




A50F 


LOOP 


01AD 


7004 




MDX 




8500 




01AE 00 


44000115 


G50E 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 






»*»**•»*»»*»»»** ««»«»«*»M«»«»*a*«»»»f.*t»»»;5« 


01B0 


30B2 


W30B2 


OC 




/30B2 


BSC BRNCHEO-SHOULDNT 


01B1 


70F2 




MDX 




A50E 


LOOP 


01B2 


2003 


B500 


LDS 




3 




01B3 


C012 




LD 




N504 




DATE 


15KAV67 












EC NO. 


411731 
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80200690 

80200700 

80200710 

80200720 

80200730 

80200740 

80200750 

80200760 

802CC770 

80200780 

80200790 

80200800 

80200810 

80200820 

80200830 

60200840 

80200850 

80200860 

80200870 

80200880 

80200890 

80200900 

80200910 

80200920 

80200930 

80200940 

60200950 

80200960 

80200970 

50200980 

80200990 

80201000 

80201010 

80201020 

80201030 

80201040 

60201050 

90201060 

80201070 

60201080 

80201090 

80201100 

80201110 

80201120 

80201130 

80201140 

80201150 

80201160 

80201170 

80201180 

80201190 

60201200 

80201210 

80201720 

802012 30 

80201240 

80201250 

60201260 

80201270 

80201280 

80201290 

30201300 

80201310 

80201320 

80201330 

80201340 

80201350 

80201360 



PROG ID 
PAGE 



0802-1 
15A 
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f 






N 
E 



I 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 



OIMAL HEADER TEST (CARD) 
TEST4 



01b4 
01B5 
01B6 
01B7 
01B8 



48GB 
70C8 
2810 
COCF 
FOOF 



01b9 00 44100115 
01 BB 30P.3 



01BC C 
01BD 



70F5 
70C3 



01BE 00 44C00115 
01C0 30fc4 
01C1 70F0 



01C2 70C6 



BSC 
MDX 
STS 

LD 

EOR 

BSI 

W30B3 DC 
MUX 
MDX 

S501 BSI 

W3084 DC 
MDX 

* 

MDX 



S501 

N505 

N505 

N506 

FOOO 

/30B3 

B5C0 

A540 

FOOO 

/30B4 

B500 

A540 



CHECK ERR OR LOOP SW 
BSC ♦ CLEARED OVFLW 
LOOP 

CHECK ERR OR LOOP SW 
BSC FAILED TO SKP 
LOOP 

EXIT 



01C3 





60C1 


01C4 





ooco 


01C5 





80C0 


01C6 





OOC- 


01C7 





OOCO 


01C8 





00C3 



«*«**»*** ****** ****SS**»*S*S*»*********»*****« 

N500 DC /8001 CONSTANT 

N501 DC /OOOO CONSTANT 

N502 DC /8000 CONSTANT 

N504 DC /0004 CONSTANT 

N505 DC /OOOO STORAGE 

N506 DC /0003 CONSTANT 

********************************************** 

* 

* TEST OF BSI OPERATION 

* 

* V *******S«V #******-.************** ************* 



CHECK ERR OR LOOP SU 

BSI FELL THRU 

LOOP 

CHECK ERR OH LOOP St* 
BSI SKPD-SHOULD BRNC 
LOOP 



01C9 





2003 


A540 


LDS 




3 


01CA 





C067 




LD 




N540 


01CB 


00 


442F01D9 




BSI 


L 


G54O.EC0+Z 


01C0 





7001 




MDX 




H5M> 


OlCt 





7005 




MDX 




J540 


01CF 


00 


440001! 5 


H540 


BSI 


1 


FOOO 


01D1 





30B5 


K30B5 


DC 




/30B5 


0102 





70F6 




MDX 




A 540 


01D3 





7000 




MDX 




A 544 


01 04 


GC 


44000115 


J540 


BSI 


L 


FOOO 


0106 





30B6 


W30B6 


DC 




/30B6 


01D7 





70F1 




MDX 




A 540 


0108 





7C18 




MDX 




A544 


01D9 





OOOO 


G540 


DC 




/OOOO 


01DA 





2858 




STS 




N541 


01D6 





C057 




LD 




N541 


01DC 





F057 




ECR 




N542 


010D 


00 


44C00115 




BSI 


L 


FOOO 


01DF 





3 OB 7 


W30B7 


DC 




/3057 


01E0 





70E8 




MDX 




A 540 








************************ 


01E1 





C052 


A544 


LD 




N542 


01E2 


00 


443001EF 




BSI 


L 


G544.Z- 


01E4 





7001 




MDX 




H544 


01E5 





7004 




MDX 




J544 


01E6 


00 


44000115 


H544 


BSI 


I 


FOOO 


01K8 





30B8 


W30BB 


DC 




/30B8 


01E9 





70F7 




MDX 




A544 


01EA 


00 


44000115 


J 544 


BSI 


L 


FOOO 


01EC 





30B9 


W30B9 


DC 




/30B9 


01ED 





70F3 




MDX 




A544 


01EE 





7001 




MDX 




A546 


01EF 





OOOO 


G544 


DC 




/OOOO 








************************ 


01F0 





C044 


A546 


LD 




N543 


01F1 


00 


442001F4 




BSI 


L 


G546.2 


01F3 





7002 




MDX 




J546 


01F4 





OOOO 


G546 


DC 




/OOOO 


01F5 





COFE 




LD 




G546 


01F6 


00 


44000115 


J546 


BSI 


L 


FOOO 


01F8 





30BA 


W30BA 


DC 




/30BA 


OIF"? 





70F6 




MDX 




A546 


DATE 




15MAY67 










EC NO. 


411731 











CHECK ERR OR LOOP iW 
BSI DID NOT CLEAR OFL 
LOOP 



CHECK ERR OR LOOP SW 

BSI FELL THROUGH 

LOOP 

CHECK ERR OR LOOP SW 

BSI SKPD-SHOULD BRNC 

LOOP 



CHECK ERR OR LOOP SM 
BSI BRNCHD-SHOULDNT 
LOOP 



PART NO. 2242253 
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80201370 

80201360 

80201390 

80201400 

80201410 

80201420 

80201430 

60201440 

60201450 

60201460 

80201470 

80201-.80 

60201490 

80201500 

80201510 

80201520 

80201530 

80201540 

80201550 

60201560 

80201570 

80201560 

60201590 

60201600 

80201610 

60201620 

80201630 

80201640 

80201650 

60201660 

802C1670 

80201680 

80201690 

60201700 

80201710 

80201720 

80201730 

80201740 

80201750 

80201760 

80201770 

80201780 

80201790 

80201800 

80201810 

80201820 

60201830 

80201840 

80201850 

80201860 

60201670 

80201680 

80201890 

80201900 

30201910 

80201920 

80201930 

80201940 

80201950 

60201960 

802C1970 

80201980 

80201990 

80202000 

80202010 

80202020 

80202030 

802020t0 



PROG ID 
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16 
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I 
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3 3 
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t 

t 
t 
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t 
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3 
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J 
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I 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



DIMAL HEADER TEST (CARD) 
TEST4 



***«.********»** ***********************s*s***s* 



01FA 





C037 


01FB 


00 


441001FF 


01FD 





1010 


01FE 





7002 


01FF 





OOOO 


0200 





COFE 



0201 00 4400C115 

0203 30BB 

0204 70F5 



0205 C02E 

0206 00 4408020A 
0208 1010 



0209 
020A 
020B 



7002 
OOOO 
COFE 



020C 00 44000115 
020E 30BC 
020F 70F5 



0210 C023 

0211 00 44040215 



0213 
0214 
0215 
0216 



1010 
7002 
OOOO 
COFE 



0217 00 44000115 
0219 30BD 
021A 70F5 

021B 2000 
021C lOlO 
021D 00 44020220 
021F 7002 



0220 
0221 



OOOO 
COFE 



0222 00 44000115 

0224 30BE 

0225 70F5 



0226 

0227 



2000 
1010 



0226 00 4401022B 
022A 7002 



022B 
05>2C 



OOOO 

COFE 



022D 00 44000115 

022F 30BF 

0230 70F5 

0231 7004 

0232 8001 

0233 OOOO 

0234 0002 

0235 OOOO 



A548 



G548 



LD 

BSI 

SLA 

MDX 

DC 

LD 

BSI 



N540 

G548,- 

16 

H548 

/OOOO 

G548 

FOOO 

/30BB 

A 548 



H548 

W30BB DC 
MOX 

*************** ess ************ *************** 



CHECK ERR OR LOOP SW 
BSI BRNCHD-SHOULDNT 
LOOP 



A54A 



G54A 



LD 

BSI 

SLA 

MDX 

DC 

LD 

BSI 



N542 

G54At+ 

16 

H54A 

/OOOO 

G54A 

FOOO 

/30BC 

A54A 



H5'«A 

U30BC DC 
MDX 

**************** **C4«****SS*S**********W ****** 



CHECK ERR OR LOOP SW 
BSI BRNCHD-SHOULDNT 
LOOP 



A54C 



G54C 



H54C 



LD 

BSI 

SLA 

MDX 

DC 

LD 

BSI 

W30BD DC 

MDX 



N542 

G54C.E 

16 

H54C 

/OOOO 

G54C 

FOOO 

/?03D 

A54C 



CHECK ERR OR LOOP SW 
BSI BRNCHO-SnOULONT 
LOOP 



***e**s**#*s*«***e*ss*s****ss**s»>»s***s*s***** 



A54E IDS 
SLA 
BSI 
MDX 

G54E DC 
LD 

H5'E BSI 

W30BE DC 
MDX 





16 

G54E.C 

H54E 

/OOOO 

654E 

FOOO 

/30BE 

A54E 



CHECK ERR OR LOOP SW 
BSI BRNCKD-SHCULDNT 
LOOP 



****s*****a*****s**s****s*********** ********** 



A54F 



G54F 



H54F 
W30BF 



LDS 
SLA 
BSI 
MDX 

DC 
LD 
BSI 

DC 
MDX 

MDX 





16 

G54F.0 

H54F 

/OOOO 

G54F 

FOOO 

/30BF 

A54F 

A 600 



CHECK ERR OR LOOP SW 
BSI BRNCHD-SHOULDNT 
LOOP 

EXIT 



ss v s*sss******e*s»****s»s*********** ********** 

N540 DC /8001 CONSTANT 

N541 DC /OOOO STORAGE 

N542 DC /0002 CONSTANT 

N543 DC /OOOO CONSTANT 

******s***s*******s*s*******s*s********s#***ss 

« 

* TEST CF LOX OPERATION 

* 

********** s *s*sss**s************ss************ 



CHECK ERR OR LOOP SW 
TAG REG BIT 7 FAILED 
LOOP 



0236 


COFF 


A 600 


LD 




A600 


0237 00 


6500023A 




LDX 


LI 


G600 


0239 


1010 




SLA 




16 


023A 00 


44000115 


G600 


BSI 


L 


FOOO 


023C 


30C0 


W30C0 


DC 




/30C0 


023D 


70F8 




MDX 




A600 


DATE 


15MAY67 










EC NO. 


411731 











PART NO. 
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80202050 

802C2Q60 

802C2O7O 

80202080 

80202090 

8020^100 

80202110 

80202120 

80202130 

80202140 

80202150 

80202160 

80202170 

802O21BO 

80202190 

80202200 

60202210 

80202220 

802022 30 

8020224O 

80202250 

80202260 

602022 70 

80202280 

60202290 

80202300 

60202310 

80202320 

80202330 

60202340 

60202 350 

80202360 

80202 370 

80202360 

80202390 

80202400 

80202410 

60202420 

8020243C 

80202440 

80202450 

80202460 

80202470 

80202460 

80202490 

80202500 

80202510 

80202520 

602Q253O 

80202540 

80202550 

80202560 

80202570 

80202580 

80202*90 

80202600 

80202610 

80202620 

80202630 

80202640 

80202650 

80202660 

80202670 

80202680 

80202690 

60202700 

60202710 

80202720 



2242253 
16A 



PRCG 10 

PASE 



0802-1 
16A 



N 



<<<<<<<<<<(<<(<<<<<<<<<<<<<< 



< < < ( 















1 


t 














j 


1 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


1800 SYSTEH 


PART NO. 2242253 
















PAGE 17 


3 


3 


OIMAL HtlADER TEST 


(CARD) 












TfcST4 












!> 


1 






****«6*****«**«*«***«*«««***9****9** ********** 


80202730 






023E 


COFF 


A602 LD 


A602 




80202740 


1 


1 


023F 00 


66000242 


LDX 


L2 G602 




80202750 






0241 


1010 


SLA 


16 




80202760 






0242 00 


44000115 


G602 BSI 


L FOOO 


CHECK ERR OR LOOP SW 


80202770 


1 


D 


0244 


30C1 


W30C1 DC 


/30C1 


TAG REG BIT 6 FAILED 


80202780 






0245 


70F8 


KDX 


A602 


LOOP 


80202790 










****V**S*« 


.S********#*****w******************** 


80202803 


1 


~) 


0246 


COFF 


A603 LD 


A603 




80202810 






0247 00 


6700024A 


LDX 


L3 G603 




80202820 






0249 


1010 


SLA 


16 




8020283D 


") 


.") 


024A 00 


44000115 


G603 BSI 


L FOOO 


CHECK ERR OR LOOP SW 


80202840 






024 C (> 


30C2 


W30C2 DC 


/30C2 


TAG BIT 6 OR 7 FAILED 


80202850 






024D 


VOFfi 


KDX 


A603 


LOOP 


80202860 


1 


:> 






a********************************************* 


80202870 






024E 


6100 


A604 LDX 


1 




80202880 






02'tF 


C038 


LO 


N603 




80202890 


") 


3 


0250 00 


C5000287 


LD 


LI N601 




80202900 






0252 


F034 


EOR 


N601 




80202910 






0253 00 


44000115 


BSI 


L FOOO 


CHECK ERR OR LOOP SW 


80202920 


1 


i 


0255 


30C3 


W30C3 DC 


/30C3 


IX 1 NOT LOADED 


8C202930 






0256 


70F7 


HDX 


A604 


LOOP 


80202940 










****** **************^*** ********** ************ 


80202950 


."> 


i 


0257 


6200 


A606 LDX 


2 




80202960 






0256 


C02F 


LD 


N603 




80202970 






0259 00 


C.6U002 87 


LD 


L2 N601 




8020298*, 


) 


j 


025b 


FC2B 


fcOR 


N601 




80202990 






0?5C 00 


44000115 


BSI 


L FOOO 


CHECK ERR OR LOOP SW 


80203000 






025F 


30C4 


W30C4 DC 


/30L4 


IX 2 NOT LOADED 


80203010 


)s 


'.) 


025f- 


70F7 


KDX 


A606 


LOOP 


80203020 






0260 


6300 


A608 LDX 


3 




80203030 






0261 


C026 


LD 


N603 




802030*0 


1 


:> 


0262 00 


C7C00267 


LD 


L3 N601 




80203050 






0264 


F022 


EOR 


N601 




80203060 






0265 00 


4400C115 


BSI 


L FOOO 


CHECK ERR OR LOOP SW 


80203070 


) 


3 


0267 


30C5 


W30C5 DC 


/30C5 


IX 3 NOT LOADED 


80203080 






0268 


70F7 


KDX 


A608 


LOO? 


80203090 










«4StiSiS»»«*t(:M*t4*«1**tt*«t«5**»»st«itttr**S 


80203100 


1 


4* 


0269 


61FF 


A60A LDX 


1 -1 




80203110 






026A 


CO ID 


LD 


N603 




80203120 






026b 00 


C5000287 


LD 


LI N601 




80203130 


1 


3 


026D 


F018 


EOR 


N600 




80203140 






026E 00 


44000115 


BSI 


L FOOO 


CHECK ERR OR LOOP SW 


80203150 






0270 


30C6 


W30C6 DC 


/30C6 


IX 1 NOT LOAOEO 


80203160 


1 


3 


0271 


70F7 


HDX 


A60A 


LOOP 


80203170 










******s=;i*v 


««**«***«***«*«*««*******«**«»****** 


80203180 






0272 


62FF 


A60C LDX 


2 -1 




80203190 


3 


3 


0273 


C014 


LD 


N603 




80203200 






0274 00 


C600C287 


LD 


L2 N601 




80203210 






0276 


FOOF 


EOR 


N600 




30203220 


I 


3 


0277 00 


44000115 


BSI 


L FOOO 


CHECK ERR OR LOOP SW 


802032 30 






0279 


30C7 


W30C7 DC 


/30C7 


IX 2 NOT LOADED 


80203240 






027A 


70F7 


HDX 


A60C 


LOOP 


802032 50 


t 


3 






****** tSStt«t»4tt»«*««*»*»«»*»»*»»t»*»»»»*S» 


80203260 






02 7b 


63FF 


A60E LDX 


3 -1 




60203270 






027C 


COOB 


LD 


N603 




B0203280 


t 


3 


027D 00 


C7000287 


LD 


L3 N601 




80203290 






027F 


F006 


EOR 


M600 




80203300 






0280 00 


44000115 


BSI 


L FOOO 


CHECK ERR OR LOOP SW 


80203310 


t 


3 


0282 


30C8 


W30C8 DC 


/30C8 


IX 3 NOT LOADED 


80203320 






0283 


70F7 


HDX 


A60E 


LOOP 


80203330 










*********** ************************** ********* 


80203340 


t 




0284 00 


4CP00107 


BSC 


L CNTL 


RETURN 10 READ NEXT SEC 


80203350 










***************************** ********«*»t***** 


80203360 






0286 


0286 


N600 DC 


N600 


CONSTANT 


80203370 


t 




0287 


0287 


N601 DC 


N601 


CONSTANT 


80203380 






0288 


FFFF 


N603 DC 


/FFFF 


CONSTANT 


80203390 










********************************************** 


80203400 


t 




DATE 


15MAY67 
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028A 0133 



ENO X *- PID 



END CARD NOT USED 8020 340 8020341© 



DATE 
EC NO. 



15HAY67 
411731 



PRUG 10 0802-1 
PAGE 17A 



N 
E 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THF 1800 SYSTEM 



DIMAL HEADER TEST (CARD) 
TEST4 



PART NO. 2242253 
PAGE IB 



CROSS REFERENCE LISTING 



SYKbOL 


VALUE 


REFERENCES 






A50A 


0183 


016C, 0190, 0195 






A50C 


0196 


019F.01A3 






A50E 


01 A* 


0198i01AC.01Bl 






A500 


0157 


015E 






A502 


01 5F 


0167 






A50<t 


0168 


0171,0179 






A508 


017A 


0182 






A54A 


0205 


0?0F 






A54C 


0210 


021A 






A54E 


021B 


0225 






A54F 


0226 


0230 






A540 


01C9 


01B0,01C2t0102t01D7,01E0 






A 54* 


01! 1. 


0103, 0108, 01E9.01ED 






A546 


01F0 


01EE.01F9 






A5A8 


01FA 


0204 






A60A 


0269 


0271 






A60C 


0272 


027A 






A60E 


027B 


0283 






A600 


0236 


0231,0236,0230 






A602 


023E 


O23E.0245 






A603 


0246 


0246,0240 






A604 


024E 


0256 






A606 


0257 


025F 






A60B 


0260 


0268 






6500 


01i)2 


01AD,01BC,C1C1 






CNTl 


0107 


0284 






FOOO 


0115 


015B,0164,016E,0176,017F,018*,OIBD.0192,019C,01AO, 
01A9,01Afc,01f:9,01Sc,01CF.OinA,i.li)D,OiE6,01EA,01F6, 
0201, 020C.O? 17, 0222, 0220,0?; t, 0242, 02 4A, 0253, 025C, 
0265, 026E, 0277,0280 






G50A 


0191 


0185 






G50E 


01AE 


01A6 






G502 


0164 


0162,0163 






G504 


016E 


016C 






G508 


017F 


017D 






G54A 


020A 


0206, 020B 






G54C 


•>215 


02)1.0216 






G54L 


0220 


0210,0221 






G54F 


022B 


0228,0220 






G540 


0109 


01CB 






G544 


01EF 


01E2 






C546 


01F4 


01F1.01F5 






G548 


01FF 


01FB.0200 






C600 


023A 


0237 






G602 


0242 


023F 






G603 


024A 


0247 






H50A 


0189 


0187 






HSOC 


019C 


019A 






H54A 


02 OC 


0209 






H54C 


0217 


0214 






HS4E 


0222 


021F 






H54P 


022D 


022A 






H540 


01CF 


01C0 






H544 


01E6 


01EA 






H54 8 


0201 


01FE 






J 50 A 


USD 


0188 






J50C 


01A0 


019B 






J540 


D1D4 


OlCt 






J 54 A 


J1EA 


01E5 






J546 


D1F6 


01F3 






N500 


D1C3 


Oi;8,C\5A,017B,017E,0184,0191.01A5,01A8 






N50 1 


31C4 


0160 






N502 


51 C 5 


0169,0160,0175 






N504 


01C6 


0197, 01B3 






N505 


01C7 


01B6.01B7 
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PAGE 18A 



D1MAL HEADER TEST 


(CARD) 


TEST4 






N506 


01C8 


01B8 


N507 


0172 


016A 


N540 


0232 


01CA.01FA 


N541 


0233 


010A.01DB 


N542 


0234 


010C01E1, 0205, 0210 


N543 


0235 


01F0 


N600 


0286 


0260, 0276, 027F, 0286 


N601 


0287 


0250.0252,0259,0256 


N603 


0288 


024F, 0258,0261, C26A 


'P1D 


0156 


0289 


S501 


01BE 


01B5 


W30AA 


0178 


30AA 


N30Ab 


0181 


30A3 


M30AC 


0188 


30AC 


W30A0 


018F 


30A0 


H30AE 


0194 


30AE 


K30AF 


019E 


30AF 


H30A7 


0150 


30A7 


M30A8 


0166 


30A8 


H30A9 


0170 


30A9 


W30BA 


01F8 


30BA 


H30BB 


0203 


3066 


H30BC 


020E 


30BC 


M30B0 


0219 


30BD 


U30BE 


0224 


30BE 


U30BF 


022F 


30BF 


W30BO 


01A2 


30B0 


haOBl 


01 AB 


30B1 


H30B2 


oiao 


3032 


W30B3 


01BB 


30B3 


W30B4 


01C0 


3084 


W30B5 


01D1 


30B5 


W30B6 


01D6 


3036 


W3067 


01DF 


3067 


H30B8 


01E8 


30B8 


W30B9 


01EC 


30B9 


H30C0 


023C 


30C0 


W30C1 


0244 


30C1 


W30C2 


024C 


30C2 


W30C3 


0255 


30C3 


W30C4 


02fE 


30C4 


U30C5 


0267 


30C5 


H30C6 


0270 


30C6 


W30C7 


0279 


30C7 


H30C8 


0262 


30C8 



DATE 
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ABS 








80200010 


02BC 








ORG 




/30C9 




80200020 








****** «*«««** **»«*S4**«*»**» **««*«*«««** ****** 


80200030 








* 






WAITS 


ERROR COMMENTS 


80200040 








#*««*****$************** **v«***«*****j* ******** 


80200050 


30C9 





0160 




DC 




W30C9+1 


LONG FORM LDX-FAILED 


80200060 


30CA 





016A 




DC 




W30CA+1 


LONG LDX FAILED 


80200070 


30C8 





0174 




DC 




W30CB+1 


LONG LDX FAILED 


80200080 


30CC 





017E 




DC 




W30CC+1 


INDIRECT LDX FAILED 


80200090 


30CD 





0108 




DC 




W30CD+1 


INDIRECT LOX FAILED 


80200100 


30CE 





0192 




DC 




W30CE+1 


INDIRECT LDX FAILED 


80200110 


30CF 





01A1 




DC 




W30CF+1 


ACC GONE AFTER ST? 


80200120 


30D0 





01AA 




DC 




W30D0+1 


IX 1 NOT STORED 


80200130 


30D1 





01133 




DC 




W20D1+1 


IX 2 NOT STORED 


80200140 


301)2 





OlIlC 




DC 




W3002 + '. 


IX 3 NOT STORED 


80200150 


30D3 





01116 




DC 




W30D3+1 


IX 1 NOT STOKED 


60200160 


300'. 





011)0 




DC 




W30D4+1 


IX 2 NOT STOKED 


80200170 


3005 





01DA 




DC 




W3005+1 


IX 3 MOT STORED 


80200180 


3006 





011:9 




DC 




H30D6+1 


iX 1 FAILED TO SKIP 


80200190 


3007 





01 EF 




DC 




H30D7+1 


1X2 CHANGED 


80200200 


3008 





01F5 




DC 




W30D8+1 


1X3 CHANGED 


80200210 


3009 





0200 




DC 




W30D9+1 


1X2 FAILED TO SKIP 


30200220 


30DA 





0206 




DC 




W30DA+1 


IX! CHANGED 


802002 30 


30DB 


c 


02 OC 




DC 




W30DB+1 


1X3 CHANGED 


802002*0 


30»C 





02!. 7 




DC 




W30DC+1 


1X3 FAILED TO SKIP 


802002 50 


3000 





02 ID 




DC 




W30DD+1 


I XI CHANGED 


80200260 


300E 





0223 




DC 




H30DE+1 


1X2 CHANGEO 


802002 70 


30DF 





0230 




DC 




W30DF+1 


WRONG DECODE OF ACC 


80200280 


30E0 





023B 




DC 




W30E0+1 


WRONG DECODE OF ACC 


80200290 


30F1 





0246 




DC 




W30E1+1 


WRONG DECODE OF ACC 


8020C300 


30E2 





02!>2 




DC 




W30E2+1 


OVERFLOW IS ON 


80200310 


30t3 





02!iC 


* 


DC 




W30E3+1 


CARRY NOT ON OR 

ADC 0001+FFFF FAILED 


81200320 
80200330 


30E4 





0267 


* 


OC 




W30E4+1 


CARRY NOT ON OR 
ADD-FFFF+FFFF FAILED 


80200340 
80200350 


30D5 





0272 


» 


OC 




W30E5+1 


OVERFLOW NOT Ofi OR 
ADD 4000+4000 FAILED 


80200360 
802O03'O 


30E6 





027A 




DC 




W30E6+1 


ADD 8000+8000 FAILED 


80200380 


30E7 





0282 




DC 




H30E7+1 


OVERFLOW NOT ON 


80200390 


30E8 





02 1. 7 




DC 




W30E8+1 


CARRY NOT ON 


80200400 








ttties»t«tt**«i>«s*t«4iis*Mtt*s«<!#ts**»«»t»t»* 


80200410 


30E9 








ORG 




342 




80200420 








«-**«************ ********************** »ttttt«t 


80200430 


0156 





0200 


PID 

* 


DC 




/0200 


PID 


80200440 
80200450 


0107 






CNTL 


EOU 




/0107 




80200460 


0115 






FOOO 


EOU 




/0115 




80200470 








*********#**$*********** 


v ********************* 


80200480 


0157 


00 


65C00001 


B600 


LDX 


LI 


1 




80200490 


0159 





C03D 




LD 




N603 




80200500 


015A 


00 


C5C00195 




LD 


LI 


N601 




80200510 


015C. 





F039 




EOR 




N602 




80200520 


0150 


00 


44C00115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP sW 


80200530 


015F 





30C9 


W30C9 


DC 




/30C9 


LONG FORM LDX-FAILiD 


80200540 


0160 





70F6 




MDX 




D600 


LOOP 


80200550 








******««****»«««* ****«***«**«»****«**«*«*»*«£« 


80200560 


0161 


00 


66000001 


B601 


LDX 


L2 


1 




80200570 


0163 


c 


C033 




LD 




N603 




60200580 


0164 


00 


C600O195 




LD 


L2 


N601 




60200590 


0166 





F02F 




EOR 




N602 




80200600 


0167 


00 


44000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80200610 


0169 





30CA 


W30CA 


DC 




/30CA 


LONG LDX FAILED 


80200o20 


016A 





70F6 




MDX 




B601 




80200630 








***»**»*****i. 


**** ******** ********************* 


80200640 


016B 


00 


67000001 


B602 


LDX 


L3 


1 




U0200650 


016D 





C029 




LD 




N603 




60200660 


016E 


00 


C7000195 




LD 


L3 


N601 




8C2C0670 


0170 





F025 




EOR 




N602 




80200680 


DATE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



OIMAL HEADER TEST (CARD! 
TSST5 



0171 00 44000115 
0173 30CB 
017-» 70F6 

0175 00 65800197 
0177 C020 

0176 00 C5000195 
017A F019 
0176 00 44000115 
017D 30CC 
017E 70F6 

017r 00 66800197 
0181 C016 
01E2 00 C6000195 
0184 FOOF 



0185 


00 


44000115 


01B7 





30CD 


oies 





70F6 


01B9 


00 


67800197 


0163 





COOC 


OldC 


00 


C7000195 


DUE 





F005 


018F 


00 


44000115 


0191 





30CE 


0192 





70F6 


0193 





7005 


0194 





0194 


0195 





0195 


0196 





0196 


0197 





FFFF 


0198 





0001 



0199 





C044 


019A 





0041 


019B 





COFF 


019C 





683F 


019D 





FOFD 


019E 


00 


44000115 


01A0 





30CF 


01A1 





70F7 


01A2 





C03B 


01A3 





D038 


01A4 





6100 


01A5 





6936 


01A6 





C035 



OiA7 00 4400C115 
01A9 30D0 
01AA 70F7 



CHECK ERR OR LOOP SW 
LONG LDX FAILED 



BSI L FOOO 

W30CB DC /30CB 

MDX B602 

**«*******««****«****««***«***«****««««««»**** 

B603 LDX II N603 

LD N604 

LD LI N601 

EOR N600 

BSI L FOOO CHECK ERR OR LOOP SW 

W30CC DC /30CC INDIRECT LDX FAILED 

MDX B603 LOOP 
********************* *******:•.************* **** 

B604 LDX 12 N603 

LD N604 

LD L2 N601 

EOR N600 

BSI L FOOO CHECK ERR OR LOOP SW 

W30CD OC /30CD INOIRECT LDX FAILED 

MDX B604 LOOP 
************** «*****««********«* ****** ««**«««« 

B605 LOX 13 N603 

LD N604 

LD L3 N601 

EOR N600 

BSI L FOOO CHECK ERR OR LOOP SW 

W30CE DC /30CE INDIRECT LDX FAILED 

MDX B605 LOOP 
************** ******************************** 

MDX A640 EXIT 

N600 OC N600 CONSTANT 

N601 OC N601 CONSTANT 

N602 OC N602 CONSTANT 

N603 DC /FFFF CONSTANT 

N604 DC /0001 CONSTANT 
*********************** v****s***s************* 

* 

* TEST OF STX OPERATION 

* 

****«*«*********»*«*«*«*«****•**«* **«#«****«** 

A640 LD N644 

STO N640 

H640 LD H640 

STX N640 

EOR H640 

BSI L FOOO CHECK ERR OR LOOP SW 

W30CF DC /3«CF ACC GONE AFTER STX 

MDX A640 LOOP 
********************************************** 

A642' LD N644 

STO N640 

LDX 1 

STX 1 N640 

LD N640 

BSI L FOOO CHECK ERR OR LOOP SW 

W30D0 DC /30D0 IX 1 NOT STORED 

MDX A 642 LOOP 

****** ***l-«******«****S***««*******«««** v *«*** 



CHECK ERR OR LOOP SW 
IX 2 NOT STORED 
LOOP 



01AB 





C032 


A644 LD 


N644 


01AC 





002F 


STO 


K640 


UlAD 





6200 


LDX 


2 


01AE 





6A2D 


STX 


2 N640 


01AF 





C02C 


LD 


N640 


oieo 


00 


440C0115 


BSI 


L FOOO 


01 B2 





30D1 


W30D1 DC 


/3001 


01B3 





70F7 


MDX 


A644 








ft****************** 


01B4 





C029 


A646 LD 


N644 


01B5 





0026 


STC 


N640 


DATE 




15MAY67 
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80 200690 
SO 2 00 700 
#0200710 
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*©200740 
80200750 
80200760 
$0200770 
30200780 
80200/90 
60200800 
80*00810 
#0200820 
ao 200 8 30 
60200840 
*0 2 00 6 50 
63200860 
80200870 
©0200660 
40200890 
80 200900 
80200910 
80200920 
#0200 <»30 
&Q200940 
80200950 
©0200960 
80200970 
80200980 
80200990 
£0201000 
80201010 
80201020 
©0201030 
80 201040 
802C1050 
£0201060 
£0201070 
802O10H0 
60201090 
80201100 
80201110 
80201120 
*0201130 
B0201140 
80201150 
80201160 
60201170 
£0201160 
80201190 
60201200 
80201210 
80201220 
«0201230 
$0201240 
#0201250 
80201260 
802012 70 
80201280 
60201290 
80201300 
80201310 
80201320 
80201330 
80201340 
80201350 
80201360 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


1800 SYSTEM 


PART NO. 2242253 


















PAGE 20 


5 


3 


D'MAL HEADER TEST 


(CARD) 














TESI5 










• 




* 


:) 


01B6 


6300 




LDX 


3 




80201370 


3 


3 


01B7 


6b24 




STX 


3 N640 




80201380 


0168 


C023 




LD 


N64C 




80201390 






01 BS 00 


44000115 




BSI 


L FOCO 


CHECK ERR OR LOOP SW 


80201400 


3 


3 


01BB 


30D2 


W3CD2 


DC 


/30D2 


9X 3 NOT ST0R5D 


802C1410 


OlbC 


70F7 


*<ft *« 


MDX 


A646 


LOOP 


80201420 










***************************************** 


80201430 






OlfcD 


COIF 


A648 


LD 


N643 




80201440 


3 


OlbL 


DC10 




STO 


N640 




80201450 






016F 


61FF 




LDX 


1 -1 




80201460 


1 


** 


01C0 


691B 




STX 


1 N640 




80201470 


•* 


01C1 


C01A 




LD 


N640 




80201480 






01C2 


F01B 




EOR 


N644 




80201490 


3 


3 


01C3 00 


44000115 




BSI 


L FOOO 


CHECK ERR OR LOO? SW 


80201500 


01C5 


30D3 


W3003 


DC 


/30D3 


IX 1 NOT STORED 


80201510 






01C6 


70F6 




HDX 


A648 


LOOP 


80201520 


~) 


3 






o*e***«***e*>«Sis*B**********s*********s ******** 


80201530 


01C7 


C015 


A64A 


LO 


N643 




80201540 






01C8 


D013 




STO 


N640 




80201550 


3 


3 


01C9 (i 


62 FF 




LDX 


2 -1 




80201560 


01CA 


6A11 




STX 


2 N640 




80201570 






01CB 


CO 10 




LD 


N640 




80201580 


3 


«* 


01CC 


FOil 




EOR 


N644 




60201590 


.i 


oi co oo 


44000115 




B',1 


L FOOO 


CHECK ERR OR LOOP SW 


80201600 






01CF 


3004 


M30D4 


DC 


/30D4 


IX 2 NOT STORED 


80201610 


3 


-j 


01D0 


70F6 




HDX 


A64A 


LOOP 


80201620 






-.:<fa«»»**S**9**v#* ***************************** 


80201630 






0101 


COOB 


A64C 


LO 


N643 




80201640 


3, 


_ 


Oil!?. 


D009 




STO 


N640 




80201650 


i 


ClOi 


63FF 




LOX 


3 -1 




80201660 






01(4 


6B07 




STX 


3 N640 




80201670 






OlDS 


C00f> 




LD 


N640 




80201680 


3 


.; 


01C6 


F007 




EOR 


N644 




8020)690 






0107 00 


44000115 




BSI 


L FOOO 


CHECK ERR OR LOO" SW 


8020 .700 






0U<9 


30D5 


W3005 


DC 


/3005 


IX 3 NOT STORED 


80201710 


j 


u 


010A 


70F* 


« 


MDX 


A64C 


1 OOP 


80201720 
60201730 






010b 


7003 




HDX 


A660 


EXIT 


80201740 




1 






******** ********* #$.*#**** *************** ****** 


80201750 






OiDC 


0000 


N640 


OC 


/OOOO 


STORAGE 


80201760 




J 


0100 


0000 


►<643 


DC 


/OOOO 


CONSTANT 


80201770 


010c 


FFFF 


N6*4 


DC 


/FFFF 


CONSTANT 


80201780 










********************************************* 


80201790 






01DF 


6100 


A660 


LDX 


1 




80201800 


3 


3 


01E0 


6200 




LDX 


2 




80201810 






01E1 


6300 




LDX 


3 




80201820 


t 




01E2 


71FF 




MDX 


1 -1 




80201830 


^ 


01E3 


7001 




MDX 


G660 




80201840 






01E4 


7001 




MDX 


J660 




80201850 


t 




01E5 


C0F9 


G660 


LD 


A660 




80201860 


G1F.6 OC 


44000115 


J660 


BSI 


L FOOO 


CHECK ERR OR LOOP SW 


80201C70 






01F6 


30D6 


W200t 


DC 


/30D6 


IX 1 FAILED TO SKIP 


80201880 


t 


3 


01E9 


70F5 




MDX 


A660 


LOOP 


80201890 


OlfcA 


6A3A 




STX 


2 N660 


CK FOR DISTRUCTION OF 


80201900 






01EB 


C039 




LD 


N660 


♦OTHER INDEXES 


80201910 


t 




C1EC OC 


44000115 




asi 


L FOOO 


CHECK ERR OR LOOP SW 


80201920 


*# 


01EE 


30D7 


M30D7 DC 


/30D7 


1X2 CHANGED 


80201930 






Oler 


70EF 




MDX 


A660 


LOOP 


8020 194C 




4* 


01F0 


6B34 




STX 


3 N660 




80201950 


t 


01F1 


C033 




LD 


N660 




80201960 






01F2 OC 


44000115 




BSI 


L FOOO 


CHECK ERR OR LOOP SW 


80201970 






OIF* 


3008 


W30D8 DC 


/30D8 


1X3 CHANGED 


80201980 


t 


* 


01F5 


70E9 




MOX 


A660 


LOOP 


80201990 










********************************************** 


80202C00 






01F6 


6100 


Af;2 


LDX 


1 




80202010 


C 


* 


01F7 


6200 




LOX 


2 




80202C20 






01F8 


6300 




LDX 


3 




80202030 






01F9 


72FF 




MDX 


2 -1 




80202C40 


• 


1 


PATE 


15MAY67 
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* 


EC NO. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SVSTEM 



?ART NO. 2242253 
?VAGE 20A 



D1MAL HEADER TEST (CARD) 
TEST5 



01FA 7001 




MDX 


B662 


._ 


6^)202050 




OlFtt 7001 




MDX 


G662 




80202060 




01FC C C0F9 


3662 


LD 


A662 




P0202070 
B6202080 




01 Fd 00 44000115 


G662 


BSi 


L FOOO 


CHECK ERR OR LOOP SW 




01FF 30D9 


W30D9 


DC 


/30D9 


1X2 FAJLEO TO SKIP 


80202090 




0200 70F5 

0201 6923 




HDX 
STX 


A662 
1 N660 


LOOP 


80202100 
~ 80202110 




0202 C022 




LD 


N660 




v 30202120 




0203 00 44000115 




BSI 


L FOOO 


CHECK ECR OR LOOP SW , 


80202130 




0205 30DA 


W30DA 


DC 


/30DA 


1X1 CHANGEO „ 80202140 




0206 70EF 




HDX 


A662 


LOOP 


8020Z150 




0207 6B1D 




STX 


3 N660 




80202160 




0208 C01C 




LD 


N660 




80202 17C 




0209 00 4400C115 




BSI 


L FOOO 


CHECK ERR OR LOOP SW 


80202180 




0208 30DB 


W30DB 


DC 


/30DB 


1X3 CHANGED 


80202 1-.0 




020C 70E9 




MDX 


A662 


LOOP , 


80202200 






*************************** v******-*********** 1 " 


80202210 




020D 6100 


A664 


LDX 


1 


CK DISTRUCTION OF 


80202220 




020E C 6200 




LDX 


2 


OTHER INOEXES . . 


80202230 




020F C 6300 




LOX 


3 




80202240 




0210 73FF 




MOX 


3 -1 




80202250 




0211 7001 




MDX 


8664 




80202260 




0212 7001 




MDX 


G664 




80202270 




0213 C0F9 


8664 


LD 


A664 




80202280 




0214 00 44000115 


G664 


BSI 


L FOOO 


CHECK ERR OR LOOP SW 


80202290 




0216 30DC 


W30DC 


DC 


/30DC 


1X3 FA1LE0 TO '.KIP 


80202300 




0217 70F5 




MDX 


A664 


LOOP 


80202310 




0218 69CC 




STX 


1 N660 




80202320 




0219 COOB 




LD 


N660 




80202330 




021A 00 440001 15 




BSI 


L FOOO 


CHECK ERR OR LOOP SW 


80202340 




021C 30DD 


W30DD 


DC 


/30DD 


1X1 CHANGED 


80202350 




021D 70EF 




MDX 


A664 


LOOP 


80202360 




G21E 6A06 




STX 


2 N660 




80202 370 




021F C005 




LD 


N660 




80202380 




0220 00 44000115 




BSI 


L FOOO 


CK ERR OK LOOP SW 


80202 390 




0222 C 30DE 


W30DE 


DC 


/30Dc 


1X2 CHANGED 


80202400 




0223 70E9 


* 


MDX 


A664 


LOOP 


80202410 
80202420 




0224 7001 




MDX 


A670 


EXIT 


80202430 






********************************************** 


80202440 




0225 COOO 


N660 


DC 


/OOOO 


STORAGE 


80202453 






********************************************* 


80202460 




0226 6110 


A670 


LDX 


1 16 




80202470 




0227 C020 




LD 


N670 


LOAD ONE 


80202480 




0228 00 4C18022D 


G671 


BSC 


L G670t*~ 




80202490 




022A 1001 




SLA 


1 




80202500 




022B 71FF 




MOX 


1 -1 




80202510 


'■ 


022C 70FB 




MOX 


G671 




80202520 




022D 00 44000115 


G670 


BSi 


L FOOO 


CHECK ERR OR LOOP Sti 


80202530 




022F 30DF 


HJODf 


DC 


/30DF 


WRONG DECODE OF ACC 


80202540 




0230 7CF5 




MDX 


A670 


LOOP 


80202550 






********** 


A*********************************** 


80202560 




0231 6210 


A671 


LDX 


2 16 




80202570 




0232 C015 




LD 


N670 


LOAD ONE 


80202580 




0233 CO 4C 180238 


G673 


8SC 


L G675t*- 




80202590 




0235 1001 




SLA 


1 




80202600 




0236 72FF 




MDX 


2 -1 




80202610 




0237 70FB 




MDX 


G673 




80202620 




0238 00 44000115 


G675 


BSI 


L FOOO 


CHECK ERR OR LOOP SW 


80202630 


i 


023A 30E0 


W30E0 DC 


/30E0 


WRONG DECODE OF ACC 


80202640 




0238 C 70F5 




MDX 


A671 


LOOP 


80202650 






******************** ************************* 


80202660 


» 


0230 6310 


A672 


LDX 


3 16 




80202670 




023D COOA 




LD 


N670 


LOAD ONE 


80202680 




023E 00 4C180243 


G676 


BSC 


L G678t+— 




80202690 


- 


0240 1001 




SLA 


1 




80202700 




0241 73FF 




HDX 


3 -1 




80202710 




0242 70FB 




MDX 


G676 




80202720 


r 
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0243 00 


44000115 


G67B 


BS1 


L 


FOOO 


CHECK ERR OR LOOP SW 


80202730 




0245 


30E1 


H30E1 


DC 




/30E1 


WPONG DECODE OF ACC 


80202740 




0246 


70F5 


* 


KDX 




A672 


LOOP 


80202750 
80202 760 




0247 


7001 




MDX 




A680 


EXIT 


80202770 








*#******»*****»*******«***»**#***«*********** 


80202780 




0248 


0001 


N670 


DC 




/0001 


CONSTANT 


80202 79C 








********* #******::*v#***:fc:**^******v***********3 


80202800 








* 










80202810 








» 






TEST 


OF ADD OPERATION 


60202820 








* 










80202830 








j***********************v**************»**##*** 


30202840 




0249 


2002 


A660 


LOS 




2 




80202850 




C24A 


C03F 




ID 




N660 




80202860 




024b 


803F 




A 




N681 




80202870 




024C 00 


4C01024F 




BSC 


L 


G680>0 




80202880 




024E 


F03B 




EOR 




N680 




80202890 




024F CO 


4*000115 


G680 


BS! 


L 


FOOO 


CHECK ERR OR LOOP SW 


80202900 




0251 


30E2 


W30E2 


DC 




/30E2 


OVERFLOW !S ON 


80202910 




0252 


70F6 




MDX 




A680 


LOOP 


802029?0 








e»t*49««#««4«f^#«««4«««9«##4#«#«4V«¥4«9»#44*#* ' 


80202930 




0253 


2000 


A684 


LCS 









80202940 




0254 


C035 




LD 




N680 




802029 50 




0255 i. 


B036 




A 




N682 




80202960 




0256 00 


4C020259 




BSC 


L 


G684.C 




80202970 




0256 


C031 




LD 




N680 




60202960 




02 59 00 


44000115 


G684 


BSI 


L 


FOOO 


CHECK ERR OR LOUP SW 


8C202990 




025b 


30E3 


K3CE3 

* 


DC 




/30E3 


CARRY NOT ON OR 

ADD 0001+FFFF FAILED 


80203000 
80203010 




025C 


70F6 




MDX 




A684 


LOOP 


80203020 








is********************** 


s** ******** ************ 


80203030 




0251) 


J 000 


A688 


IDS 









80203040 




025E 


C02B 




LD 




N680 




80203050 




025F 


802A 




A 




N680 




80203060 




0/60 CO 


*C020263 




BSC 


L 


G688.C 




80203070 




0?62 


7001 




MDX 




G689 




80203080 




0253 C 


F02C 


G638 


FOR 




N687 




80203090 




026<t 00 


44000115 


G689 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80203100 




0266 


30fc4 


H30E4 


DC 




/30E4 


CARRY NOT ON OR 


80203110 




0267 


7UF5 




MDX 




A688 


LOOP 


80203120 








**«******&*********>-.*** 


is*********** ********** 


80203130 




0268 


2000 


A68C 


LDS 









80203140 




02 59 


C023 




l.O 




N683 




80203150 




02fcA 


B022 




A 




N683 




80203160 




026B CO 


4C01026E 




BSC 


L 


G68C.0 




80203170 




026^ 


7001 




MDX 




G68E 




30203180 




026E 


F01F 


G68C 


EOR 




N684 




80203190 




026F 00 


44000115 


G68E 


3S1 


L 


FOOO 


CHECK ERR OR LOOP SW 


80203200 




0271 


30E5 


W30E5 


DC 




/30E5 


OVERFLOW NOT ON OR 
ADO 4000+4000 FAILED 


80203210 
80203220 




0272 


70F5 




MDX 




A68C 


LOOP 


80203230 








•«*»»#«*«» 


************* 


**»******«*****¥******» 


80203240 




0273 


2000 


B680 


LDS 









802032 50 




0274 


C019 




LD 




N684 




80203260 




0275 


8U10 




A 




N684 




802032 70 




02 76 


261A 




STS 




N688 




80203280 




0/11 00 


44000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80203290 




0279 


30E6 


W30E6 


DC 




/30E6 


ADO 8000+8000 FAILED 


80203300 




027A 


70F8 




MDX 




B680 


LOOP 


8020331} 




027B 


C015 




LD 




N68B 




80203320 




027C 


F012 




EOR 




N686 




8020333D 




027D 00 


4C040284 




BSC 


L 


K682.E 




8020334D 




027F 00 


44000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80203350 




0281 


30E7 


H30E7 


DC 




/30E7 


OVERFLOW NOT ON 


B0203360 




0282 


7OF0 




»DX 




B680 


LOOP 


80203370 




0283 


7004 




MDX 




A6C0 




8020338D 




0284 00 


44000115 


K682 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80203390 




0286 


30E8 


H30E8 


DC 




/30F8 


CARRY NOT ON 


80203400 




DATE 
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IBM MAINTENANCE DIAGNOSTIC "ROGRAM FOR THE 1800 SYSTEM 



DIMAL HEADER TEST (CARD) 
TEST5 



0287 70EB 



0288 00 4C000107 



0292 



01 3C 



MDX B680 LOOP 

********************************************** 

A6C0 BSC L CNTL RETURN TO REAO NEXT SEC 

si******************************************** 

CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
STORAGE 

******* V ************************************** 

END X *-PID END CARD NC USED 8020353 



028A 


FFFF 


l>'680 


DC 


/FFFF 


026B 


0000 


N681 


DC 


/OOOO 


028C 


0001 


N682 


DC 


/0001 


028D 


4000 


N6S3 


DC 


/4000 


028E 


8000 


N684 


DC 


/8000 


028F 


0003 


N686 


DC 


/0003 


0290. 


FFFE 


N687 


DC 


/FFFE 


0291 


0000 


N688 


DC 


/OOOO 
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80203410 
30203420 
80203430 
80203440 
80203450 
80203460 
80203470 
80203480 
80203490 
80203500 
80203510 
60203520 
80203530 
60203540 



DATE 
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N 
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CROSS REFERENCE LISTING 



SYMBOL 

A6C0 

A64A 

A64C 

A640 

A64? 

A644 

A646 

A648 

A660 

A662 

A664 

A670 

A671 

A672 

A6BC 

A6B0 

A684 

A688 

B600 

B601 

b602 

B603 

B604 

B605 

B662 

B664 

B6f>0 

CN7L 

FOOO 



G660 
G662 
G664 
G670 
G671 
G673 
G675 
G676 
G676 
G68C 
G68E 
G680 
G684 
G688 
G689 
H640 
J660 
K682 
N600 
N601 
N602 
N603 
N604 
N640 

N643 
N644 
N660 

N670 
N6B0 
N681 
N682 



DATE 
EC NO. 



VALUE 

0288 

01C7 

0101 

0199 

01A2 

01AB 

01ii4 

01BD 

01DF 

01F6 

0200 

0226 

0231 

02 3C 

0268 

0249 

0253 

0250 

0157 

0161 

oi6a 

0175 
017F 
01E9 
01FC 
0213 
0273 
0107 
0115 



01E5 
01F0 
0214 
0220 
0228 
0233 
0238 
023E 
0243 
026E 
026F 
024F 
02^9 
0263 
0264 
019B 
01E6 
0284 
0194 
0195 
0196 
0197 
0198 
01DC 

0100 
010E 
0225 

0248 
028A 
028B 
028C 



REFERENCES 

0283 

01D0 

010A 

0193, 01U 

01AA 

01B3 

01BC 

01C6 

010B,0IE5,01E9 

01FC, 0200, 0206 

0213,0217,0210 

0224,0230 

023B 

0246 

0272 

0247,0252 

025C 

0267 

0160 

016A 

0174 

017E 

0188 

0192 

01FA 

0211 

027A, 0282, 0287 

0288 

0150,0167,0171 

01C3,01CO,0107 

021A, 0220, 0220 

027F.0284 

01E3 

01FB 

0212 

0228 

022C 

0237 

0233 

0242 

023E 

026B 

0260 

024C 

0256 

0260 

0262 

019B.0190 

01E4 

0270 

017A.0184.018E 

015A,0164,016E 

015C, 0166, 0170 

0159,0163,0160 

0177,0181,0186 

019A.019C01A3 

01B8,01BE,01CO 

01B0,01C7,01D1 

0199.01A2.01AB 

01FA.C1EB.01F0 

021E.021F 

0227,0232,0230 

024A.024E.0254 

024B 

0255 



,01EF,01F5 

,020C 

,0223 



,0173,0185,O18F,Ol9E,01A7,01B0.01B9, 
, 01 56. 01 EC, 01 F2, 01 FO, 0203, 0209, 02 14, 
,0236, 0243, 024F, 0259, 0264, 026F, 0277, 



,0194 

,0176, 0182, 013C, 0195 

,0196 

,0175, 017F, 0189 

,01A5,01A6,01AC,01AE,01AF,01B5,01B7, 
,G1C1,01C8,01CA,01CB,01D2, 0104,0105 

.018*. 01C2.01CC, 0106 

,01 F 1,0201,0202, 0207,0208,021 8,0219, 



,0258,025E,02SF 



15MAY67 
411731 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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PAGE 22A 



DIMAL 


HEADER TEST 


(CARD) 


TEST5 






N683 


028D 


0269,026A 


N684 


028E 


026E, 0274, 0275 


N686 


02BF 


02 7C 


N687 


0290 


0263 


N688 


0291 


0276, 0276 


PiD 


0156 


0292 


H30CA 


0169 


30CA 


N3CCB 


0173 


30CB 


W30CC 


017D 


30CC 


M30CD' 


0187 


30CD 


N30CE 


0191 


30CE 


W30CF 


01A0 


30CF 


H30C9 


01 5F 


30C9 


H300A 


0205 


30DA 


U300B 


0208 


30DB 


M30DC 


0216 


30DC 


H30D0 


02 1C 


300D 


H30DE 


0222 


30DE 


H300F 


022F 


300F 


H30D0 


01A9 


3000 


H3001 


01B2 


3001 


M30D2 


01BB 


3002 


H3003 


01C5 


3003 


H30D4 


01CF 


3004 


U30D5 


01D9 


3005 


W3006 


01E8 


3006 


H3007 


01EE 


30D7 


W30D8 


01F4 


3008 


H3009 


01FF 


3009 


H30E0 


023A 


30E0 


W3t«: 1 


0245 


30E1 


H30E2 


0251 


30E2 


W30E3 


0258 


30E3 


U30E4 


0266 


30E4 


U30E5 


0271 


30E5 


M30E6 


0279 


30E6 


U30E7 


0281 


30E7 


U30E8 


0286 


30E8 
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IBM MAINTENANCE DIAGNOSTIC PROGRAH FOR THE 1800 SYSTEM 



OIMAL HEADER TEST ICARD) 
TEST6 



02ec 



ABS 

ORG /30E9 

* WAITS ERROR COMMENTS 

44*444»4444*444*444444444444444444444«44 444444 



30E9 





015E 


30 E A 





0165 


3CEB 





OHD 


30EC 





01V4 


?OED 





01 7C 


30EE 





Olf.2 


30EF 





OlfcA 


30F0 





0191 


3CF1 





0199 


30F2 





01*0 


3GF3 





01E7 


30F4 





OldF 


30F5 





01C7 


30F6 





01CF 


30P, 





0107 


30Ffl 





01E2 


30F9 





01EF 


2'TA 





01F6 


: : b 





OlFt 


3*/FC 





0207 


30FD 





0200 


30 Fl: 





0216 


30FF 





02 1C 


31o0 





0225 


3101 





0220 


3102 





0231 


3103 





0242 


3104 





0249 


3105 





0254 


3106 





0250 


3107 





0266 


3108 





0271 


3109 





0277 


31CA 





027F 


310B 





0288 


310C 






0156 





0200 


0107 






0115 







DC 


W30E9+1 


WRONG LOCATION 


DC 


W30FA+1 


IX 1 LOADED WRONG 


DC 


W30EB+1 


WRONG LOCATION 


DC 


W30EC+1 


IX 2 LOADED wRONG 


DC 


W30ED+1 


WRONG LOCATION 


DC 


W30EE+1 


IX 3 LOADED WRONG 


DC 


W30EF+1 


WRONG LOCATION 


DC 


W30F0-M 


IX 3 LOADED rtkONG 


DC 


W30F1+1 


WRONG LOCATION 


DC 


W30F2+1 


IX 3-LOAOED WRONG 


DC 


W30F3+1 


SHORT INDEX FAILED 


DC 


W30F4H 


SHORT INDEX FARED 


DC 


W30F5+1 


SHORT INDEX FAILED 


DC 


H30F6+1 


INDEXED SLA FAILED 


DC 


W30F7+1 


INDEXED SKA FAILED 


DC 


W30F8+1 


INDEXED BSC FAILED 


DC 


W30F9+1 


BSC INDIRECT FAILED 


DC 


W30FA+1 


0001 MINUS COOO FAIL 


DC 


W30FB+1 


CARRY NOT ON 


oc 


W30FC+1 


FFFF MINUS 0-00 FAIL 


DC 


W30FD+1 


CARRY NOT SET 


DC 


W30FL+1 


0001 MINUS eoOO FAIL 


DC 


W30FF+1 


OVERFLOW NOT SET 


DC 


W3100+1 


8000 MINUS OOOO FAIL 


DC 


M3101+1 


CARRY NOT 0'. 


DC 


W3102+1 


OVERFLOW NOT ON 


DC 


H3103+1 


IX) FAILED TO SKIP 


DC 


W3104+1 


MOX 1X1 FAILED 


DC 


M3105+1 


MUX LONG IX 2 FAILED 


DC 


W3106+1 


IX 3 NO SKIP AT 


DC 


K3107+1 


SIGN CHANGE-NO SKIP 


DC 


W3108-H 


ACC GONE AFTER MOX I 


DC 


H3109+1 


INDIRECT «CX FAILED 


DC 


W310A+1 


MDX L FAILEU TO SKIP 


DC 


W3103+1 


MDX L SKIPPED-ERROR 


44444444 44*4444444444444444 444 444444 4*44444444 
* 


ORG 


342 




P10 » DC 

4 


/0200 


PID 


CNTL EOU 


/0107 




FOOO EOU 


/0115 





444 4 44 44 444 4 44 4 4 44 4444444444444 44844444444*444 

4 

* INDEXING TEST 

4 

44444444 44444444444444444444444444444444444444 



CHECK ERR OR LOOP SW 
WRONG LOCATION 
LOOP 



0157 


61FC 


A6C0 


LDX 


1 


-4 


0158 00 


C50001A6 




LD 


LI 


N6C4 


015A 


F047 




EOR 




N6C0 


015B 00 


44000115 




BS1 


L 


FOOC 


0150 


30E9 


W30E9 


DC 




/30E9 


015E 


70F8 




MDX 




A6C0 


C15F 


694 3 




STX 


1 


N6C9 


0160 


C04A 




LD 




N6C9 


0161 


F04A 




EOR 




N6CA 


0162 00 


44000115 




BSI 


L 


FOOO 


0164 


30EA 


W'OEA 


DC 




/30EA 


0165 


70F1 




MDX 




A6C0 



CHECK ERR OR LOOP 
IX 1 LOAOEO WRONG 
LOOP 



SW 



0166 62C4 

0167 00 C60001A6 



444444444444 4444444444444444444444444s44«44444 

A6C2 LDX 2 4 

LD L2 N6C4 
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80200010 

80200020 

80200030 

80200040 

80200050 

80200060 

80200070 

80200080 

80200090 

80200100 

80200110 

80200120 

80200130 

80200140 

80200150 

80200160 

80200170 

80200180 

80200190 

60200200 

80200210 

80200220 

802002 30 

80200240 

80200250 

80200260 

6O20C2 7O 

80200280 

80200290 

80200300 

80200310 

80200320 

802C0330 

80200340 

80200350 

80200360 

80200370 

80200360 

80200390 

80200400 

80200410 

80200420 

80200430 

80200440 

802004 50 

80200460 

80200470 

80200480 

80200490 

80200300 

80200510 

80200520 

80200530 

80200540 

80200550 

80200560 

80200570 

80200580 

80200590 

80200600 

80200610 

80200620 

80200630 

80200640 

80200650 

80200660 

80200670 

80200630 
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0169 





F040 




EOR 




N6C8 




80200690 




016A 


00 


44000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80200700 




016C 





30EB 


W30EB 


DC 




/30EB 


WRONG LOCATIuN 


60203710 




016D 





70F8 




MDX 




A6C2 


LOOP 


302G0720 




016E 





6A3C 




STX 


2 


N6C9 




80200730 




016F 





C03B 




LD 




N6C9 




60200740 




0170 





F03C 




EOR 




N6CB 




802007 50 




0171 


00 


44000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80200760 




0173 





30EC 


W30EC 


DC 




/30EC 


IX 2 LOADED tiRONG 


80200770 




0174 





70F1 




MDX 




A6C2 


LOOP 


8020C780 










444? 4444444444444444444 4 444444444444 4*44444444 


8020C790 




0175 





6300 


A6C4 


LOX 


3 







80200600 




0176 


00 


C70001A6 




LD 


1.3 


N6C4 




80200 610 




0178 





F02D 




FOR 




N6C4 




80200=120 




0179 


00 


44000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


8020CO30 




017B 





30E0 


W30ED 


DC 




/30ED 


WRONG LOCATION 


8020Cb40 




017C 





70F8 




MDX 




A6C4 


LOOP 


60200650 




017D 





6B20 




STX 


3 


N6C9 




8020C860 




017E 





C02C 




LD 




N6C9 




80200670 




017F 


00 


44000115 




BSI 


L 


FOOO 


CHECK FRR OR LOOP SW 


80200860 




0181 





30EE 


W30EE 


DC 




/30EE 


IX 3 LOADED WRONG 


802C0690 




0182 





70F2 




MDX 




A6C4 


LOOP 


8020C900 










444 44444 444444444444 4*444444444*44*4*444*4444* 


80200910 




01C3 





6301 


A6C6 


LDX 


3 


1 




80200920 




0184 


00 


C70001A6 




LD 


L3 


N6C4 




802C0930 




0186 





F020 




EOR 




N6C5 




80200940 




0187 


00 


44000115 




BSI 


L 


FOOO 


CHECK ERR Ok LOOP SW 


80200950 




0189 





30EF 


W30EF 


DC 




/30Er 


WRONG LOCATION 


80200960 




018A 





70F8 




MDX 




A6C6 


LOOP 


802CG970 




OlKB 





6B1F 




STX 


3 


N6C9 




60200960 




P18C 





C01E 




LD 




N6C9 




80200990 




018D 





F020 




EOR 




N6CI) 




80201000 




018E 


00 


44000115 




BSI 


L 


FOOO 


CHECK. ERR OR LOOP SW 


80201010 




0190 





30F0 


W3CF0 


DC 




/30F0 


IX 3 LOADED **ONG 


60201020 




0191 





70F1 




MDX 




A6C6 


LOOP 


B02G1U30 










444444444444444444444444444444444444497444 4444 


80201C-0 




0192 





63FF 


A6CB 


LDX 


3 


-1 




80201050 




0193 


00 


C78001A7 




LD 


13 


N6C5 




80201060 




0195 





F010 




EOR 




N6C4 




80201070 




0196 


00 


44000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80201060 




0198 





30F1 


W30F1 


DC 




/30F1 


WRONG LOCATION 


80201090 




0199 





70F8 




MDX 




A6CB 


LOOP 


80201100 




019A 





6B10 




STX 


3 


N6C9 




80201110 




0196 





COOF 




LD 




N6C9 




80201120 




019C 





F012 




EOR 




N6CF 




80201130 




019D 


00 


44000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80201! 40 




019F 





30F2 


W30F2 


DC 




/30F2 


IX 3-LOADEO »*GNG 


802011 




01A0 





70F1 


4 


MDX 




A6C8 


LOOP 


60201160 
60201170 




01A1 





700E 




MDX 




A6D0 


EXIT 


80201160 










444*444444444444444444444444444444444444444444 


602C119O 




01A2 





01A2 


N6C0 


DC 




N6C0 


CONSTANT 


80201200 




01A3 





01A3 


N6L1 


DC 




N6C1 


CONSTANT 


80201210 




01A4 





01A4 


N6C2 


DC 




N6C2 


CONSTANT 


B0201220 




01A5 





01A5 


N6C3 


DC 




N6C3 


CONSTANT 


60201230 




01A6 





01 A6 


N6C4 


DC 




N6C4 


CONSTANT 


80201240 




01A7 





01A7 


N6C5 


DC 




N6C5 


CONSTANT 


60201250 




01A8 





01A8 


N6C6 


DC 




N6C6 


CONSTANT 


80201260 




01A9 





01A9 


N6C7 


DC 




N6C7 


CONSTANT 


80201270 




01AA 


u 


01 AA 


N6C8 


DC 




N6C8 


CONSTANT 


6020128C 




01AB 





0000 


N6C9 


DC 




/OOOO 


STORAGE 


80201290 




01AC 





FFFC 


N6CA 


DC 




/FFFC 


CONSTANT 


80201300 




01AD 





0004 


N6CB 


DC 




/0004 


CONSTANT 


80201310 




01AE 





0001 


N6C0 


DC 




/0001 


CONSTANT 


60201320 




01AF 





FFFF 


N6CF 


DC 




/FFFF 


CONSTANT 


80201330 










****«***44444444 4v*444*44444444444444444**4444 


80201340 




01B0 


00 


650001A3 


A600 


LDX 


LI 


N6C1 




80201350 




0182 





C1FF 




LD 


1 


-1 


SHORT FORM INDEXING 


80201360 




OATE 




15MAY67 












PROG ID 
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EC NO. 


411731 
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01B3 FOEE 
01B4 00 44000115 
01B6 30F3 
01B7 70Fe 

01B8 00 660001A3 
01BA C201 
OibB F0E8 
OlbC 00 44000115 
01BE 30F4 
01BF 70F8 

01C0 00 670001A3 
01C2 COO 
01C3 F )DF 
01C4 00 V.000115 
OlCb 30F5 
01C7 73F8 



OlCh 





6102 


01C9 





C0E4 


01CA 





1101 


OlCb 





F0E1 


01CC 


oo 


4*000115 


01CE 





30F6 


01CF 





73F8 


011)0 





6202 


01D1 





C3DB 


01U2 





1A01 


pid.i 





F SUA 


0104 


00 


4*000115 


01D6 





33F7 


0107 





73F8 



0108 6301 

0109 C3S9 
010A 00 4=000100 
010C 7J02 
01DD 7301 
010E F354 
010F 00 44000115 
01H 3DF8 
01E2 73F5 



01F0 2000 
01F1 C042 
01F2 90h2 



EOR N6C0 

BSI L FOOO CHECK ERR OR LOOP SW 

W30F3 DC /30F3 SHORT INDEX FAILED 

MDX A6D0 LOOP 

**$.****.****»»***************** v******* ******** 

A6D2 LDX L2 N6C1 

LD 2 1 

EOR N6C2 

BSI L FOOO CHECK ERR OR LOUP SW 

W30P4 DC /30F4 SHORT INDEX FAILED 

MOX A6D2 LOOP 

***************** ************ ****** *********** 

A603 LDX L3 N6CI 

IP 3 

EOR N6C1 

BSI L FOOO CHECK ERR OR LOOP SH 

W30F5 OC /30F5 SHORT INDEX FAILED 

MDX A6D3 LOO? 
******** *#«********«*******««* **************** 

A605 LDX 1 2 

LD N6CD 

SLA i 1 

EOR N6CB 

BSI L FOOO CHECK ERR OR LOOP SW 

W30F6 DC /30F6 INDEXED SLA FAILED 

MOX A6D5 LOOP 

***********; ;**********-*v********V** ************ 

A6D6 LDX 2 2 

LD N6CB 

SRA 2 1 

EOR N6CD 

BSI I. FOOO CHECK ERR OR LOOP SW 

W30F7 DC /30F7 INDEXED SRA FAMED 

MDX A606 LOO? 
********»**»*********#*&************ ********** 
* 

* TEST INDEXED BSC 
* 
********* **><*«*«*»************««**•**« ******** 

A6F0 LDX 3 1 

LD N6F1 

Bf.C L3 N6F0 

MDX B6F0 

N6F0 MOX 36F0 

EOR N6F1 CK FOR DISTP.OYED ACC 

B6F0 BSI L FOOO CHECK ERR OR LOOP SW 

W30F8 DC /30FB INDEXED BSC FAILED 

MDX A6F0 LOOP 
*******«*««**«#***********«*******?*********** 



BSC FAILED 
BSC FAILED 
9SC FAILED 



CHECK ERR OR LOOP SW 
BSC INDIRECT FAILED 
LOOP 

********************************************** 

* 

* TEST OF SUBTRACT OPERATION 

* 

*************************** v******** *..-** ****** 

A700 LDS 

LD N700 
S N701 



01E3 


6201 




A6FI 


LDX 


2 1 


01E4 


1310 






SLA 


16 


01E5 00 


4E8001F9 




BSC 


12 N6F2 


01E7 


7303 






MDX 


H6FI 


01E8 


7302 






MDX 


H6F1 


01E9 


01EB 




N6F2 


OC 


H6F1 


01EA 


01 EC 






DC 


HSF3 


01EB 


C3FF 




H6F1 


LD 


KiFl 


01EC 00 


440001 


15 


H6F3 


BSI 


L FOOO 


01EE 


30F9 




H30F9 


DC 


/30F9 


01EF 


7'3F3 






MDX 


A6F1 



DATE 
EC NO. 
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.1. 
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80201370 

B0201380 

80201390 

80201400 

60201410 

80201420 

80201430 

80201440 

8C201450 

80201460 

80201470 

80201480 

80201490 

80201500 

80201510 

80201520 

80201530 

80201540 

80201550 

80201560 

80201570 

80201580 

80201590 

80201600 

80201610 

80201620 

80201630 

80201640 

80201650 

80201660 

80201670 

8020^680 

8020.690 

80201700 

80201710 

80201720 

80201730 

80201740 

80201750 

80201760 

80201770 

80201780 

80201790 

80201800 

80201610 

80201820 

80201630 

60201840 

80201850 

80201660 

80201870 

80201880 

80201890 

60201900 

80201910 

80201920 

60201930 

60201940 

80201950 

80201960 

80201970 

60201960 

80201990 

80202000 

80202010 

80202020 

80202030 

80202040 



PROG 10 
PAGE 



t 
t 
I 

3 
3 
1 
1 

1 
1 

j 
1 

1. 

1 

!> 

1 

"i 

1 



0802-1 
24 



t 

1 
1 
1 

3 
3 
3 
3 
3 
3 
D 
~i 

3 

1 
3 
3 
1 
3 
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01F3 
01F4 



2842 
F042 



OlFj 00 44000115 
01F7 SOFA 
01F8 70F7 
01F9 C03C 
01FA F030 
01FB 00 44000115 
01FD 30FB 
01FE 70F1 



01FF 
0200 
0201 
0202 
0203 
0204 00 

0206 

0207 

0208 

0209 
020A 00 
020C 
0200 



020E 
020F 
0210 
0211 
0212 
0213 00 

0215 

0216 

0217 
0216 
0219 00 
02 IB 
021C 



2000 

C033 

9035 

2833 

F031 

44000115 

30FC 

70F7 

C020 

F02E 

44000115 

30FD 

7CF1 

2000 

C029 

9024 

2824 

F028 

44000115 

30FE 

70F7 

C01E 

F01C 

44000115 

30FF 

70F1 



021D 
021E 
021F 
0220 
0221 
0222 
0224 
0225 
0226 
0227 
0226 
022A 
022C 
0220 
022E 
0230 
0231 



2000 

C015 

9019 

2815 

F017 
00 44000115 
3100 
70F7 
COOF 
F012 
00 4C04022E 
00 44000115 
3101 
70EF 
00 44000115 
3102 
70EB 



0232 7009 



0233 
0234 
0235 
0236 
0237 
0238 
0239 
02 3A 
023B 



0233 
0000 
0001 
0000 
FFFF 
0002 
8000 
0003 
7FFF 



DATE 
EC NO. 



15MAV67 
411731 



STS 

EOR 
BSI 

W30FA DC 
MDX 
LD 
EOR 
BSI 

W30FB DC 
MDX 



N702 

N703 

FOOO 

/30FA 

A 700 

N702 

N704 

FOOC 

/30F8 

A700 



CHECK ERR OR LOOP SW 
0001 MINUS 0000 FAIL 
LOOP 



CHECK ERR OR LOOP SW 
CARkY NOT ON 

LOOP 



*****«*«*********■>****»«**«*«*«*»*******?*«•** 



A704 LOS 
LD 
S 

STS 
EOR 
BSI 

W30FC OC 
MDX 
LD 
EOR 
BSI 

W30FD OC 
MOX 





N700 

N703 

N702 

N701 

FOOO 

/30FC 

A704 

N702 

N704 

FOOO 

/30FD 

A 704 



CHECK ERR OR LOOP SW 
FFFF MINUS 0000 FAIL 
LOOP 



CHECK ERR OR LOOP SW 

CARRY NOT SET 

LOfiP 



***********«**«****»#*«#«***»********** v****** 



A 708 LDS 
LD 
S 

STS 
EOP. 
BSI 

W30FE DC 
MDX 
LO 
EOR 
BSI 

W30FF DC 
MDX 





N705 

N701 

N702 

N707 

FOOO 

/30FE 

A 708 

N702 

N701 

FOOO 

/30F. 

A708 



CHECK ERR OR LOOP SW 
0001 MINUS 8000 FAIL 
LOOP 



CHECK ERR OR LOOP SW 
OVERFLOW NOT SET 
LOOP 



v************** ******************************* 



A70C LOS 
LD 
S 

STS 
FOR 
BSI 

W3100 DC 
MDX 
LD 
EOR 
BSC 
BSI 

W3101 DC 
MDX 

H70E BSI 

W3102 DC 
MDX 

* 

MDX 





N7C0 

N705 

N702 

N705 

FOOO 

/3100 

A70C 

N702 

N706 

H70F.E 

FOOO 

/3101 

A70C 

FOOO 

/3102 

A70C 

A640 



CHECK ERR OR LOOP SW 
8000 MINUS 0000 FAIL 
LOOP 



CHECK ERR OR LOOP 

CARRY NOT ON 

LOOP 

CHECK ERR OR LOOP 

OVERFLOW NOT ON 

LOOP 

LOOP 



SW 



SW 



*************** ****************** v** ********** 



N6F1 
N700 
N701 
N702 
N703 
N704 
N705 
N706 
N707 



nc 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



N6F1 

/OOOO 

/0001 

/OOOO 

/FFFF 

/0002 

/8000 

/0003 

/7FFF 



CONSTANT 

CONSTANT 

CONSTANT 

STORAGE 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 
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BO 2020 50 

80202060 

80202070 

80202080 

80202090 

80202100 

85202110 

80202120 

80202 1 30 

80*102140 

80202150 

80202160 

80202170 

80202180 

8*1202 1 90 

80202200 

80202210 

8O2O2220 

60202230 

80202240 

802022 50 

80202260 

80202270 

80202280 

80202290 

80202 300 

83202 31 

80202 320 

80202 330 

80202 340 

80202350 

SO 20 2 360 

8O2O2370 

80202360 

8O202 3S0 

80202400 

80202410 

80232420 

80202 4 30 

80202440 

80202450 

80202460 

8O202470 

8O202480 

80202 490 

80202 500 

80202 510 

80202520 

80202 530 

80202540 

80202 550 

80202560 

80202 570 

80202580 

80202590 

80202600 

80202610 

80202620 

80202630 

8O202640 

80202650 

80202660 

80202670 

80202680 

80202690 

80202 700 

80202 no 

8O202720 
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**«*« 


****! 


.*** 


««*»«»*««« 


^*#W***#****»##t*#»*#4# 


80202730 








* 










80202740 








# 






TEST 


OF MDX OPERATION 


80202750 








* 










80202760 








*»****#*# «««»««««««» ft********************** ft** 


80202 770 




023C 


6100 


A 840 


LDX 


1 







80202780 




0230 


7irF 




MOX 


1 


-1 




80202790 




023E 


COFD 




LD 




A840 




8020280C 




023F 00 


44000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80202810 




0241 


i;03 


W3103 


DC 




/3103 


1X1 FAILED TO SKIP 


80202820 




0242 


70f9 




MOX 




A840 




80202830 




0243 


69-d 




STX 


1 


N840 




80202840 




0244 


CC47 




LD 




N840 




80202850 




024 5 


FC/,7 




EOR 




N841 




80202860 




0246 00 


-.4000115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80202870 




024ft 


3) -4 


W3104 


DC 




/3104 


MDX iXl FAILED 


80202880 




0249 


70F2 




MDX 




A640 


LOOP 


80202890 








«*«;#**«*«* 


(rw*»^';5#**fi#*«***if5t*Jt4fft5<! # 9 ft#?¥? 


80202900 




024A 00 


66C0FFFE 


A844 


LDX 


L2 


-2 




80202910 




024C 00 


F6C 00001 




MDX 


L2 


1 




80202920 




024E 


6A30 




STX 


2 


N84P 




80202930 




024F 


C03C 




LD 




N840 




80202940 




0250 


FU3C 




EOR 




N841 




80202950 




0251 00 


•«'c:-oii5 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80IC2960 




0253 C 


Jli.5 


W3105 


nc 




/3105 


MOX LONG IX 2 FAILED 


80202970 




02'; 


70F5 




MDX 




A8'4 


LOOP 


80202980 








»t«J***<!t*S«*SiSSS«Stt»«»(!«».«ttnt«» M » tM 


80202990 




0255 


o3FF 


A846 


LOX 


3 


-1 




80203000 




0256 


CO.-E 




LO 




A846 




80203010 




C257 


73 C 1 




MOX 


3 


1 




80203020 




0258 


vc-ci 




MDX 




G846 




80203030 




0259 


io:j 




SLA 




16 




80203040 




025/ 00 


44030115 


G846 


fiSI 


L 


FOOO 


CritCK ERR OR LOOP SW 


60203050 




02 5C 


:ucn 


W3106 


Dr. 




/31C6 


IX 3 NO SKIP AT 


80207060 




02 5 D 


7( -7 




MDX 




A 346 


LOOP 


80203070 








»*;<«* 


*S?*S**$S»S«SS*5**; .*$*>*: ft** *n&i*<:$$;![$$$$$4$$ # 


80203080 




025t 


<>1FF 


AB43 


LDX 


1 


-1 




80203090 




025F 


COFr 




LD 




A848 




802031CO 




02 60 


Fit* 




MDX 


1 


4 




80203110 




0261 


701. i 




MOX 




G848 




60203120 




0262 


:.oic 




SLA 




16 




60203130 




0263 00 


'.4000115 


r-848 


B?I 


L 


FOGO 


CHECK FRR OR LOOP SW 


80203140 




0265 


3107 


W3107 


DC. 




/3107 


SIGN CHANGE-NO SKIP 


80203150 




0266 


"'OF 1 




MDX 




A848 


LOOf* 


80203160 








4#4«(-4$««««*««#V««««4««4 


*v*****#*#**4**##**5(»# 


80203170 




0267 00 


6500FFFE 


A849 


LDX 


LI 


-2 




60203180 




0269 


tOFF 


H849 


LD 




H849 




80203190 




026A 00 


•'5eC028F 




MOX 


11 


N845 




80203200 




026C 


(.91 F 




STX 


1 


NtS'-O 




80203210 




0260 


FCFr 




FOR 




H849 




80203220 




0261- 00 


44050115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


802032 30 




0270 


310'' 


W3108 


PC 




/310S 


AtC GONE AFTER MDX I 


60203240 




0271 


'JF5 




MOX 




A849 


LOOP 


802032 50 




0272 


C014 




LD 




N840 




80203260 




0273 


F01S 




EOR 




N841 




602032 70 




0274 00 


440C0115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


80203280 




0276 


310? 


W3109 


DC 




/31C9 


INDIRECT MOX FAILED 


80203290 




0277 


70 EF 




MDX 




A849 


LOOP 


8C2033O0 








♦ ttnttMtttMStCjtttMjtSjj.tet.ttJHjjtjfjjj 


80203310 




0278 


101 C 


A84A 


SLA 




16 




80203320 




02 79 00 


740.021 6 




MOX 


L 


N84A.0 


TEST SKIP IF ZERO 


80203330 




027B 


ccf; 




LD 




A84A 




80203340 




02 7C 00 


'•40:6115 




BSI 


L 


FOOO 


CHECK ERR OR LOOP SW 


60203350 




027r 


310 A 


W310A 


nc 




/310A 


MDX L FAILEO TO SKIP 


60203360 




027F u 


70 FS 




MOX 




A64A 


LOOP 


60203370 








*» *««^*«««*»*«<:*»*S«*V*»««»SS»»^«*««««»*»>«** 


60203380 




0280 


1010 


A85A 


SLA 




16 




60203390 




0281 00 


740C028E 




MDX 


L 


N644.0 


TEST NJ1N SKIP 


60203400 




DATE 
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3 


■> 




: 1 


1 
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Is 
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1 
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.1 
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3 


2 


a 


1 


3 
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3 


J 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



DIHAL HEADER TEiT 


(CARD) 




TEST6 






0283 70C1 




MDX 


0284 C008 




LD 


0285 00 44000115 


H85A 


BSI 


0287 310B 


W310B 


DC 


0288 70F7 




MDX 



0289 00 4C000107 

028B 0000 

02RC 0000 

0280 FFFF 

028E 0001 

02BF 028E 



0290 



013A 



H65A 

N841 

FOOO CHECK ERk OR LOOP SW 

/310B MDX L SKIPPED-ERROR 

AB5A LOOP 

**»»*#« a*»S**SS**tt**»$*»*s<s#*******e*ft$ *****-* 

BSC L CNTL RFTURN TO CONTROL 

N84A DC /OOOO CONSTANT 

NB40 DC /OOOO STORAGE 

N841 DC /FFFF CONSTANT 

N644 DC /0001 CONSTANT 

N845 DC Ne44 CONSTANT 

END X *-PID ENO CARD NOT USED 6020354 



PART NO. 2242253 
PAGE 25A 



80203410 
80?03420 
80203430 
80203440 
60203450 
80203460 
80203470 
8C203480 
80203490 
8020 3500 
80203510 
80203520 
60203530 
60203540 
80203550 



DATE 
EC NO. 



15MAY67 
411731 



PROG ID 
PAGE 



0802-1 
25A 



N 
E 



I6M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



CIMAL HEADER TEST (CARD) 
TESTA 



PART NO. 
PAGE 



2242253 
26 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


A6C0 


0157 


A6C2 


0166 


A6C4 


0175 


A6C6 


0183 


A6C6 


0192 


A6D0 


0180 


A6D2 


01B8 


A6D3 


01C0 


A6D5 


01C8 


A6Db 


01DO 


A6F0 


0108 


A6F1 


01F.3 


A70C 


0210 


A700 


OlFO 


A704 


01FF 


A70B 


C20E 


A6«A 


0278 


A3-0 


023C 


A844 


C24A 


A646 


0255 


A64 8 


025E 


A649 


0267 


Ae5A 


0280 


fcbf-G 


01 OF 


CNU 


0107 


FOOO 


0115 


G846 


025A 


G846 


0263 


HfcFl 


01EB 


HoF3 


01 EC 


H70E 


022E 


HF<.9 


0269 


H85A 


0285 


H6CA 


01AC 


N6Cb 


01A0 


N6f.O 


OUF 


N6CF 


01AF 


N6C0 


01A2 


N6C1 


01A3 


N6C2 


OIM 


N6C3 


01A5 


N6C* 


01A6 


NiC5 


01A7 


N6C6 


OlAB 


N6C7 


01A9 


N6C8 


01AA 


N6C9 


OlAB 


N6F0 


0100 


N6F1 


0233 


N6F2 


011:9 


K700 


0234 


M70) 


0235 


N70? 


0236 


N703 


0?37 


N704 


C238 


N705 


0239 


N706 


0?3A 


N707 


0238 


N94A 


OiliB 


NB40 


02 t>C 


N841 


02(0 


N84« 


02 8 S 


DATE 


15MAY67 


EC NO. 


411731 



REFERENCES 

015E.0165 

0160,0174 

017C0182 

018A,0191 

0199, 01A0 

01A1.01B7 

018F 

01C7 

01CF 

01D7 

01E2 

01EF 

0225,0220,0231 

01F8.01FE 

0207, 020C 

0216, 021C 

0278, 027F 

0232, 023E,02'i2, 0249 

0254 

0256,0250 

025F.0266 

0271,0277 

0288 

010C.01DD 

02H9 

01 58, 0162, 0l6A, 01 71, 01 7 >, 017F, 0187, 018E, 0196,0190, 

01B4,01R(;,01C4,Oir.C,01D4,010F,niFC,01F5,01FB,0204, 

020A, 02 1 3, 02 19, 022 2, 022 A, 022 E, 02 3F, 0246, 02 51, 02 5A, 

0263, 0261:, 02 74.027C, 028 5 

0258 

0261 

01E7,01E8,01E9,OiEB 

01EA 

0228 

0269,0260 

0283 

0161 

0170,01CB,0\Oi 

0180, 01C9, 0103 

019C 

015A,0).A?,01B3 

01A3,01BO,01B8,01CO,01C3 

01A4.01BB 

01A5 

01 59, 0167, 01 76, 01 78, 01 84, 01 95, 01 A6 

0186, 0193, 01A7 

01AC 

01A9 

0169, 01AA 

015F,0160,016E,016F,0170,017E,OJ8B,018C,019A,019B 

010A 

0109, 010E, 0233 

01E5 

01F1,0200,0?1E 

01F2, 0203, 0210, 0218 

01 F3, 01*9,0202, 0208, 02 1 1,02 17, 0220, 0226 

01F4,0?01 

01FA.0209 

020F.021F.0221 

0227 

0212 

0279 

0243, 0244, 024E.024F ,026C. 0272 

0245,0250,0273,0284 

0281, 028F 
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PART NO. 2242253 
PAGE 26A 



OIMAL 


HEADER Tfc 


>T (CARD) 


TEST6 






N645 


028F 


026A 


PIO 


0156 


0290 


N3CEA 


0164 


30EA 


H?OEB 


016C 


jOEB 


..30EC 


0173 


30EC 


W30ED 


017B 


30ED 


H30EE 


0181 


30EE 


H30EF 


0189 


30EF 


H30E9 


0150 


30E9 


H30FA 


01F7 


30FA 


K30F8 


01FD 


30FB 


M30FC 


0206 


30FC 


H30FD 


020C 


30FD 


M30FE 


C215 


30FE 


W30FF 


021B 


30FF 


U30F0 


0190 


30FO 


W30F1 


0198 


30F1 


H30F2 


019F 


30F2 


M30F3 


0186 


30F3 


W30F4 


01BE 


30F4 


W30F5 


01C6 


30F5 


W30F6 


OK.E 


30F6 


U30F7 


0iu6 


30F7 


W30F8 


01E1 


30F8 


W30F9 


01EE 


30F9 


W310A 


02 7E 


310A 


W310B 


0287 


310B 


W3100 


0224 


3100 


U3101 


022C 


3101 


W3102 


0230 


3102 


H3103 


0241 


3103 


H3104 


0248 


3104 


W3105 


0253 


3105 


W3106 


02 5C 


3: 06 


W3107 


0265 


3107 


W3108 


0270 


3108 


H3109 


0276 


3109 



d*te 

EC NO. 



15MAY67 
411731 
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PASE 26A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



OIMAL HEAOER TEST ICARO) 
TEST7 



02BC 



310C 





015C 


3100 





0163 


310t 





0169 


310F 





0170 


3110 





0177 


3111 





0160 


3112 





0189 


3113 





0191 


3114 





01 9A 


3115 





01*6 


3116 





01A8 


3117 





0181 


3118 





0187 


3119 





01 BC 


311A 





01C1 


3110 





01CE 


31 1C 





0104 


3110 





01DF 


311E 





01E5 


311F 





01F1 


3120 





01F7 


3121 





0206 


3122 





020E 


3123 





0216 


312'. 


c 


02 IE 


3125 





0226 


3126 





022P 


3127 






0156 





0200 


0107 






0115 







0157 C048 

0158 1050 

0159 00 44000115 
0158 310C 
015C 70FA 

0150 C040 
015fc 1041 
015F F03C 

0160 00 44000115 

0162 3100 

0163 70F9 

0164 C038 

0165 1041 

0166 00 44000115 
0166 310E 
0169 O 70FA 

016A C033 

0168 104F 

016C F030 

0160 00 44000115 



ABS 

ORG /310C 

♦♦♦♦♦♦ft***********-**************************** 

• WAITS ERROR COMMENTS 

J********************************************* 

DC W310C+1 SLCA 16 FAILEO 

DC W3100+1 SLCA 1 FAILEO 

DC W310E+1 SLCA 1 FAILED 

DC W310F+1 SLCA 15 FAILED 

DC H3110+1 SLCA 14 FAILEO 

DC W3111+1 SLC 1 FAILED 

DC H3112+1 SLC 16 FAILED 

DC W3113+1 SLC 32 FAILEO 

DC W3114+1 SLC 31 FAILED 

OC W3115+1 LDD-A REG INCORRECT 

DC W3116+1 LOD-G REG INCORRECT 

DC W3117+1 LCD-A REG INCORRECT 

DC W3118+1 LDD-0 PEG INCORRECT 

DC W3119+1 LOD ODD-A REG FAILEO 

DC W311A+1 LOD-ODD-0 REG FAILED 

DC W311B+1 STD ACC INCORRECT 

DC W311C+1 STD REG INCORRECT 

DC H311D+1 STO ACC INCORRECT 

DC W311E+1 STD REG INCORRECT 

DC W311F+1 STO ODD ACC INCORRECT 

DC M3120+1 STD 000 REG STORED 

» » INTO WRONG WORD 

DC W3121+1 A GREATER THAN M FAIL 

DC W3122+1 A LESS THAN M FAILED 

OC W3123+1 A LESS THAN M FAILED 

DC W3124+1 A LESS THAf; M FAILED 

DC W3125+1 A LESS THAN H FAILED 

DC W3126+1 A EOUAL M FAILED 

********************************************** 

ORG 342 

********************************************* 

PID DC /0200 PID 

* 

CNTL EOU /0107 

FCOO EOU /0115 

********************************************** 

* 

* TEST SLC AND SLCA 

« 

****************************** ********•**/-**** 



A888 LD 


N284 


SLCA 


16 


8SI L 


FOOO 


W310C DC 


/310C 


MDX 


A888 


******************* 


A889 LD 


N282 


SLCA 


l 


EOR 


N280 


BSI L 


FOOO 


W310D DC 


/3100 


MDX 


A889 


******************* 


A88A LD 


N281 


SLCA 


1 


BSI L 


FOOO 


W310E DC 


/310E 


MDX 


A88A 



CHECK ERR OR LOOP SW 
SLCA 16 FAILED 
LOCP 



CHECK ERR OR LOOP SW 

SLCA 1 FAILED 

LOOP 



CHECK ERR OR LOOP SW 

SLCA 1 FAILED 

LOOP 

********************************************** 
A88B LD N282 

SLCA 15 

EOR N281 

BSI L FOOO CHECK ERR OR LOOP SW 



DATE 
EC NO. 
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80200010 
80200020 
80200030 
80200040 
80200050 
80200060 
80200070 
80200060 
80200090 
80200100 
80200110 
80200120 
60200130 
80200140 
80200150 
80200160 
80200170 
80200180 
80200190 
60200200 
80200210 
80200220 
802002 30 
80200240 

802002 50 
80200260 
80200270 
80200280 
80200290 
80200300 
80200310 
80200320 

802003 .0 
60200340 
80200350 
60200360 
80200370 
80200380 
80200390 
80200400 
60200410 
80200420 
80200*30 
80200440 
80200450 
80200460 
80200470 
60200480 
80200490 
80200500 
80200510 
80200520 
80200530 
80200540 
80200550 
80200560 
80200570 
80200580 
80200590 
60200600 
80200610 
60200620 
60200630 
80200640 
80200650 
80200660 
80200670 
60200660 
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IBM MAINTENANCE DIAGNOSTIC Pkf»»RAN FDR ..!£ id£0 SYSTEM 



OIMAL HEADER TEST (CARD) 
TEST7 



016F 





310F 


0170 





70F9 


0171 





C02A 


0172 





104E 


0173 





F029 


0174 


00 


44000115 


0176 





3110 


0177 





70F9 



W310F DC /310F SLCA 15 FAILED 
MDX A888 LOOP 

• ••**V*k******6~.3***«****** •> **«»">»* *********** 



A88C LD 

SLCA 

EOR 

6SI 

W3110 DC 
MOX 



H280 

IV 

N281 

FSOO 

/3110 

Ab8C 



Ci.CCK ERR OR LOOP SW 
SLCA 14 FAILEO 
LOOP 



**************-£****************»******»**»**<» 



0178 C024 

0179 1800 
017A C026 
0178 10C1 
017C F021 
0170 00 44000115 
017F 3111 

0180 70F7 



A88D 



W3111 



LD 

RTE 

LD 

SLC 

EOR 

BSI 

DC 

MDX 



N281 

16 

N300 

1 

N282 

FCOO 

/3111 

A88D 



CHECK ERA OR LOOP SW 

SLC 1 FAILED 

LOOP 



*******»**»**• ************************ «»***»** 



0161 

0182 

0183 

0184 

0185 



C01C 
16D0 
COID 
1000 
F018 



0186 00 44000115 

0188 3112 

0189 70F7 



018A C015 

018B 1800 

016C C013 

018D 1CE0 

018E 00 44000115 

0190 3113 

0191 70F8 



A88E LD 
RTE 
LD 
SLC 
EOR 
BSI 

W3112 DC 
MDX 



N282 

16 

N300 

16 

N262 

FOOO 

/3112 

A88E 



CHECK ERR OR LOOP SW 

SLC 16 HAILED 

LOOP 



**•*****«••**••*••*»******** ****************** 



A8RF LD 
RTE 
LD 
SLC 
BSI 

W3113 DC 
MDX 



N284 

16 

N284 

32 

FOOO 

/3U3 

A88F 



CHECK ERR OR LOOP SW 

SLC 32 FAILED 

LOOP 



♦♦♦♦•♦♦♦a************************************* 



0192 
0193 
0194 
0195 
0196 



COOb 
18D0 
COOA 
10DF 
F006 



0197 00 44C00115 
0199 3114 
019A 70F7 

019B 7006 



A890 LD 
RTE 
LD 
SLC 
EOR 
BSI 

W3114 DC 
MDX 

• 

MDX 



N282 

16 

N283 

31 

N261 

FOOO 

/3114 

A890 

A580 



CHECK ERR OR LOOP SW 

SLC 31 FAILED 

LOOP 

EXIT 



019C 





0002 


0190 





8000 


019E 





0001 


019F 





AAAA 


01A0 





5555 


01A1 





0000 



N281 
N282 
N283 
N284 
N300 



01AC CB19 



••A******************************************* 
N280 DC /0002 CONSTANT 

DC /8000 CONSTANT 

DC /0001 CONSTANT 

DC /AAAA CONSTANT 

OC /5555 CONSTANT 

DC /OOOO CONSTANT 
****************4**« *********** *************** 
* 

* TEST OF LOD OPERATION 

* 
********************************************** 

CHECK ERR OR LOOP SW 
LDD-A REG INCORRECT 
LOOP 

CHECK ERR OR LOOP SW 
LOD-0 REG INCORRECT 
LOOP 

A********************************************* 

A584 LDD N583 



01A2 


C821 


A5B0 


LDD 




N581 


01A3 00 


44000115 




BSI 


L 


FOOO 


01A5 


3115 


W3115 


DC 




/3115 


01A6 


70fB 




MDX 




A580 


01A7 


1800 




RTE 




16 


01A8 00 


44000115 




BSI 


L 


FOOO 


01AA 


3116 


W3116 


DC 




/3116 


01AB 


70F6 




MDX 




A580 



OATE 
EC NO. 



15MAV67 
411731 



(ART NO. 2242253 
P**C 2 7* 



G0200690 
802OO70O 
6O2OO710 
80200720 
'30200730 
'60200740 
80200750 
^0200760 
^90200770 
£0200780 
'60200790 
80200800 
80200610 
80200820 
80200830 
80200840 
6O2OO850 
802C0660 
80200870 
80200880 
80200890 
802009CO 
80200910 
80200920 
80200930 
80200740 
60200950 
80200960 
6O2O0970 
80230980 
60200990 
60201000 
80201010 
60201020 
80201030 
80201040 
80201050 
80201060 
80201070 
80201080 
80201090 
80201 ICO 
80201110 
80201120 
80201 1 30 
80201140 
60201 1 50 
80201160 
80201170 
80201180 
60201190 
60201200 
80201210 
60201220 
602012 30 
60201240 
802012 50 
80201260 
80201270 
80201280 
80201290 
80201300 
80201310 
80201320 
60201330 
802C1340 
80201350 
802O1360 



PROG ID 
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27A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


1800 SYSTEM 
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PAGE 28 


3 


3 


OIMAL HEADER TEST 


(CAROI 














TEST7 














3 


















3 


OlAD 


F019 


EOR 




N584 




60201370 


3 




OlAE 00 


44000115 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SH 


80201380 


3 


0160 


3117 


W3117 DC 




/3117 


LDO-A REG INCORRECT 


80201390 






01B1 


70FA 


MDX 




A584 


LOOP 


80201400 






01D2 


1BD0 


RTE 




16 




60201410 


3 


3 


01B3 


F013 


EOR 




N584 




60201420 






01B4 00 


44000115 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SH 


80201430 






01B6 


3118 


W311B DC 




/3118 


LDD-0 REG INCORRECT 


80201440 


3 


3 


01B7 


70F4 


MDX 




A584 


LOOP 


80201450 










***#**•*»*««»**«»***«**•»*«•«**«•«« *******<<•«* 


80201460 






01BB 


ceoc 


A588 LOO 




N582 




80201470 


3 


3 


01B9 00 


44000115 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SH 


80201460 






01BB 


3119 


W3119 DC 




/3U9 


LDD ODD-A RES FAILED 


80201490 






01BC 


70FB 


MDX 




A588 


LOOP 


8020 ISOt 


3 


3 


OlbO 


1800 


RTE 




16 




60201510 






01BE 00 


44000115 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SH 


80201520 






01C0 


311A 


W311A DC 




/SUA 


LDD-OOD-Q REG FAILED 


60201530 


3 


3 


01C1 


70F6 


MDX 

* 




A588 


LOOP 


60201540 
80201550 






01C2 


7005 


MDX 




A5C0 


FXIT 


80201560 


3 


D 






ft***********? 


»«*«***»»»««***••«*«*•••••***•»** 


60201570 






01C4 


0000 


BSS 


E 







80201583 






01C4 


0000 


NS81 DC 




/OOOO 


CONSTANT 


60201590 


3 


3 


01C5 


0000 


N582 DC 




/OOOO 


CONSTANT 


6020 16C0 






01C6 


FFFF 


N583 DC 




/FFFF 


CONSTANT 


80201610 






01C7 


FFFF 


N584 DC 




/FFFF 


CONSTANT 


80201620 


3 


3 






********************************************** 


60201630 










* 








80201640 










* 




TEST 


OF STD OPERATION 


80201650 


3. 


'3 






* 








80201660 










*»****•***»**•*•****»***********»*»***•**•**** 


80201670 






01C8 


C831 


A5C0 LOO 




N5C1 




80201680 


3 


3 


01C9 


0832 


STD 




N5C5 




80201690 






01CA 


C031 


LD 




N5C5 




80201700 






01CB 00 


44000115 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SH 


80201710 


3 


3 


01CD 


31 IB 


M311B DC 




/311B 


STO ACC INCORRECT 


80201720 






oice o 


70F9 


MOX 




A5C0 


LOOP 


80201730 






01CF 


C02D 


LO 




N5C6 




60201740 


3 


3 


0100 


F02A 


EOR 




N5C3 




80201750 






01D1 00 


44000115 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SH 


80201760 






0103 


31 1C 


W311C OC 




/311C 


STD REG INCORRECT 


80201770 


3 


3 


0104 


70F3 


MDX 




A5C0 


LOOP 


80201780 










*«***«»»«**«*»»»***«»«»»*»*»* *»*=> *»*♦»***»»»*« 


80201790 






0105 


C024 


A5C4 LD 




N5C1 




80201800 


3 


3 


01D6 


0025 


STO 




N5C5 




60201810 






0107 


0025 


STO 




N5C6 




80201820 






0108 


C822 


LOD 




N5C3 




80201830 


3 


3 


0109 


D822 


STD 




N5C5 




80201840 






010A 


C021 


LD 




N5C5 




60201850 






010B 


F01F 


EOR 




N5C3 




80201660 


3 


3 


010C 00 


44000115 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SH 


60201870 






01DE 


311D 


W3110 OC 




/3110 


STO ACC INCORRECT 


60201860 






010F 


70F5 


MDX 




A5C4 


LOOP 


60201890 


t 


3 


01E0 


C01C 


LD 




N5C6 




60201900 






01E1 


F019 


EOR 




N5C3 




80201910 






01F2 00 


44000115 


BSI 


L 


FOOO 


CHECK ERR OR LOOP SH 


60201920 


t 


3 


01E4 


31 IE 


H311E DC 




/311E 


STD REG INCORRECT 


60201930 






01E5 


70EF 


MDX 




A5C4 


LOOP 


60201940 










**•*••*•***«*****•*****•*•••*****•***•*******• 


60201950 


T 


D 


01E6 


C014 


A5C8 LD 




NSC 3 




60201960 






01E7 


0014 


STO 




N5C5 




80201970 






01E8 


0014 


STO 




N5C6 




80201980 


t 


3 


01E9 


D014 


STO 




N5C7 




80201990 






01EA 


C80F 


LDD 




N5C1 




802020CO 






01EB 


0811 


STD 




N5C6 




60202010 


t 


3 


01EC 


COOO 


LO 




N5C1 




80202020 






01ED 


COOF 


LD 




N5C6 




80202030 






01EE 00 


44000115 


BSI 


L 


FOOO 


CHECK ERR Oft LOOP SH 


80202040 


t 


3 


DATE 


15MAV67 










PROG ID 0802-1 


• 


3 


EC NO. 


411731 










PAGE 26 


t 
t 


I 
t 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



OIMAL HEADER TEST (CARD) 
TEST7 



01F0 
01F1 
01F2 
01F3 



?UF 

70F4 
COOB 
F007 



01F4 00 44000115 
01F6 3120 

01F7 70EE 

01F8 7006 



01FA 
01FA 
01FB 
01FC 
01FD 
01FE 



OOOO 
OOOO 
FFFF 
FFFF 
FFFF 
FFFF 



01FF 





C042 


0200 





B03F 


0201 





F040 


0202 





1000 


0203 


00 


44C00115 


0205 





3121 


0206 





70F8 


0207 





C038 


0208 





B038 


0209 





7001 


020A 





F035 



020U 00 44000115 
020D 3122 
020E 70F8 



020F CG30 

0210 B032 

0211 7001 

0212 F02D 

0213 00 44000115 

0215 3123 

0216 70F8 

0217 C028 

0218 B029 

0219 7001 
021A F025 

02 IB 00 44000115 

0210 3124 

021E 70F8 

021F CC24 

0220 B01F 
022- 7001 

0222 F021 

0223 00 44000115 

0225 3125 

0226 ?0r8 



0227 
0228 
0229 
022A 
022B 



C019 
6018 
7002 
7001 
F015 



022C 00 44000115 



N311F DC 
MD* 
LO 
EOR 
BSI 

H3120 OC 

• 

MOX 

MOX 



/311F 

A5C8 

N5C7 

N5C3 

FOOO 

/3120 

A5C8 

A600 



STD ODD ACC lNCCafiE&T 
LOOP 



CHECK ERR OR LOOP SH 
STO 000 REG STOREO 
* INTO HRONG HORD 
LOOP 



EXIT 



BSS E 

N5C1 DC /OOOO CONSTANT 

N5C3 OC /FFFF CONSTANT 

N5C5 OC /FFFF STORAGE 

N5C6 OC /FFFF . STORAGE 

N5C7 OC /FFFF STORAGE 

• TEST OF COMPARE OPERATION 

•••••••••A************************************ 



A 600 



H3121 



LD 

CMP 

EOR 

SLA 

BSI 

DC 

MOX 



N8A2 

N8A0 

N8A2 



FOOO 

/3121 

A600 



A GREATER THAN M 



CHECK ERR OR LOOP SH 
A GREATER THAN M FAIL 
LOOP 

»»»♦»»*»***«♦»*»»»»••»»»»»**•*»»*»•»*******»**» 



B8A1 



LD 
CMP 
MOX 
EOR 
J8A2 BSI 
H3122 OC 
MDX 



N8A0 

N8A1 

J8A2 

N8A0 

FOOO 

/3122 

B8A1 



N8A0 ■ OOOO 
N8A1 > 1000 
A LESS THAN M FAILED 

CHECK ERR OR LOOP SH 
A LESS THAN M FAILED 
LOOP 



»»»»*»»* *»»**»»«»<x* •»»»»**•»»» »*»»*»*»»»**»*** 



BSA2 



LO 
CMP 
MDX 
EOR 
J8A4 BSI 
H3123 DC 
MDX 



N8A0 

N8A3 

J8A4 

N8A0 

FOOO 

/3123 

B8A2 



N8A0 • OOOO 
N8A3 « 2000 
A LESS THAN M FAILED 

CHECK ERR OR LOOP SH 
A LESS THAN M FAILED 
LOOP 



*»*»**«*»»•»*»•»»••»•••**»••»*»»»»»«»»»•«»»»»» 



B8A3 LO N8A0 K8A0 - 

CMP N8A2 N8A2 - 

MDX J8A6 A LESS 

EOR N8A0 

J8A6 BSI L FOOO 

H3124 DC /3124 

MDX B8A3 

B8A4 LD N8A4 

CMP N8A0 

MOX J8A8 

EOR N8A4 

J8A8 BSI L FOOO 

H3125 OC /3125 

MDX B8A4 
*♦»»»»»*»»♦»*•»*»»»»•*»*»*»»»*»»»»»*»*****««»» 

B8A5 LD N8A1 

CMP N8A< 

MOX J8AA A EQUAL M FAILED 

MDX J8AA A EQUAL M FARED 

EOR N8A1 

J8AA 8S1 L FOOO CHECK ERR OR LOOP SH 



OOOO 
4000 
THAN M FAILED 



CHECK ERR OR LOOP SH 
A LESS THAN M FAILED 
LOOP 



A LESS THAN M FAILED 



A LESS THAN 
A LESS THAN 
LOOP 



FAILED 
FAILED 



DATE 
EC NO. 



15NAY67 
411731 
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60202050 

80202060 

80202070 

80202080 

60202090 

80202 100 

80202110 

80202120 

80202:10 

80202140 

80202 1 50 

60202160 

60202170 

80202180 

60202190 

60202200 

60202210 

80202220 

80202230 

60202240 

80202250 

60202260 

60202270 

30202280 

80202290 

60202300 

80202 310 

80202320 

80202330 

60202340 

80202350 

60202360 

80202370 

80202380 

80202390 

80202400 

80202410 

80202420 

80202430 

80202440 

60202450 

80202460 

80202470 

80202480 

60202490 

80202500 

80202510 

80202520 

80202530 

60202540 

80202 550 

80202560 

80202570 

80202560 

80202590 

80202600 

80202610 

60202620 

80202630 

80202640 

80202650 

80202660 

80202670 

60202680 

80202690 

80202700 

60202710 

80202720 



PROG 10 
PAGE 



0802-1 
2BA 



• ' I t 



• 
« 



I (<<<<<< I <<<<<<< w < <<<<<<< I (<<<<<<< < 



f. 
c 

r 
r 
c 
c 

r 

c 
r. 
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r 

c 
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v. 
r 



i f 

I r. 

■ 

I r 

ic 

c 
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PART NO. 2242253 
PAGE 29 



022E 





3126 


W3126 


DC 




/3126 


A EQUAL M FAILED 


80202730 


022F 





70F7 




MDX 




B8A5 


LOOP 


80202740 








*•»£«* «##»**#«««»**»«*»**** »*««»**«•*»«««***«* 


80202750 


0230 


00 


74060011 


» 
« 


MDX 


L 


/11,6 


ADJUST READ 10CC TO 
READ COLD START LOADER 


80202760 
80202770 
80202780 


0232 


00 


65004COO 




LDX 


LI 


/4C00 




80202 790 


0234 


00 


6000000A 




STX 


LI 


/A 


MODIFY INSTRUCTION 


80202800 


0236 


oo 


65000DAA 




LDX 


LI 


/ODAA 




80202B10 


02?.3 


00 


6000U010 




STX 


LI 


/10 


CHANGE READ ARlA 


80202820 


023A 


00 


65000141 




LDX 


LI 


321 




80202830 


023C 


00 


6DO00DAA 


» 


STX 


LI 


/ODAA 


SET WORD COUNT 


802028*0 
80202 8 50 


023E 


00 


4C000001 




BSC 


L 


/l 


RETURN TO CS LOADER 


80202860 








*»*****»#>?* *»#*****«*»**»***»«*****«*»** ***»*» 


80202U70 


0240 





0000 


N3A0 


DC 




/OOOO 


CONSTANT 


80202880 


0241 





1000 


N8A1 


DC 




/1000 


CONSTANT 


80202890 


0242 





4000 


N8A2 


DC 




/4000 


CONSTANT 


80202900 


0243 





20C0 


N8A3 


DC 




/2000 


CONSTANT 


80202910 


0244- 





8000 


N8A4 


DC 




/8000 


CONSTANT 


80202920 








t«t«ttt«t»tg«t»«t««*«4»«**«»«»«K««$«««fti»«l« 


80202930 


0246 




OOEF 




ENO 


X 


»-PID 


END CARD NOT USED 8020293 


80202940 



DATE 
EC NO. 



15MAY67 
411731 
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3 


1 


3 


> 
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3 


X 
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DIMAL HEADER TEST (CARD) 
TEST7 



PART NO. 2242253 
PAGE 29A 



CROSS REFERENCE LISTING 



SYMBOL 
A5C0 
A5C4 
A5C8 

A580 
A584 
A588 
A600 
A88A 
AB8B 
A88C 
A88D 
A88fc 
A88F 
A888 
A889 
A890 
B8A1 
B8A2 
B8A3 
B8A4 
B8A5 
CNTL 
FOOO 



J8AA 

J8A2 

J8A4 

J8A6 

J8A8 

N280 

N281 

N282 

N283 

N2S4 

N300 

N5C1 

N5C3 

N5C5 

N5C6 

N5C7 

N581 

N582 

NS83 

N584 

N8A0 

NflAl 

N8A2 

N8A3 

N8A4 

P1D 

W310C 

W310D 

W310E 

W310F 

W311A 

H311B 

H311C 

W311D 

W311E 

W311F 

W3110 

H3111 

N3112 

U3113 



DATE 
EC NO. 



VALUE 

01C8 

0105 

01E6 

01A2 

01AC 

01B8 

01FF 

0164 

016A 

0171 

0178 

0181 

018A 

0157 

015D 

0192 

0207 

020F 

0217 

021F 

0227 

0107 

0115 



02 2C 
020B 
021? 
021B 
0223 
019C 
019D 
019E 
019F 
01A0 
01A1 
01FA 
01FB 
01FC 
01FD 
01FE 
01C4 
01C5 
01C6 
01C7 
0240 
0241 
0242 
024a 
0244 
0156 
015B 
0162 
0168 
016F 
01C0 
01CD 
01D3 
01DE 
01E4 
01F0 
0176 
017F 
018G 
0190 



REFERENCES 

01C2,01CEt01D4 

01DF,01E5 

01F1.01F7 

019B,01A6,01AB 

01B1.01B7 

01BC01C1 

01F8.0206 

0169 

0170 

0177 

0180 

0189 

0191 

015C 

0163 

019A 

020E 

0216 

021E 

0226 

022F 

0159,0160,01 66, 0160 1 01 74 , 01 7D. 0186 . 01 8 E, 0197 ,01 A3 , 

01A8,01AE,01B4,01B9,01BE,01Cb,01Dl,01l)C,01E2,01EE, 

01F4,O2O3,O20B,0213,021B,O223,022C 

0229, 022A 

0209 

0211 

0219 

0221 

015F.0171 

01 64, 01 6C, 0173, 0178. 01 96 

015D,016A,017C,01B1,01B5,0192 

0194 

0157,018A,018C 

017A.0183 

01C8,01D5,01EA,01EC 

01DO,01D8,OinB,01El,01E6,01F3 

01C9.01C A, 0106,0109,01 DA.01E7 

01CF,0107,01EO,01E8,01EB,01ED 

01E9.01F2 

01A2 

01B8 

01AC 

01AD,01B3 

O2OO,O2O7,02OA,02OF,O212,O217,O21A,O22O 

0208,0227,0228,0226 

01FF, 0201, 0218 

0210 

021F,0222 

0245 

310C 

310D 

310E 

310F 

311A 

311B 

311C 

31lD 

311E 

311F 

3110 

3111 

3112 

3113 



15MAY67 
411731 



PROG ID 
PAGE 



0802-1 
29A 



N 
E 
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DIMAL 


HEADER TEST 


(CARD) 


TEST7 






W3U4 


0199 


3114 


W3115 


01A5 


3115 


W3] 16 


01AA 


3116 


W3117 


0180 


3117 


W3116 


01B6 


3118 


W3119 


01B3 


3119 


W3120 


01F6 


3120 


W3121 


0205 


3121 


W3122 


02 OD 


3122 


W3123 


02)5 


3123 


W3124 


02 ID 


3124 


W3125 


0225 


3125 


W3126 


022E 


3126 



DATE 
EC NO. 



15MAY67 
411731 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
OIMAL COLD START LOADCR (CARD) 



■>t 



1 


«l 


1 


4» 


1 


-* 


■) 


5 


1 


j 


1 


i 


«* 


i 


T 


"\ 



t 
t 
t 
t 
t 
• 



f 

1 

-I 



02bC 



3200 ODDC 



3201 0DE6 



3202 0E25 



3203 0E33 



3204 0E48 



3205 C 0E64 



* 
* 
* 

* 
* 
* 

* 
« 
* 
* 

* 

ft 
* 
* 

* 

* 
ft 
* 
ft 
* 

* 
* 
* 
ft 
* 
ft 
ft 
ft 
ft 

4 
ft 

ft 
ft 
ft 

ft 
ft 
ft 
ft 
ft 



ABS 

ORG /3200 

COLO STAR1 LOADER 



DC 



W3200+1 



DC 



W3201+1 



DC 



W3202+1 



DC W3203+1 



DC W3204+1 



DC W3205 



3206 0E74 



DC W3206+1 



DATE 

EC NO. 



15MAY67 
411731 



PROGRAM WAITS 0ECR1PT1ON. 



WAIT 200 

THE CE WORD WHICH DEFINES 
THE DISK PACK AS The CE 
PACK WAS NOT FOUND. INSURE 
THE CE/D1MAL PACK IS 
LOADED ON THE CORRECT 
DISK DRIVE. PRESS START 
TO PROCEED. 

WAIT 201 

THE DIMAL WORD WHICH 
DEFINES THE CE DISK PACK 
AS CONTAINING DIPAL WAS 
NOT FOUND. INSURE THE 
PROPER DISK PACK IS LOADED 
ON THE CORRECT DRIVE. 
DEPRESS START BUTTON TO 
PROCEED. 

WAIT 202 

THE HOKE BIT DID NOT 
COME ON AFTER 3 ATTEMPTS 
TO SEEK HO^E.TriE CSH IS 
IN THE A RIG. CORRECT THE 
FAILURE AND IF CORE WAS 
NOT DESTURBED PRESS RESET 
AND START. IF CORE WAS 
DESTURBED, RELOAD THE COLD 
START CALL. 

WAIT 203 

DISK DRIVE N0 T READY. 
MAKE DISK DRIVE READY. IF 
THE DISK ARM WAS KCVEU, 
MANUALLY OR LY POnER OFF, 
PRESS RESET AND START, 
OTHERWISE JUST PRtSS 
START. 

WAIT 204 

SAME AS WAIT 203 

WAIT 205 

A DISK ERROR WAS DETECTED 
ON EACH OF 3 ATTESTS TO 
READ A SECTOR. ThE ERROR 
BITS ARE IN ThE A REG. 
PRESS START TU RETRY THE 
READ. DEPRESS RESET AND 
START FOR RESTART OPERA- 
TION. 

WAIT 206 

THE WRONG SECTOR IC WAS 



PART NO. 2242253 
PAGE 30A 



80200010 

80200020 

80200030 

80200040 

60200050 

80200060 

80200070 

e020008C 

60200090 

80200100 

80200110 

80200120 

802001 30 

80200140 

80200150 

80200160 

80200170 

80200180 

80200190 

80200200 

80200210 

80200220 

802002 30 

602002^0 

802002 50 

60200260 

802002 70 

80200280 

802002 90 

80200300 

80200310 

80200320 

80200330 

80200340 

80200350 

80200360 

80200370 

8020038C 

80200390 

80200400 

80200411 

80200420 

80200430 

80200440 

b02004t>0 

80200*60 

80200470 

80200480 

80200490 

80200500 

80200510 

80200520 

80200530 

60200540 

80200550 

80200560 

80200570 

80200580 

80200590 

60200600 

80200610 

80200520 

80200630 

802006*0 

80200650 

80200660 

80200670 

80200680 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEH 



DIMAL COLD START LOADER (CARD) 



3207 
0141 



OOAC 
ODAO 



0200 
7008 



ODAE 





0000 


ODAF 





0000 


ODBO 





0000 


0DB1 





0000 


0UB2 





0000 


0DB3 





0000 


odb4 





0000 


0DB5 





0000 


0DB6 





C80F 


ODBY 


00 


DCOOOOOO 


0DB9 


oo 


C400000D 


ODBIi 





EOOC 


ODBC 





DOOC 


ODBC 





63F7 


ODBE 





COOA 


ODBF 


oc 


EF000E84 


0DC1 


oc 


D7000E84 


0UC3 





7302 


00C4 





70F9 


0DC5 





7004 



0DC6 0000 
0WC6 00 4CO00DCA 
0DC8 F800 
0OC9 0000 



ODCA 





404F 


ODCB 





C0E8 


OOCC 





0012 


ODCO 





801B 


OOCE 





D006 


OOCF 





1883 


ODDO 





0001 


0DD1 





405B 


0DD2 





0000 


DATE 




15HAY67 


EC NO. 


411731 



* 
* 
# 
* 
* 

* 
* 

IN 

4 
* 

* 
* 
* 

* 

PID 



READ ON EACH OF 3 TRIES. 
THE (j REG CONTAINS TnE 
EXPECTED SECTOR, AND FHE 
A REG THE ACTOAL SECTCR. 
PRESS START TO RETRY. 
PRESS RESET AND START FOR 
RESTART OPERATIONS. 



ORG 

ECU 



3500 
321 



OIHAL SYSTEM COLD START LOADER. 

T*-IS LOADER IS USED TO INPUT THE DDM 
PROGRAM SPECIFIED BY THE COLD START 
CALL CARD OR THE INITIAL LOADER 



OC 
VOX 



/0200 
ST 



SKIP OVER TABLE 



* 
* 
* 
CYLTB 



THE CYL TABLE WHICH FOLLOWS IS FILLED 
1H BY THE INITIAL LOADER DURING DISK 
GENERATION. 



ST 



DC 

DC 
OC 
DC 
DC 
DC 
DC 
DC 

t.OD 
STO 












RST 




HEADER TEST CYLINDER 
DDM LDR/ORG CYLINDER 
DOM SEL/EXC CYLINDER 
WOkK CYLINDER 
WORK CYLINDER 
LOC DIR - EDIT TBL 
HIST TRACK ADDRESS 
OUTPUT DEVICE 

GET RESTART INSTRUCTION 
SET IN LOCATIONS AND 1 



BLD 



RST 
KF8 
AC 



THIS SECTION eUlLDS THE DISK COMMANDS 

LO L /D GET AREA CODE 

AND KF8 REMOVE INSTRUCTION 

STO AC SAVE AREA CODE 

LDX 3 -9 SET BUILD INDEX 

LD AC PICKUP AREA CODE 

OR L3 DSN+10 ADD AC TO IOCC 

STO C3 DSN+10 RETURN INSTRN 

KDX 3 2 MODIFY XR-SK1P ON 

MDX BLD CONTINUE BUILDING 

*DX LD GO INPUT DDM SECTION 

BSS E ALIGN TO EVEN ADDRESS 

BSC L LD RESTART INSTRUCTION 

DC /F800 HEX CONSTANT 

OC DISK DRIVE AREA CODE 

THIS SECTION CHECKS IF DISK IS CE PACK, 

ANO IF CE PACK CONTAINS DIMAL SYSTEM. 



RETURN DISK TO HOKE 
PICKUP HIST TRK ADRS 
SET IN CALL SECT 
SET FOR SECTOR 3 
SET IN READ CALL 
POSITION SEEK COUNT 
SET IN SEEK CALL 

SEEK DISK CALL 
NUMBER OF CYLINDERS 



LD 


BSI 


SKHM 




LD 


CYLTB+6 




STO 


LD2 + 2 




A 


K3 




STO 


LD1 + 4 




SRT 


3 




STO 


LD1 + 1 


* 






LD1 


esi 


3K0T 




DC 
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80200690 
80200700 
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80200720 
80200730 
80200740 
80200750 
80200760 
802C0770 
80200780 
80200790 
802008C0 
80700810 
80200620 
60200830 
60200640 
60200850 
802C0860 
60200670 
80200880 
80200890 
80200900 
80200910 
80200920 
80200930 
80200940 
80200950 
80200960 
80200970 
80200980 
80200990 
80201000 
602010.0 
80201020 
60201030 
80201040 
80201050 
80201060 
80201070 
80201080 
60201090 
60201100 
30201110 
80201120 
80201130 
80201140 
80201150 
80201160 
80201170 
80201180 
80201190 
80201200 
80201210 
8020U20 
80201230 
80201240 
80201250 
80201260 
80201270 
80201260 
80201290 
80201300 
80201310 
80201320 
80201330 
80201340 
80201350 
80201360 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 
DIMAL COLD START LOADER (CARD) 



0DD3 406D 

0004 0141 

oors 0000 

00D6 00 C4000143 

0DD8 FOOE 

0DD9 00 4C180DDD 

ODDB 32C0 

ODDC 70EO 

'ODDD 4063 

ODDE 01 4 1 

ODDF 0000 

ODEO 00 C4000143 

0DE2 FOO'j 

0DE3 00 4C180DEA 

0DE5 3201 

0DE6 70E3 

0DE7 CEDC 

00E8 A6C0 

0DE9 0003 



ODEA 402F 
ODEB 00 C400000C 
ODED 1601 
ODEE D0C1 
ODEF 00 670(10000 
0DF1 00 C7000CAF 





SSI 




DRD 




DC 




IN 




DC 







» 










LD 


L 


1N+2 




EOR 




CEWD 




BSC 


L 


LD2.+ 


W320 


l> DC 




/3200 




MDX 




LD 


* 








LD2 


SSI 




DRD 




DC 




IN 




DC 








LO L IN+2 
EOR DMWD 

BSC L LD3,+- 

W3201 DC /3201 
*DX LD 

a 

CEWD DC /CEDC 

DMWD OC /ABCD 

K3 OC 3 



READ DISK CALL 
INPUT AREA 
SECTOR TO READ 

PICKUP CE WORD POSTN 
CHECK IF Cb WORD 
6RANCH IF CE WORD 
CE WORD NOT READ 
REPEAT 

READ DISK CALL 
INPUT AREA 
SECTOR TO READ 

PICKUP DIMAL WD PSTN 
CnECK IF DIKAL WORO 
BRANCH IF DIMAL WCRD 
DIKAL WORD NOT READ 
REPEATE 

CE WORD CONSTANT 
DIKAL WORO CONSTANT 
CONSTANT 3 



0DF3 
0DF4 
0DF5 



0DF6 
0DF7 



0DF8 
0DF9 



D012 
'603 
D001 

4036 
0000 

6308 
6olF 



* 
* 

LD3 



LD4 



* 
LD5 



THIS SECTION INPUTS THE DDM SECTION 
SPECIFIED BY THE CALLING SEQUENCE. 



ODFA 00 65000147 
ODFC 00 C400000C 



ODFE 
OOFF 
OEOO 
0E01 
0E02 
OE03 



18C1 
4820 
6145 
6913 
71FF 
6901 



BSI 

LO 

SRA 

STO 

LOX 

LD 

STO 

SRA 

STO 

BSI 
DC 

LDX 

STX 

LDX 

LD 

SRA 

BSC 

LOX 

STX 

«DX 

STX 



SKHM 
L /C 

1 

LD4+1 
L3 
L3 CYLTB+1 

LD6*2 

3 

LD5+1 

SKOT 
f 



3 

3 

LI 

L 



6 

SCT 

327 

/C 

1 

Z 
1 /45 
1 LD7A+1 
1 -1 
1 LD6+1 



0E04 403C 
OE05 0000 
0E06 0000 



* 
LD6 



RETURN DISK TO HOME 
GET SECTION 1N0ICATR 
POSITIONT-GR Ok 1 
SET IN LOAD XR COMND 
SET XR TO SECT INUTR 
GET PROPER ADDRESS 
SET IN READ CALL 
POSITION SEEK COUNT 
SET IN SEEK CALL 

GO SEEK TO DESRO CYL 
NUMBER OF SEEKS 

SET UP NMBR SECT RD 
SET IN SECTOR COUNTR 
SET UP ORG ADDRESS 
PICKUP SECTION IND 
SET FOR OR 1 
SKIP IF LDR/URG SECT 
MOD ADRS FOR SEL/EXC 
SET ADRS IN XFER INS 
AOJ XR TO INPUT AREA 
SET IN READ CALL 



0E07 


00 


67000140 


LD7 


LOX 


L3 


320 


0E09 





C102 




LO 


1 


2 


OEOA 





D100 




STO 


1 





OEOB 





7101 




"OX 


1 


1 


OEOC 


00 


74010E05 




PDX 


L 


LD6+1.1 


OEOE 





73FF 




POX 


3 


-1 


OEOF 





70F9 




*DX 




LD7+2 


0E10 


00 


74FF0E19 




*DX 


L 


SCT.-l 


0E12 





7003 




MDX 




LD8 


0E13 





4006 


♦ 


BSI 




SKHM 


0E14 


00 


4C000000 


L07A 


esc 


L 





OATE 




15MAY67 










EC NO. 


411731 











BSI DRD READ DISK CALL 
DC INPUT AREA ADDRESS 

OC SECTOR TO READ 

THE FOLLOWING ROUTINE REPOSITIONS THE 
INPUTTED PROGRAM TO ITS ORG ADDRESSES. 
SET XR = DATA WRD CT 
PICKUP DATA WORO 
SET IN PROPER LOCATN 
INCREMENT INPUT XR 
UPDATE RD CALL ADORS 
SKIP WHEN ALL WD MVO 
GO HOVE NEXT WORD 
SKIP WHEN LAST SECTR 
MOO FOR NEXT SECTOR 

RETURN DISK TO HUME 
BRANCH TO PROGRAM 
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60201510 
80201520 
80201530 
80201540 
80201550 
80201560 
80201570 
60201580 
80201590 
80201600 
80201610 
80201620 
802016 30 
80201640 
8O20i 6 50 
60201660 
80201670 
80201680 
80201690 
eO2O170O 
8O201710 
80201720 
80201730 
8O2O1740 
80201750 
80201760 
80201770 
80201780 
80201790 
80201600 
60201610 
80201820 
802018 30 
80201840 
602018 50 
80201860 
80201670 
80201880 
80201890 
802O 1900 
8O2*/1910 
80201920 
80201930 
80201940 
80201930 
80201960 
80201970 
8020 1960 
80201990 
80202000 
80202010 
80202020 
80202030 
80202040 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DIMAL COLD START LOADER (CARD) 
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« 










80202050 




0E16 


00 


74010E06 


L08 


MDX 


L 


LD6+2.1 


UPDATE READ CALL 


80202060 




0E1H 





70EB 


* 


MDX 




L06 


GO READ NEXT SECTOR 


80202070 
80202080 




0E19 





0000 


SCT 

* 


DC 







SECTOR COUNT 


80202090 
80202100 










« 


THIS 


ROUTINE SEEKS 


THE 2310 TO ITS 


80202110 










* 


HOME 


POSITION. 




80202120 










* 










80202130 




0E1A 





0000 


SKHM 


DC 







ENTRY POINT 


80202140 




0E1B 





6304 




LDX 


3 


4 


SET TRY INDEX 


B0202150 




0E1C 





0b5F 


SKHM1 


XIO 




DSNR 


SENSfc/RESET STATUS 


80202160 




0E1D 





DOOE 




STO 




SKST 


SAVE STATUS 


80202170 




OtlE 





1004 




SLA 




4 


POSITION HOME BIT 


60202180 




0E1I- 


oc 


4CAB0E1A 




BSC 


I 


SKHM,+Z 


EXIT IF DISK HOKE 


80202190 




0E21 





73FF 




MD,< 


3 


-1 


SKIP IF 3RD TkY 


80202200 




OE22 





7003 




MDX 




SKHM2 


GO ISSUE SEEK CMND 


80202210 




0E?3 





C008 




LD 




SKST 


RETRIEVE LAST DSW 


80202220 




0E24 





32C2 


W3202 


DC 




/3202 


OISK NUT HOME 


80202230 




OE25 





70F5 




MDX 




SKHM+1 


TRY AGAIN 


80202240 




0E26 





0o57 


SKri*2 


XIO 




HOME 


SEEK TO HOME 


80202250 




OE27 





0852 




X10 




DSN 


SENSE DISK STATUS 


80202260 




OE28 





1001 




SLA 




1 


.POSITION OP CP BIT 


80202270 




0E29 


oc 


4C100E27 




use 


L 


SKHM2+1,- 


BRANCH IF NOT OP CP 


80202280 




0E2B 





70F0 


<■ 


MDX 




SKHK1 


GO CHECK HOME BIT 


80202290 
80202 300 




0E2C 





0000 


SKST 

* 


DC 







SEEK DSW SAVE LOC. 


80202310 
80202 320 










* 


THIS 


ROUTINE SEEKS 


THE OISK OUT TO THE 


80202330 










» 


DESIRED 


CYLINDER 




80202 340 










» 










80202350 




0E?0 





0000 


SKOi 


DC 




C 


ENTRY POINT 


80202 360 




0E2E 





0840 




XIO 




DSNR 


SENSE OISK C TATUS 


80202 70 




0E2F 


& 


1002 




SLA 




2 


POSITION READY BIT 


80202380 




0E30 


oc 


4C100E34 




BSC 


L 


SK0T1,- 


BRANCH IF READY 


80202390 




0E32 





3203 


W3203 


DC 




/3203 


DISK NOT READY-SEEK 


80202400 




0F33 





70FA 




MDX 




SKOT+1 


CHECK AGAIN 


8C202410 




CE34 


00 


C4600E2D 


SK0T1 


L» 


I 


SKOT 


PICK UP SEEK COUNT 


80202420 




0E36 





D049 




STO 




SEEK 


PLACE IN SEEK CMND 


80202430 




0E3V 





0846 




XIO 




SEEK 


ISSUE SEEK 


80202440 




OC-38 





0B41 


SK0T2 


XIO 




OSN 


SENSE OISK STATUS 


80202450 




0E39 





1001 




SLA 




1 


; OSITION OP CP BIT 


80202460 




Ot3 A 


00 


4C1O0E38 




BSC 


L 


SK0T2,- 


BRANCH IF \0T OP CP 


80202470 




0E3C 





083F 




XIO 




DSNR 


SENSE/RESET DSW 


80202480 




0E30 


00 


74010E2D 




MDX 


L 


SK0T.1 


MODIFY RETURN 


80202490 




0E3F 


00 


4CP.00E2D 


« 


BSC 


I 


SKOT 


RFTURN TO USER 


80202500 
80202510 










t 


THIS 


ROUTINE READS 


THE DESIRED SECTOR 


80202 520 










* 


AND 


CHECKS FOR PROPER SECTOR ID 


80202530 










» 










80202 540 




0E41 





0000 


ORO 


DC 







cNTRY POINT 


60202 550 




0E42 





6303 




LDX 


3 


3 


SET TRY INOEX 


80202 560 




0E43 





0838 




XIO 




DSNR 


SENSE DISK STATUS 


80202570 




0E44 





1002 




SLA 




2 


POSITION READY BIT 


80202 580 




0E45 


00 


4C100E49 




BSC 


L 


0RD1.- 


BRANCH IF READY 


80202590 




0E47 





3204 


W3204 


DC 




/3204 


DISK NOT READY - READ 


80202600 




0E48 





70F9 




MDX 




DRD+1 


TRY AGAIN 


60202610 




0E49 


00 


C4800E41 


DRD1 


LD 


I 


DRD 


PICKUP INPUT ADDRESS 


80202620 




0E4B 





D036 




STO 




READ 


SET IN READ IOCC 


60202630 




0E4C 





D002 




STO 




*+2 


SET IN STORE INSTR 


60202640 




0E4D 





C02A 




LD 




SC 


PICKUP SCN CTL + MO CT 


80202650 




0E4E 


00 


D40000O0 




STO 


L 





SET IN INPUT AREA 


80202660 




0E50 


00 


74010E41 




MDX 


L 


DRD.l 


MOOIFY ENTRY POINT 


80202670 




OE52 


00 


C4800E41 




LD 


I 


DRD 


PICK UP SECTOR ADDkS 


80202680 




0E54 





1883 




SRT 




3 


SAVE SECTOR BITS 


60202690 




0E55 





C02D 




LD 




READ+1 


PICKUP READ COMMAND 


80202700 




0E56 





1803 




SRA 




3 


REMOVE OLD StCTOR BT 


80202710 




0t57 





1083 




SLT 




3 


ADO NEW SECTOR BITS 


80202720 




DATE 




15MAY67 
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EC NU. 
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PAGE 


32 



) 


J 


3 




3 


3 


') , 


) 


3 


1 


) 


■'.') 


3 


3 


3 


3 


3 


3 


) 


3 


3 


3 


3 


:> 


3 


■) 


3 


) 


3, 


•) 


3 


3 


■) 


■j 


1 


3 


3 


3 


3 


3 




3 


t 


3 




3 


♦ 
* 


3 


2 


3 


3 


3 


• 


3 


I 


3 


* 


3 


5 


3 


3 


3 


3 


l . 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DIMAL COLD START LOADcR (CARD) 
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0E5C 


D02A 




STO 




READ+1 


0E59 


0828 


DRD? 


XIO 




READ 


0E5A 


081F 




XIO 




DSN 


0E5B 


1001 




SLA 




1 


0E5C 00 


4C100E5A 




BSC 


L 


DRD2+1, 


0E5E 


081D 




XIO 




DSNR 


0E5F 


E01C 




AND 




DSNR 


0E60 00 


4C180E66 




BSC 


L 


DR03.+- 


0E62 


73FF 




MDX 


3 


-1 


0E63 


70F5 




MDX 




DRD2 


0E64 


3205 


U3205 


OC 




/3205 


0E65 


700E 




MOX 




DRD4 


0E66 00 


666 50E82 


DRD3 


LDX 


12 


READ 


0E66 00 


C4800E41 




LD 


I 


DRO 


0E6A 


F201 




EOR 


2 


1 


0E6B 


4818 




8SC 




+- 


0E6C 


7007 




MDX 




0RD4 


0E6D C 


73FF 




MDX 


3 


-1 


0E6E 


70EA 




MDX 




DRD2 


0E6F 00 


C4600E41 




LD 


I 


DRD 


0E71 


1690 




SRT 




16 


0E72 


C201 




LO 


2 


1 


0E73 


3206 


W3206 


DC 




/3206 


0E74 00 


74010F41 


DRD4 


MDX 


L 


DRD,1 


0E76 00 


4C800E41 


• 
SC 


BSC 


I 


ORO 


0E78 


0141 


DC 




321 






* 
* 


THE 


FOLLOWING W 


0E7A 


0000 


BSS 


E 





0E7A 


0000 


DSN 


DC 







0E7B 


0700 




DC 




/0700 


0E7C 


8740 


OSNR 


DC 




/8740 


0E70 


0701 




DC 




/0701 


0E7E 


OOCA 


HOME 


DC 




202 


0E7F 


0404 




DC 




/0404 


0E80 


0000 


SEEK 


DC 







0E81 


o^oo 




DC 




/0400 


0E62 


0000 


READ 


DC 







0E83 


0600 




DC 




/C600 



UPDATE READ IOCC 

ISSUE READ COMMAND 

SENSE DISK STATUS 

POSITION OP CP BIT 

BRANCH IF NOT OP CP 

SENSE/RESFT DSW 

CHECK FOR ERkOR BITS 

BRANCH IF NO ERRORS 

SKIP IF 3RD TRY 

TRY AGAIN 

DISK READ ERROR 

EXIT 

SET XR » INPUT AREA 

PICKUP SECTOR AODRS 

CHECK AC-AINST ACT ID 

SKIP IF WRONG SID 

EXIT 

SKIP IF 3RD tRROR 

RETRY THE READ 

SET EXPECTED SECTOR 

*ID IN REG 

ACTUAL SECTOR TO A 

WRONG SECTOR READ 

MOOIFY ENTRY P01N1 

RETURN TO UStR 

SCAN CTL AND WKO CNT 



ALLIGN TO EVEN ADDkS 
DISK SENSE IUCC 
DISK SNS/RESET IOCC 
SEEK HCME IOCC 
SEEK OUT IOCC 
REAO DISK IOCC 



0E84 



OOAD 



END 



PID+1 



80202730 
6O202 740 
60202750 
80202760 ' 
80202770 
80202780 
60202790 
BO202800 
602028! 
80202820 
802028 30 
80202840 
80202650 
8O202860 
8C202870 
8O2O2BB0 
80202890 
80202900 
80202910 
80202920 
80202930 
60^02940 
60202950 
60202960 
60202970 
80202960 
60202990 
80i 03000 
6C203010 
60203020 
60203030 
6020 30 40 
80203050 
80203060 
60203070 
60203060 
BO203090 
60203100 
80203110 
60203120 
80203130 
80203140 
80203150 
B020315 80203160 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
OIHAL COLO START LOADER (CARO) 

CROSS REFERENCE LISTING 
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0E76 
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0E60 

0E65.OE6C 

00BF,0DC1,0F27,0E36,0E5A 

GElC,0E2E,0E:-iC,0t43,0E5E,0E5F 

0E26 

O004,ODD6,0DDE,0DEO 

ODBB 

ODCD 

0DC5,0DC6,0DDC.0DE6 

OOCE.ODDO 

00CC0DD9 

0DE3 

ODEE 

0DF5 

ODF3,OF03.0EOC,OE16,OE18 

OfcOF 

OtOl 

0E12 

0E84 

OE4B,0E55,OE58,0E59,OE66 

0DB6 

0E4D 

0UF9.0E10 

0E36.0E37 

OUCA,ODEA,OE13,OE1F,OE25 

0E2B 

0E22.0E29 

00Dl,ODF6,CE33,0E34,0E3D,0E3F 

0E30 

0E3A 

0E1D.0E23 

ODAD 

3200 

3201 

3202 

3203 

3204 

3205 

3206 
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SYMBOL 


VALUE 


AC 


00C9 


BLD 


OOBE 


CEKO 


0DE7 


CYLTB 


ODAE 


DM«/D 


0DE8 


ORD 


0E41 


URD1 


0E49 


0RD2 


0t59 


DRD3 


0E66 


DR04 


0H74 


OSN 


0E7A 


OSimR 


Ot7C 


HOI-it 


0E7E 


IN 


0141 


KF8 


0DC8 


K3 


0DE9 


LD 


ODCA 


L01 


0DD1 


L02 


ODDD 


LD3 


CDtA 


LD4 


OUEF 


LD5 


0DF6 


LD6 


OE04 


LD7 


0E07 


LD7A 


0F14 


LD? 


0E16 


P10 


OUAC 


READ 


0E82 


RST 


GDC6 


SC 


0E78 


SCT 


0E19 


SEEK 


0E80 


SKHK 


0E1A 


SKHM1 


0E1C 


SKHM2 


0E26 


SKOT 


0E2D 


SK0T1 


Ob 34 


SK012 


0E38 


SKST 


0E2C 


ST 


0DB6 


W3200 


ODDB 


W3201 


0DE5 


W3202 


0E24 


H3203 


0E32 


W3204 


0E47 


W3205 


0E64 


W3206 


0E73 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
D1MAL LOADER/ORGANIZOR SECTION (CARD) 



02BC 



3300 0193 



ABS 
ORG 



/3300 



DIHAL LOADER/ORGANIZOR SECTION PROGRAM 
WAITS DESCRIPTION. 



DC 



33C1 020F 



3302 0J6A 



3303 0377 



3304 042E 



* 
* 
» 
* 
* 
* 
* 
* 
« 
« 
« 

* 
* 
* 
* 

» 
* 
* 

* 
* 
* 
* 

« 

* 
* 

* 
* 

» 
» 

« 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



DC 



DC 



DC 



DC 



W3300+1 WAIT 300 

SELECT PROGRAM OPTION 
IN SENSE/PROuRAM SWS 
AS FOLLOWS. 

SWO ADD PROGRAM 

SKI DELETE PROGRAM 

SW2 CHANGE EDIT 

SW3 LIST LOG. DIRECTORY 

SW4 LIST EDIT TABLE 

SW5 PUNCH COLD START Cl»S 

SW6 LIST DE SWITCH COLO 
START CALL SEEK CUT 

ONLY 1 OPTION AT A TIME 
MAY BE PERFORMED. SWITCHES 
HAVE PRIORITY STARTING 
AT SWITCH 0. 

W3301+1 WAIT 301 

A LAST CARD SEQUENCE 
HAS BEEN PERFORMED 
DURING DISK PACK GENE- 
RATION OR DURING THE 
ADD PROGRAM OPTION. IF 
ALL PROGRAM DECKS HAVE 
BEEN LOADED, SET D.E. 
SWITCHES TO FFOO AND 
PRfcSS START. IF MORE 
PROGRAM ARE TO BE 
LOADED. READY THE 1442 
WITH THOSE PROGRAMS 
AND PRESS START. 

W3302+1 WAI1 302 

2310 DISK DRIVE NOT 
READY. READY THE 2310 
AND PRESS START. IF DISK 
ARM WAS MOVED, PERFORM 
THE RESTART PROCEDURE. 

W3303+1 WAIT 303 

OSW DOES NOT INDICATE 
HOME AFTER 3 TRIES TO 
SEEK HOKE.DSW IS IN 
THE A REG. 

W3304+1 WAIT 304 

A DISK READ, WRITE CR 
MOOULO 4 CHECK ERROR 
HAS CCCURED.THE MESSAGE 
PRECEEDING THIS WAIT 
DEFINES THE ERROR. 
RELOAD THE PROGRAM 
WHICH WAS REAOING IN AT 
THE TIME OF THE ERROR 
AND CONTINUE. 



DATE 
EC NO. 



15MAY67 
411731 
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80200010 
80200020 
80200030 
80200040 
80200050 
80200060 
80200070 
80200080 
80200090 
30200100 
80200110 
80200120 
80200130 
80200140 
60200150 
80200160 
80200170 
8O20O1B0 
80200190 
80200200 
80200210 
80200220 
60200230 
802002 40 
80200250 
80200260 
80200270 
80200280 
8020C290 
80200300 
80200310 
80200 320 
80200330 
80200340 
80200350 
80200 360 
8020U370 
80200380 
8020C390 
60200*00 
80200410 
80200*20 
80200430 
80200440 
80200450 
80200460 
80200470 
60200460 
80200490 
80200 500 
80200510 
80200520 
80200530 
80200540 
80200550 
80200560 
80200570 
80200580 
80200590 
80200600 
80200610 
80200620 
80200630 
80200640 
80200650 
60200660 
80200670 
80200660 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DINAL LO.VDER/ORGANIZOR SECTION (CARD) 



3305 04BC 



330(. 04C1 



3307 0567 



* 

* 

* 
* 
» 
* 
* 
a 



3308 0609 



3309 06F2 



330A 0735 



330B 0745 



» 
* 
* 
* 
* 
* 

» 
* 
* 

* 
* 
* 

* 
* 
* 

* 

* 
* 



DC H3305+1 WAIT 305 

1442 NOT REAUY.READY 
THE 1442 AND CONTINUE 

DC W3306+1 WAIT 306 

1442 ERROR DSW IS IN 
A REG. NPRO THE 1442. 
RELOAD THE CAkDS 
EJECTEO BY THE t,?kO 
AND CONTINUE. If E*kORS 
CONTINUE.PEKFOk* THfc 
RESTART PROCbDURc. 

DC W3307+1 WAIT 307 

AN EDIT CARD ERROR HAS 
BEEN OETECTED. EITHER 
THE EDIT CARDS DO HOT 
BLUNG TO THE PRCiRAH 
JUST WRITTEN ON ulSK, 
OR THEY ARE OUT -IF 
SEOUENCt. VERIFY THE 
CORRECTNESS OF ThE EDIT 
CARDS AND RELOAu TntM 
IN THE 1442. CONTINUE 
BY PRESSING 1600 sTAKT 
BUTTON. IF IT IS OSSJRtD 
THE EDIT CARDS *AY BE 
ENTERED UPON CC u -lfcTION 
OF DISK GENERATION BY 
USING THE CHANGE EDIT 
OPTION. 

DC W3308+1 WAI1-308 

READY THE 1442 WITH 
AT LEAST 8 BLANK CARDS 
AND DEPRESS 1800 START 
BUTTON. THE CARDS WHICH 
WILL BE PUNCHED ARE THE 
COLO START CALL CARDS. 

DC W3309+1 WAIT 309 

ENTER THE PID OF THE 
PROGRAM TO Bt DELETED 
IN DATA ENTRY SWITCHES 
8 TROUGH 15 AND PRESS 
START. 

DC W330A+1 WAIT 30A 

READY THE 1442 WITH 
THE EDIT CARDS CONTAIN- 
ING THE NEW EDIT DATA 
INSURE THAT A CO-PLETE 
SET OF EDIT CARDS IS 
ENTERED FOR THE 'ROGRAM 
BEING CHANGED. DEPRESS 
START TO CONTINUE. 

DC W330B+1 WAIT 30B 

CHANGE EDIT OPTION 
HAS BEEN SELECTEO.THE 
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* -. 




«* , ) 




: 


"> 


80200690 






80200700 


3 


■') 


80200710 






80200720 






80200730 


1 


.") 


802007*0 






80200750 






80200760 


3 


1 


80200710 






802007c v 






80200790 


3 


") 


80200600 






80200610 






60200620 


1 


3 


80200630 






8020084O 






80200650 


3 


3 


80200660 






80200610 






802006=0 


1 


:> 


802006*3 






8020091,0 






8020091U 


3 


y 


80200920 






80200930 






802009*0 


3 


") 


602009JO 






60200SoO 






80200970 


">3 


) 


802009c0 




802009' j 




60201000 


1 


i 


80201010 






80201020 






80201030 


1 


3 


80201040 






80201050 






80201060 


1 


3 


802010/0 






80201060 






80201090 


3 


3 


80201100 






80201110 






80201120 


') 


3 


80201130 






802011*0 






802011)0 


1 


3 


80201160 






80201170 






80201160 


3 


3 


80201190 






802O12C0 






80201210 


3 


3 


80201220 






802012 30 






802012*0 


3 


3 


802012:0 






80201260 






80201270 


3 


3 


80201260 






80201290 






80201300 


3 


3 


80201310 






60201320 






60201330 


3 


3 


80201340 






80201350 






60201360 


3 


3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
D1MAL LOADER/ ORGAN I ZUR SECTION ICARDI 



330C 07A0 



330D 07CD 



330E 07CE 



330F 07E5 



3310 

0004 
OAAB 
OAFB 
0C3C 
0F87 



* 
* 

* 

* 
* 
* 
* 
* 



* 
» 
* 

« 
* 

* 
* 
* 

* 
* 



DC 



W330C+1 



DC 



DC 



W330D+1 



W330E 



DC 



0146 

0147 



OATE 
EC NO. 



0200 
7013 



OUT 

IN 

DRTBL 

EOTBL 

HIST 

« 

* 

* 

* 
* 
* 
* 

* 
» 
* 
* 
* 

* 

* 

* 

PIO 



ORC- 

ECU 
EOU 
EOU 
EOU 
EOU 



W330F 



326 

4 

2731 

2811 

3132 

3975 



CARD JUST READ WAS NOT 
AN EDIT CARO. CORRECT 
THE CARO IN tRROR ANO 
RELOAD IT. PRESS START 
TO CONTINUE. 

WAIT 30C 

A CHECKSUM ERROR HAS 
BEEN DETECTED DURING 
CARD INPUT. REFER Til 
OIMAL DOCUMENTATION, 
SECTION 4.4<ERR0R 
MESSAGES). MESSAGE 
E007 DESCRIPTION FOR 
CORRECTIVE PROCEDURES. 

WAIT 30D 

1443 NOT READY. READY 
AND CONTINUE. 

WAIT 30E 

1443 BUSY. AN ERROR 
CONDITION. SHUU!.0 NOT 
NORMALLY OCCUR. CORRECT 
AND CONTINUE. 

WAIT 30F 

1053/1816 NOT READY. 
READY OUTPUT DEVICE 
AND CONTINUE. 



DDM LOADER / ORGANIZER PROGRAM SECTION 

THE DOM LDR/ORG SECTION IS USED TO 
PERFORM THE FOLLOWING FUNCTIONS 

1. INPUT DFT'S AND PLACE THEM ON THE 
CE DISK PACK. 

2. INPUT EDIT INFORMATION AND PLACE 
IT IN THE EDIT TABLE. 

3. ADD PROGRAMS TO AN EXISTING OIMAL 
PACK. 

4. DELETE PROGRAMS FROM AN EXISTING 
PACK. 

5. CHANGE EDIT INFORMATION ON AN 
EXISTING DIMAL PACK. 

6. LIST THE LOCATION OF ALL DFTS ON 
THE OIMAL PACK. 

7. LIST THE CONTENTS OF THE EOIT TABLE. 
3. PUNCH COLD START CALL ROUTINES 

9. LIST BIT SW. ENTRY COLD START CALL 
SEEK COUNT. 



DC 
MDX 



/0200 
START 



DDM PIO 

SKIP OVER USE TABLE 



15MAY67 
411731 
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80201370 

60201360 

80201390 

80201 -.00 

80201410 

60201420 

80201430 

80201440 

80201450 

80201460 

60201470 

80201460 

60201490 

80201500 

60201510 

B0201520 

80201530 

80201340 

60201550 

80201 560 

80201570 

80201560 

80201590 

80201600 

80201610 

80201620 

60201630 

80201640 

80201690 

80201660 

80201670 

80201660 

60201690 

80201 '00 

60201710 

60201720 

80201730 

80201740 

60201750 

80201760 

80201770 

80201760 

80201 7 VC 

80201600 

80201810 

80201820 

80201830 

80201640 

80201850 

80201860 

80201670 

80201880 

80201690 

60201900 

60201910 

80201920 

60201930 

80201940 

80201950 

80201960 

80201970 

80201960 

80201990 

60202000 

8O202O10 

80202020 

80202030 

80202040 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
OIMAL I.OADER/0RGANIZ0R SECTION (CARD) 



TABLE CYTBL IS FILLED IN BY THE INITIAL 
LOADFR BEFORE THIS PROGRAM IS WRITTEN 
ON THE DISK. 



0148 





0000 


0149 





0000 


014A 





0000 


014B 





oooo 


014C 





0000 


014D 





oooo 


014E 





0000 


014F 





oooo 


0150 




oooo 



0150 00 4C000152 



0152 

0153 



0860 
1809 



01 54 00 4C1B07A5 

0156 6301 

0157 00 6F00000C 
0159 00 4C000168 



015B 
015C 00 
015E 
015F 00 
0161 01) 

0163 

0164 

0165 

0166 00 
0168 00 
01 6 A 00 
016C 
0160 
016E 
016 c 

0170 

0171 00 

0173 

0174 00 

0176 

0177 

0178 

0179 00 
01 7B 00 
017D 
017E 

0180 00 
0182 00 

0184 

0185 

0186 

0187 00 





00 



6300 

C400000D 

E061 

EF00040A 

D700040A 

73FE 

70F7 

C8EA 

DCOOOOOO 

44000360 

4400036B 

C0E1 

000 A 

0017 

1803 

0002 

44000381 

OOOO 

44000393 

0078 

0F87 

OOOO 

C4000F8A 

D400025B 

£044 

04000524 

74030186 

44000393 

0078 

0F87 

OOOO 

4400C36B 



0189 00 C400000C 
018B 00 4C1801C3 
018D 00 4400050B 

018F 00 44OO07B8 

0191 0A93 

0192 3300 



DATE 
EC NCI. 



15MAY67 
411731 



CYTBL OC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
BSS 
RSTRT BSC 



HDR TST/CLD SRT LDR 

DDM LDR/ORG CYLINDER 

DDM SEL/EXC CYLINDER 

WORK CYLINDER 

WORK CYLlNDEk 

LOC OIK-EDIT TBL CYL 

HIST TRACK ADDRESS 

o output oevict 

ALIGN TO EVEN ADDRS 

RESRT RESTART INSTRUCTION 



* 

* 

RESRT XIO 
SRA 
BSC 
LDX 
STX 
BSC 

* 

START LDX 
LD 
AND 
OR 
STO 
MDX 
HDX 
LDD 
STD 
BSI 
BS1 
LD 
STO 
STO 
SRA 
STO 
BSI 
DC 
BSI 
DC 
DC 
DC 
LD 
STO 
AND 
STO 
MDX 
BSI 
DC 
DC 
DC 
BSI 



RESTART INSTRUCTIONS 



L 

3 
L3 

L 



SNSW 

9 

RST.+- 

1 

/C 

RST1 



RST1 



L02 



L02A 



LD2B 



3 13 
L /D 

SNSW 
L3 DSN 
L3 DSN 
3 -2 

START+1 

RSTRT 
L 
L DRDY 
L SKHM 

CYTBL+6 

L02A+4 

L02B+4 

3 

L02 + 2 
L SKOT 


L , DRD 

120 

HIST 



HIST+3 

CYIND 

KFFF8 

NXTCY 

L02B+4.3 

DRD 

120 

HIST 



SKHM 



SENSE SENSE/PROGRAM SM 
POSITION USABLE BITS 
PACK GENERATION BRANCH 
SET XR = 1 
SET CALL INDICATOR 
DISK HOD RESTART 

SET IOCC BUILD XR 
PICK UP AREA CODE 
REMOVE UNWANTED BITS 
ADO AREA CODE TO IOC 
RESTORE IOCC 
SKIP WHEN DONE 
BUILD NEXT IOCC 
GET RESTART INSTRN 
SET IN LOCS AND 1 
CK DISK READY 
RETURN DISK TO nOME 
PICKUP HST TRK ADDRS 
SET IN READ COKMAND 
SET IN READ COMMAND 
POSITION SEEK COUNT 
SET IN SEEK CALL 
SEEK DISK CALL 
SEEK COUNT 
READ DiSK CALL 
WORD COUNT 
INPUT AREA ADDRESS 
SECTOR ADDPESL 
PICKUP LAST USD CYL 
SET IN USE SECT IND 
REMOV'l SECTOR BITS 
SET IN CYL INDICATOR 
SET READ FDR SECT 3 
REAO DISK CALL 
WORD COUNT 
INPUT AREA ADDRESS 
SECTOR ADDRESS 
RETURN OISK TO HOME 



* 
» 
* 
L01 



DETERMINE IF 
START CALL. 



INITIAL LOAOER OR COLD 



LD L /C PICKUP SECTION IND 

BSC L L03i+- BRANCH IF IN1T LDR C 

BSI L TBLIN INPUT LOC OR. EDIT TABLE 

* 

L01A BSI L LOG PRINT SELECT OPTION 

DC MSG10 MESSAGE ADDRESS 

W3300 DC /3300 SELECT OPTION WAIT 

* 



PART NO. 
PAGE 



60202050 

80202060 

80202070 

80202080 

80202090 

80202100 

80202110 

80202120 

80202130 

80202140 

80202150 

80202160 

80202170 

80202180 

80202190 

80202200 

80202210 

80202220 

802022 30 

80202240 

802022 50 

80202260 

e0202270 

80202280 

80202290 

80202300 

80202310 

80202320 

80202 330 

80202340 

80202 350 

80202360 

80202' 70 

80202 380 

80202 390 

80202400 

80202410 

80202420 

80202430 

80202440 

80202450 

80202460 

80202470 

80202480 

80202490 

80202500 

80202510 

80202520 

80202 530 

80202540 

80202550 

80202560 

80202570 

80202580 

80202 590 

80202600 

80202610 

80202620 

80202630 

80202640 

80202650 

80202660 

80202670 

80202680 

80202690 

80202700 

80202710 

80202720 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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019? 


082C 




XIO 




SNSW 


0194 00 


4C2801F4 




BSC 


L 


L04 t +Z 


0196 


1001 




SLA 




1 


0197 00 


4C2801AD 




BSC 


L 


DLETE. + Z 


0199 


1001 




SLA 




1 


019A 00 


4C2801B0 




BSC 


L 


CHED.+Z 


019C 


1001 




SLA 




1 


0190 00 


4C2801B3 




BSC 


L 


LLD.+Z 


019F 


1001 




SLA 




1 


01A0 00 


4C2801B6 




BSC 


L 


LED.+Z 


01A2 


1001 




SLA 




1 


01A3 00 


4C2801B9 




BSC 


L 


PCD.+Z 


01A5 


1001 




SLA 




1 


01A6 00 


4C280>BC 




BSC 


L 


LCC.+Z 


01A8 00 


44000360 


DONE 


BSI 


L 


DRDY 


01AA 00 


44000368 




BSI 


L 


SKHM 


01AC 


70E2 


* 
DLETE 


MDX 




L01A 


01AD 00 


440006ED 


BSI 


L 


DLPGM 


01AF 


70F3 


f 


MDX 




DONE 


01B0 00 


44000730 


CHED 


BSI 


L 


CHGED 


01B2 


70F5 


* 
LLD 


MDX 




OONE 


01B3 00 


44000620 


BSI 


L 


ORLST 


01B5 


70F2 


» 
LEO 


MDX 




DONE 


01B6 00 


44000678 


BSI 


L 


EDLST 


01B8 


70EF 


« 
PCD 


MDX 




DONE 


01B9 00 


440006D4 


BSI 


L 


PCSC 


01BB 


70EC 


» 
LCC 


MDX 




DONE 


01BC 00 


44000418 


BSI 


L 


LCSC 


01BE 


70E9 




MDX 




DONE 


01C0 


JOOO 




BSS 


E 





01C0 


F800 


SNSW 


DC 




/F800 


01C1 


0760 




DC 




/0760 


01C2 


FFF8 


KFFF8 


DC 




/FFF8 



READ SENSE/PROG SWS 
BRANCH IF ADD PROG 
POSITION DELfcTE BIT 
BRANCH IF DELETE PGM 
POSITION CHNG EDIT 
BRANCH IF CHANGE EOT 
POSITION LIST LOC UK 
BRANCH IF LIST LC Dk 
POSITION LIST EDIT 
BRANCH IF LIST EDIT 
POSITION PUNCH CALL 
BRANCH IF PUNCH CALL 
POSITION LIST SK CUT 
BRANCH IF LIST SK CT 
CHECK DISK READY 
RETURN ARM TU HOME 
GO TO OPTION WAIT 

GO DELETE PROGRAM 
COMPLETED 

GO CHANGE E01T 
COMPLETED 

GO LIST DIRECTORY 
COMPLETED 

GO LIST EDIT TABLE 
COMPLETED 

GO PUNCH CALL CARDS 
COMPLETED 

GO LIST SEEK COUNT 



CONSTANT LOCATION 
SENSE SNS/PROG SWS 
CONSTANT HEX FFF8 



ENTER L03 IF INITIAL LOADER CALL. 



01C3 OC C4000524 
0-1C5 00 D4000523 
01C7 00 440004FD 
01C9 00 C4000524 
01CB 00 D400025B 



L03 



LD L NXTCY 

STO 1 LSTCY 

BSI L CYCK 

LD L NXTCY 

STO L CYIND 



PICKUP CYL IND 
SET IN LAST USED IND 
GO CHECK NEaT CYL. 
PICKUP NEXT CYL 
SAVE FOR WORK USE 



GENERATE LOCATION DIRECTORY 



01CD 00 
01CF 
01D0 
01D1 
01D2 00 
01D4 
01D5 00 
01D7 
01D8 
01D9 00 
01DB 00 
01DD 
01DE 
010F 
OlEO 00 
01E2 O 



OATE 
EC NO. 



C4000148 

0016 

8012 

D018 

C4000149 

D019 

C400014A 

D01A 

63F0 

C70001F4 

D7000B0C 

7301 

70FA 

6311 

6F000599 

7011 



15MAY67 
411731 



L05 



LD 

STO 

A 

STO 

LD 

STO 

LD 

STO 

LDX 

LD 

STO 

MDX 

MDX 

LDX 

STX 

MDX 



L CYTBL 

LCCN+2 

K7 

LCCN+6 
L CYTBL+1 

LCCN+10 
L CYTBL+2 

LCCN+14 
3 -16 
L3 LCCN+16 
L3 DRTBL+17 
3 1 

L05 
3 17 
L3 DRCT 

L04 



PICKUP DOM HDR CYL 
SET IN LOC CONSTANTS 
UPDATE SECTOR ID 
SAVE AS CS LDR CYL 
PICKUP LDR/ORG CYL 
SET IN LOC CONSTANTS 
PICKUP SEL/EXC CYL 
SET IN LOC CONSTANTS 
SET XFER INDEX 
PICKUP DIRECTORY WD 
SET IN DIRECTORY TBL 
SKIP WHEN DONE 
XFER NEXT WORD 
SET XR = ENTRY COUNT 
SAVE XR IN ETY CTR 
SKIP OVER CONSTANTS 



DDM DISK LOCATION CONSTANTS 



PART NO. 2242253 
PAGE 35A 



80202730 

80202740 

80202750 

80202760 

60202770 

80202760 

80202790 

£0202800 

80202810 

80202820 

80202830 

80202840 

80202850 

80202860 

80202870 

80202680 

80202890 

80202900 

80202910 

80202 920 

80202930 

80202940 

80202950 

80202 960 

80202970 

80202980 

80202990 

80203000 

80203010 

80203020 

80203030 

80203040 

80203050 

80203060 

80203070 

80203060 

80203090 

80203100 

80203110 

80203120 

80203130 

80203140 

80203150 

80203160 

80203170 

80203180 

80203190 

80203200 

80203210 

80203220 

80203230 

80203240 

80203250 

80203260 

60203270 

80203260 

80203290 

80203300 

80203310 

80203320 

80203330 

30203340 

80203350 

80203360 

80203370 

80203360 

80203390 

60203400 
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* 










80203410 




01E3 0007 


K7 


DC 




7 


CONSTANT 7 


80203420 




01F4 023A 


LCCN 


DC 




/023A 


HEADER TEST CONSTANI 


80203430 




01E5 0014 




DC 




20 


ORG ADDRESS 


80203440 




01E6 0000 




DC 







CYMNDER AODRESS 


80203450 




01E7 0015 




DC 




21 


XFER ADDRESS 


80203460 




01E8 020A 




DC 




/020A 


COLD START LOR CNST 


80203470 




01 E9 ODAC 




DC 




3500 


ORG ADDRESS 


80203480 




01EA 0000 




DC 







CYLINDER ADDRESS 


80203490 




OlfcB ODAD 




DC 




3501 


XFER ADDRESS 


80203500 




01EC 0242 




DC 




/0242 


LDR/ORG CONSTANT 


80203510 




01E0 0146 




DC 




326 


ORG ADDRESS 


80203520 




01EE 0000 




DC 







CYLINDER ADDRESS 


80203530 




01EF 0147 




OC 




327 


XFER ADDRESS 


80203540 




01F0 0232 




DC 




/0232 


SEL/EXC CONSTANT 


80203550 




01F1 0044 




DC 




/0044 


ORG ADDRESS 


80203560 




01F2 0000 




DC 







CYLINDER ADDRESS 


80203570 




01F3 0045 


» 


DC 




/0045 


XFER ADDRESS 


80203580 
80203590 






* 


PREPARE 


TO INPUT 


DFTS. 


80203600 






* 










80203610 




01F4 C066 


L04 


LD 




CY1ND 


FETCH CYLINDER TO USE 


60203620 




01F5 1803 




SRA 




3 


POSITION SEEK COUNT 


80203630 




01F6 D004 




STO 




L08+2 


SET IN SEEK CALL 


8020 3640 




01F7 00 44000360 




BSI 


L 


DRDY 


CHECK F0'< READY DISK 


80203650 




01 F9 00 44000381 


108 


BSI 


L 


SKOT 


GO SEEK TO LAST USED 


8020 3660 




01FB 0000 




DC 







♦CYLINDER 


80203670 




01FC 1010 


L09 


SLA 




16 


ZERO A KEG 


80203680 




01 Fi) 005b 




STO 




OAO 


CLEAR ORG ADOkS IN'. 


80203690 




OlFfc 005B 




STO 




owe 


CLEAR OUTPUT AREA »C 


80203700 




01FF D058 




STO 




CDCT 


CLEAR CARD COUNT 


80203710 




0201 6200 


* 


LDX 


2 





INITIALIZE MOVE XR 


80203720 
8020373- 






* 


INPUT DIAG FUNCTION TESTS. 


80203740 






* 










80203750 




0201 00 C40004C2 


L010 


LD 


L 


LCD 


PICKUP LAST CARD HO 


80203760 




0203 00 4C160213 




BSC 


L 


L010B.+- 


BRANCH IF INO NOT CN 


80203770 




0205 085C 




XIO 




FEEO 


CLEAR 1442 


80203780 




0206 1010 




SLA 




16 


CLEAR A REG 


80203790 




0207 0(' D40004C? 




STO 


L 


LCD 


CLEAR LAST CARD SW. 


80203800 




C209 00 4400078b 




BS1 


L 


LOG 


PRINT TERMINATION SO 


80203810 




020b 09FF 




DC 




MSG6 


MESSAGE ADORESS 


80203820 




020C 00 0C0004C6 




XIO 


L 


SNR 


RESET 1442 DSW 


80203830 




020b 3301 


W3301 DC 




/3301 


TERM INDICATE WAIT 


80203840 




020F 0850 




XIO 




DESW 


SENSE DATA ENTRY SfcS 


80203850 




0210 F04F 




EOR 




OESW 


CHECK IF TERM PEOST 


80203860 




0211 00 4C180336 




BSC 


L 


L036.+- 


BRANCH IF TERM REUST 


80203870 




0213 01 440004A9 


L010B BS? 


L 


RDCD 


GO INPUT 1 CARD 


80203880 




0215 OC C4000AAB 




LD 


L 


IN 


PICKUP 1ST CARD ENTY 


80203890 




0217 OC 74000258 




MDX 


L 


CDCT.O 


SKIP IF 1ST CARD 


80203900 




0219 701A 




MDX 




L012 


BRANCH NOT 1ST CARD 


80203910 




021A OC F400075F 




EOR 


L 


KB1 


CHECK IF EDIT CARD 


80203920 




021C 4820 




BSC 




Z 


SKIP IF EOIT CARD 


80203930 




021D 7004 




MDX 




L010C 


BR NOT EDIT CARD 


80203940 




021E OC 44000529 




BS1 


L 


EDIT 


GO SERVICE EDIT CARD 


80203950 




0220 6200 




LDX 


2 


OUTPUT XR TO 


80203960 




0221 70DF 


* 


MDX 




L010 


GO READ NEXT CARD 


80203970 
80203980 






* 


DETERMINE IF CARD OR CORE IMAGE IS TO 


80203990 






• 


BE WRITTEN ON DISK. IMAGE DICTATED BY 


80204000 






* 


PROGRAM ID. 




80204010 






* 










80204020 






* 


IMG 


AND FMT WILL 


BE IF 8/8 CARD. 


80204030 






» 










80204040 




0222 00 C400056A 


LniOC LD 


L 


SEO 


GET EDIT CARO SEO NMBR 


80204050 




0224 00 4C20055B 




BSC 


L 


ED1T3.Z 


BRANCH TF TERM NOT READ 


80204060 




0226 00 C4000AAC 




LD 


L 


IN+1 


PICKUP 2ND WORD 


80204070 




0228 1008 




SLA 




8 


A REG TO IF 8/8 CD 


80204060 




DATE 15MAY67 












PROG ID 


0802-1 


EC NO. 411731 
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0229 0034 
022A D034 
022B 00 4C180234 



STO FMT 

STO IMG 

BSC L L012t+- 





« 
* 


IMG WILL 


BE 1 IF 


0220 00 C4000AAE 


* 


LD 


L 


IN+3 


022F 180D 




SRA 




13 


0230 D02E 


£ 


STO 




IMG 


0231 00 74010258 


LOU 


MDX 


L 


CDCT.l 


0233 70CD 





MDX 




L010 


0234 00 74000259 


L012 


MDX 


L 


OADiO 


0236 7039 




MDX 




L019A 


0237 00 7400025E 




MDX 


L 


FMT.O 


0239 7006 




MOX 




L013 


023A 00 C4000AF5 




LD 


L 


1N+74 


023C 1808 




SRA 




8 


023D 00 EC00GAF6 




OR 


L 


Ih+75 


023F 7007 




MDX 




L014 


0240 00 C4000AAC 


L013 


to 


L 


IN+1 


0242 1890 




SRT 




16 


0243 00 C4000AAB 




LD 


L 


IN 


0245 1804 




SRA 




4 


0246 1084 




SLT 




4 


0247 B014 


L014 


CMP 




K3000 


0248 7001 




MDX 




L015 


0249 7004 




MDX 




L016 


024A B012 


L0I5 


CMP 




K70FF 


024B 7002 




MDX 




L016 


024C 70E4 




MOX 




LOU 


024D 70E3 




MOX 




L011 


024E DOOA 


L016 


STO 




OAD 


024F 00 0400059E 




STO 


L 


LDO 


0251 CC09 




LD 




CYINO 


0252 00 D400059F 




STO 


L 


LOSC 


0254 6101 




LDX 


1 


1 


0255 00 6D00059D 




STX 


LI 


LDNC 


0257 700C 


$ 


MDX 




L017 


0258 0000 


CDCT 


DC 







0259 0000 


OAO 


OC 







025A 0000 


DWC 


DC 







025B 0000 


CYIND DC 







025C 3000 


K3000*JC 




/3000 


0250 70FF 


K70FF DC 




/70FF 


025E 0000 


FMT 


OC 







025F OOCO 


IMG 


DC 







0260 0000 




BSS 


E 





0260 FFOO 


DESrf 


DC 




/FFOO 


0261 0740 




DC 




/0740 


0262 0000 


FEEO 


CC 







0263 1402 




DC 




/1402 


0264 C0F9 


L017 


LD 




FMT 


0265 4813 




BSC 




♦- 


0266 7003 




MDX 




LOie 


0267 00 C4000AB7 




LO 


L 


1N+12 


0269 7002 




MDX 




L019 


026A 00 C4000AAC 


L018 


LD 


L 


IN+1 


026C 00 0400059C 


L019 


STO 


L 


LDP 


026E 00 0400056C 


* 
* 


STO 


L 


PCK 




THIS SECTION P 




* 


OPERATIONS ON 


0270 COED 


L019A LO 




FMT 


0271 00 4C18031E 




BSC 


L 


L034t+ 


OATE 15MAY67 










EC NO. 411731 











SET IN FORMAT INDCTR 
SET IN IMAGE INO 
BRANCH IF 8/8 CARD 



IF RELOCATABLE PROGRAM 

PICKUP ABS/REL IND 
POSITION REL BIT 
SET RESULT IN IMAGE 

ADD 1 TO CARD COUNT 
GO READ NEXT CARD 

SKIP IF ORG INO = 
ORG AODRESS SET GO 
SKIP IF 8/8 FORMAT 
BRANCH 12/4 FORMAT 
PICKUP L-0 AORS BITS 
POSITION IN L-0 A RG 
ADD IN H-0 ADORS BIT 
BYPASS 12/4 FORM OPS 
PACK 12/4 ORG AODRS 
SAVE IN REG 
PICKUP REMAIN OF ADR 
POSITION 
PACK AODRESS 
CHECK IF AODRS OK 
AODRS GREATER 3000 
ADDRS OK 

CHECK IF ADDKS OK 
ADDRS OK 

AODRS LESS THAN 70FF 
AODRS EQUAL 70FF 
SET ORG ADDRESS 
SET 1M LOC 01R CNST 
PICKUP SECTOR ADDRS 
SET IN IOC 01R CNST 
INITIALIZE LOC D1RCT 
» CYLINDER COUNT 
SKIP OVER CONSTANTS 

CARD COUNTER 
PROG ORG AODRS IND 
OUTPUT AREA rtORO CNT 
SECTOR BEING USED 
ADDRS CHECK CONSTANT 
AODRS CHECK CONSTANT 
CARD FORMAT 
IMAGE INDICATOR 

SENSE DATA ENTRY 
» SWITCH IOCC 
1442 CONTROL FEEO 

PICKUP FORMAT IND 
SKIP IF 12/4 CARD 
BRANCH ON 8/8 CARD 
PICKUP 12/4 PID LOC 
BRANCH TO STORE 
PICKUP 8/8 PID LOC 
SAVE IN LOC DIR CNST 
SAVE FOR EDIT RTN 



PICKUP CARO FORMAT 
BRANCH IF 8/8 FORMAT 
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8020461*0 

60204ie>© 

80204*10 

80204170 

60204130 

802041*0 

80204-15© 

83204160 

802041TO 

802f41&0 

SO2O41W0 

6020*2aO 

80204210 

80204220 

60204210 

802042** 

8O204250 

8O2042W0 

80204**0 

602042*0 

80204290 

802043(00 

6Q2043-IO 

8020*320 

8O2O4330 

602043*0 

8O2O4-JV0 

8O2043*>0 

e02043?0 

60204>3«Ki 

802045*0 

80204*00 

802044*10 

80204*^0 

8020 4*50 

60204*40 

80204**0 

80204*60 

80204*70 

802044*0 

802044.V0 

80204*00 

8U204S10 

6020455:0 

802043*0 

602045*0 

80204550 

802045*0 

80 2 045 70 

8O2O43&0 

80204590 

80t04«v&0 

80204*10 

80204420 

802046-30 

802046.40 

60204*50 

80204*60 

802041670 

80204**0 

80204fcVO 

802047QO 

80204710 

80204720 

8O204730 

802047*0 

80204750 

802047*0 
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0273 


00 


C4000AAE 




LD 


L 


IN+3 


PICKUP 12/4 WC COL 


80204770 




0275 





F026 




eor 




KF 


CHECK IF END CARD 


80204780 




0276 


00 


4C200282 




BSC 


L 


L020.Z 


BRANCH IF NOT END CD 


80204790 




0278 





6822 




STX 




ECD 


SET END CARD SWITCH 


80204800 




0279 


00 


C4000AB0 




LO 


L 


IN+5 


PICKUP L-0 XFER AORS 


80204810 




027B 





1890 




SRT 




16 


SET IN REG 


80204820 




027C 


00 


C4000AAF 




LD 


L 


IN+4 


PICKUP H-0 XFER ADRS 


80204830 




027E 





1804 




SRA 




4 


POSITION TO PACK 


8020«.840 




027F 





1084 




SLT 




4 


PACK 12-4 XFbR ADRS 


802048 50 




0280 


00 


040005A2 




SKI 


L 


LDXA 


SAVE IN LOC D1R AREA 


802043j0 




0262 





COUC 


1020 


LD 




IMG 


PICKUP IMAGE INOICAT 


8020'870 




0283 


00 


4C1R02E6 




BSC 


L 


L02B,+- 


BRANCH IF CORE IMAGE 


80204380 




0285 





61B0 




LOX 


1 


-80 


SET INPUT AREA XR 


80204890 




0286 


00 


C5000AF8 


L021 


LD 


LI 


IN+80 


PICKUP INPUT WORD 


80204900 




0266 


00 


06000004 




STO 


L2 


OUT 


SET IN OUTPUT AREA 


80204910 




028A 





7201 




MDX 


2 


1 


ADD 1 TO OUTPUT Xk 


80204920 




02BB 





7101 




MOX 


1 


1 


SKIP WHEN 80 COL MVD 


80204930 




028C 





70F9 




MOX 




L021 


CONTINUE MOVE OP 


80204940 




0280 


oo 


7450025A 




MOX 


L 


DWC.80 


AOD 60 TO OUT WC 


80204950 




028F 


00 


7401029E 




MDX 


L 


XFCT.l 


ADD 1 TO CD XFER CUT 


80204960 




0291 





1010 




SLA 




16 


CLEAR ACC 


80204970 




0292 


00 


7400029B 




MDX 


L 


ECDtO 


SKIP IF NOT END CARD 


80204980 




0294 





7004 




MOX 




LU21A 


BRANCH END CARD 


80204990 




0295 





C008 




LD 




XFCT 


PICK UP XFER COUNT 


80205000 




0296 





F006 




EOR 




K4 


CHECK IF 4TH CARD 


80205010 




0297 


00 


4C2O0201 




BSC 


L 


1.010, Z 


BRANCH IF NOT 4TH CO 


80205020 




0299 





0004 


L021A 


STO 




XFCT 


CLEAR XFER COUNT 


80205030 




029A 





7004 




MOX 




L022 


SKIP OVER CONSTANTS 


80205040 




029 b 





0000 


ECO 


DC 







END CARD SWITCH 


80205050 




029C 





FOOO 


KF 


DC 




/FOOO 


END CARD CHECK CONST 


80205060 




0290 





0004 


K4 


DC 




4 


CONSTANT 4 


80205070 




0296 


u 


0000 


XFCT 
* 


DC 







CARD XFER COUNTER 


80205080 
8020509C 










* 


THIS 


SECTION IS 


COMMON FOR ALL CARD TO 


80205100 










* 


DISK 


OPERATIONS 




80205110 










s 










80205120 




029F 


00 


7401025A 


L022 


MDX 


L 


DWC1 


INCLUDE SID IN W C 


80205130 




02A1 





C089 




LD 




CYIND 


PICKUP SECTOR ADORS 


80205140 




02A2 





0009 




STO 




L023+4 


SET IN READ CALL 


80205150 




02A3 





0000 




STO 




L024+4 


SET IN WRITE CALL 


80205160 




02A4 





C0B5 




LD 




DWC 


PICKUP OUTPUT WC 


80205170 




02A5 





0009 




STO 




1024+2 


SET IN WRITE CALL 


80205160 




02A6 


00 


44000360 


* 


BSI 


L 


DRDY 


CHECK DISK READY 


80205190 
80205200 




02A8 


00 


4*000393 


L023 


BSI 


L 


ORD 


GO READ DISK SID 


80205210 




02AA 





0001 




oc 




1 


WORD COUNT 


80205220 




02AB 





0002 




DC 




OUT-2 


INPUT AREA 


802052 30 




02AC 





0000 


* 


DC 







SECTOR ADDRESS 


80205240 
60205250 




02AD 


00 


440003CC 


L024 


BSI 


L 


DHRT 


GO WRITE DISK RECORD 


80205260 




02AF 





0000 




DC 







WRITE WORD COUNT 


80205270 




02B0 





0002 




DC 




OUT-2 


OUTPUT AREA 


80205280 




02B1 





0000 


* 


DC 







SECTOR ADDRESS 


80205290 
80205300 




02B2 


00 


7401025E 




MDX 


L 


CYINDtl 


UPDATE CYLINDER ADOR 


80205310 




0284 





C0A6 




LD 




CYIND 


PICKUP CYLINDER ADOR 


80205320 




02B5 





1001) 




SLA 




13 


SAVE SECTOR blTS 


80205330 




02B6 


00 


4C2002D4 




BSC 


L 


Ltl26,Z 


BRANCH IF NOT SECT 


80205340 




0288 


00 


C4000524 




LD 


L 


NXTCY 


ADORS OF CYL USED 


80205350 




02BA 


00 


D4000523 




STO 


L 


LSTCY 


SET IN LAST USED LOC 


80205360 




028C 


00 


440004F0 




BSI 


L 


CYCK 


CHECK NEXT CYL 


80205370 




02BE 


oo 


C4000524 




LD 


L 


NXTCY 


PICKUP NXT AVAIL CYL 


80205380 




02C0 





009A 




STO 




CYIND 


SAVE IN WORK LOCATN 


80205390 




02C1 


00 


94000523 




S 


L 


LSTCY 


SUB LAST USED CYL 


8020 5400 




02C3 





1803 




SRA 




3 


POSITION SEFK COUNT 


80205410 




02C4 





D004 


* 


STO 




L025+2 


SET IN SEEK CALL 


80205420 
60205430 




02C5 


00 


44000360 




BSI 


L 


DRDY 


CHECK DISK READY 


80205440 




DATE 




15MAY67 












PROG ID 


0802-1 


EC NO. 


411731 
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02C7 00 44000381 
02C9 0000 

02CA 00 7400029B 
02CC 7007 
02CD 00 7401059D 
02CF 00 66800590 
02D1 C089 
02D2 00 D600059E 

02D4 00 7401059B 

0206 6200 

0207 6A82 

0208 C0C2 

0209 00 4C2002DF 
020B C083 
02DC 00 4C040201 
020E 7034 



02DF 00 4400056E 
02E1 1010 
02E2 00 D400029B 
02E4 00 4C0001FC 



02E6 





C0B4 


02E7 


00 


4C1B02EC 


02E9 





7200 


02EA 





70B4 


02EB 





70EA 


02EC 


00 


44000478 


02EE 


00 


C4000AAB 


02F0 





0029 


02F1 


00 


C4000AAD 


02F3 





E027 


02F4 





D001 



02F5 00 67000000 
02F7 6109 



02F8 
02F9 
02FA 
02FI1 
02FD 
02FF 
0300 
0301 
03C2 
0304 
0306 
0306 
030A 
030B 
030C 
030D 
030E 
0310 
0311 



1010 
D022 
COIF 
00 F40002j9 
00 4C180302 
6B1C 
1010 
7002 
00 C5000AAB 
00 06000004 
00 74010259 
00 7401025A 
C011 
4818 
7101 
7201 
00 C400025A 
FOOC 
00 4C18029F 



DATE 
EC NO. 



15MAY67 
411731 



L025 

* 



L026 



PSI 
OC 

MDX 

MDX 

MDX 

LDX 

LD 

STO 

KDX 

LDX 

STX 

LD 

BSC 

LD 

BSC 

MDX 



* 
L027 



L028 



LU29 



L030 

* 
* 
« 
L031 



L032 



L SKOT GO SEEK DISK 

SEEK COUNT 

L ECDtO SKIP IF NOT END CARD 

L026 BRANCH ON END CARD 

L LDNCtl +1 TO NMBR OF CYLS 

12 LDNC XR = NMBR OF CYLS 

CYIND PICKUP NEXT CYL 

L2 LDSC-1 SET IN LOC OIR CONST 

L LDNS.l AOD 1 TO NMBR SECTOR 

2 OUTPUT XR TO 

2 OWC OUTPUT WORD CNT TO 

ECO PICKUP END CAkD SW 

L L027.Z BRANCH IF END CARD 

IMG PICKUP IKAGE 1NDICTR 

L L010.E BRANCH IF CARD IMAGE 

L033 BRANCH NOT CD IMAGE 



THFSE OPERATION ARE PERFORMED IF THE 
LAST CARD WAS AN END CARD. 



BSI L DIRC 

SLA 16 

STO L ECD 

BSC L L09 



GO UPDATE LOC DIRECT 

CLEAR A REG 

CLEAR END CARD SWITC 

REINITIALIZE 



THIS SECTION PERFORMS THE CARD TO DISK 
OPERATIONS ON 12/4 CORE IMAGE FORMATS 



LD ECD 

BSC L L029t+- 

MDX 2 
MOX L022 
MDX L026+2 



BSI 

LO 

STO 

LD 

AND 

STO 

LDX 

LOX 



L CV12 
I IN 

ADCK 
L IN+2 

K3F 

L030+1 
L3 
1 9 



FETCH END CARD SW 
BRANCH IF NOT END CD 
SKIP IF 0/A EMPTY 
GO WRITE DISK 
GO SETUP FOR NXT DFT 

GO PACK 12-4 DATA 
PICKUP CARD ADDRESS 
SET IN ADOR LK SW 
PICKUP WORD COUNT LC 
SAVE WORD COUNT BITS 
SET IN LOAD XR INSTR 
SET XR = WORD COUNT 
SET INPUT MOVE INDEX 



THIS SECTION IS COMMON TO BOTH 12/4 AND 
8/8 CORE IMAGE FORMATS. 



SLA 

STO 

LD 

EOR 

BSC 

STX 

SLA 

MDX 

LD 

STO 

MDX 

MDX 

LD 

BSC 

MDX 

MOX 

LD 

EOR 

BSC 



LI 



16 CLEAR A REG 

ZERO CLEAR ZEROS SWITCH 

ADCK PICKUP CARD ADDRESS 

DAD CHECK IF EXPECTED 

L032.1— BRANCH IF PROP ADORS 

ZERO SET ZEROS SWITCH 

16 CLEAR A REG 

L032+2 GO STORE ZEROS 

IN PICKUP DATA WORO 

L2 OUT SET IN OUTPUT AREA 

L OADtl AOD 1 TO °=XPCTD AORS 

L DWCtl ADD 1 TO OUTPUT WC 

ZERO GET ZEROS SWITCH 

+- SKIP IF ON 

1 1 INCR INPUT INDEX 

2 1 INCR OUTPUT INDEX 

L DWC LOAD OUTPUT WORD CT 

K320 CHECK I F WC « 320 

L L022.+- BRANCH I F WC « 320 
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60205450 

80205460 
80205470 
80205480 
S0205490 
80205500 
80205510 
80205520 
80205530 
B02C5540 
80205550 
80205560 
80205570 
80205580 
60205590 
802O5O00 
80205610 
80205620 
80205630 
80205640 
8C205650 
80205660 
80205670 
6020566C 
60205690 
80205700 
68205710 
80,205720 
80205730 
80205740 
80205750 
80205760 
60205770 
80205780 
6Q205790 
80205800 
80205810 
80205320 
60205830 
80205640 
80205850 
8?22<>5860 
6G2O5870 
80205880 
8020 5890 
60205900 
60205910 
80205920 
60205930 
60205940 
60205950 
80205960 
80205970 
60205*80 
60205990 
60206000 
60206010 
8O2G6020 
80206030 
80206040 
80206050 
60206060 
80206070 
80206080 
80206090 
80206100 
60206110 
8O206120 
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0313 00 


7400031C 


LQ33 


MOX 


L 


2EROtO 


SKIP IF ZERO SW OFF 


80206130 




0315 


70E2 




KDX 




L031 


BRANCH ZERO SW ON 


80206140 




0316 


73FF 




MOX 


3 


-1 


SKIP IF CD WC TO 


80206150 




0317 


70EA 




MDX 




L032 


GO MOVE NEXT WORD 


80206160 




0318 00 


4C000231 


* 


ESC 


L 


L011 


GO INPUT NEXT CARD 


80206170 
80206180 




031A 


0000 


AOCK 


DC 







ADDRESS CHECK STORAG 


80206190 




031B 


003F 


K3F 


re 




/003F 


CONSTANT 


80206200 




021C 


0000 


ZERO 


DC 







ZERO FILL INDICATOR 


80206210 




0310 


0140 


K320 
e 


DC 




320 


CONSTANT 


80206220 
80206230 








* 


THIS 


SECTION PERFORMS THE CARD TO DISK 


80206240 








* 


OPERATIONS ON 8/8 CORE IMAGE. 


802062 50 








« 










80206260 




03 IE 00 


C4000AF5 


L034 


LD 


L 


IN+74 


PICKUP L-0 8/8 AODRS 


80206270 




0320 


1808 




SRA 




8 


POSITION FOR PACK 


80206280 




0321 00 


EC000AF6 




OR 


L 


1N+75 


ADD IN H-0 8/8 ADOKS 


80206290 




0323 


OOF 6 




STO 




AOCK 


SET IN ADDRS CK SW 


80206300 




0324 00 


4C200330 




BSC 


L 


L035iZ 


BRANCH IF NOT END CD 


80206310 




0326 00 


6C00029B 




STX 


L 


ECD 


SET END CARD SWITCH 


80206320 




0328 00 


C4000AB5 




LD 


L 


1N+10 


PICKUP L-0 XFER ADRS 


80206330 




032A 


1008 




SRA 




8 


POSITION FOR PACK 


80206340 




032H 00 


EC000AB6 




OR 


L 


1N+11 


ADD IN H-0 XFER ADRS 


80206350 




032U 00 


040005A2 




STO 


L 


LOXA 


SAVE XFER ADDRESS 


80206360 




032F G 


70139 


* 


MOX 




L028+3 


GO SERVICE END CARD 


80206370 
802063EO 




0330 00 


44000444 


L035 


RSI 


L 


CV8 


GO PACK 8-8 DATA 


80206390 




0332 00 


67800ACF 




LDX 


13 


IN+36 


SET XR « WORD COUNT 


8C206400 




0334 


61C0 




LDX 


1 





SET INPUT XR 


80206410 




0335 


70C2 


ft 


POX 




L031 


GO TO COMMON SECTION 


80206420 
80206430 








ft 


THE 


FOLLOWING OPERATIONS ARE PERFORMED 


60206440 








ft 


UPON 


COMPLETION 


OF THE DISK LOAD. 


80206450 








« 










80206460 




0336 o:i 


C400025B 


L036 


LD 


L 


CYIND 


PICKUP LAST USED SEC 


80206470 




0338 03 


D4000005 




STO 


L 


OllT + 1 


SET IN OUTPUT AREA 


80206480 




033A 


4025 




bSI 




DROY 


CHECK DISK READY 


80206490 




0338 


402F 




8SI 




SKHM 


INSURE DISK AT HOME 


80206500 




033C 03 


C400014E 




LO 


L 


CYTBL+6 


PICKUP HIST TRACK 


80206510 




033E 


0008 




STO 




L038+3 


SET IN READ CALL 


80206520 




033F 


OOOC 




STO 




1039+4 


SET IN WRITE CALL 


80206530 




0340 


1803 




SRA 




3 


REMOVE SECTOR BITS 


80206540 




0341 


0001 


* 


STO 




L037+1 


SET IN SEEK CALL 


80206550 
80206560 




0342 


403E 


1037 


BSI 




SKOT 


SEEK TO HIST TRACK 


80206570 




0343 


0000 


a 


DC 







SEEK COUNT 


80206580 
80206590 




0344 


404E 


L038 


BSI 




ORD 


READ SECTOR ID 


80206600 




0345 


0002 




DC 




2 


WORD COUNT 


80206610 




0346 


0002 




DC 




OUT-2 


I/O AREA 


80206620 




0347 


0000 


ft 


DC 







SECTOR ADDRESS 


80206630 
80206640 




0348 00 


440003CC 


1039 


ESI 


L 


DHRT 


GO WRITE SECTOR 


80206650 




034A 


0003 




DC 




3 


WORD COUNT 


80206660 




0348 


0002 




DC 




OUT-2 


I/O AREA 


80206670 




034C 


0000 


• 


DC 







SECTOR ADDRESS 


80206680 
80206690 








* 


LIST 


LOCATION D 


IRECTORY. 


80206700 








* 










80206710 




0340 00 


44000520 


» 


BSI 


L 


DRLST 


GO LIST DIRECT TABLE 


80206720 
80206730 








» 


LIST 


EDIT TABLE 




80206740 








• 










80206750 




034F 00 


4400057B 


» 


f SI 


L 


EDLST 


GO LIST EDIT TABLE 


80206760 
80206770 








* 


WRITE LOCATION 


DIRECTORY ON DISK 


80206780 








* 










80206790 




0351 00 


440006B6 




BSI 


L 


WRTLD 


GO WRITE LOC DIRECT 


80206800 




DATE 
EC NO. 


15MAY67 
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0353 00 440006C4 



0355 00 OC0001CO 
0357 00 4C2801A8 
0359 00 440006D4 



0358 00 4400041a 



035D 400D 
035E 00 4C000192 



0360 0000 

0361 00 OC00040C 

0363 1002 

0364 00 4C900360 

0366 1001 

0367 00 4C280361 
0369 3302 
036A 70F6 



036B 
036C 
036D 
036F 
0370 
0371 
0373 
0374 
0375 
0376 
0377 
0378 
037A 
037C 
037D 
037r 



0000 
6304 
00 OC00040C 
0010 
1004 
00 4CA8036B 
73FF 
7003 
COOA 
3303 
70F4 
00 0C00040E 
00 0C00040A 
1001 
00 4C10037A 
70ED 



0380 3000 



0381 
0382 
0384 
0386 
0388 
038A 
0388 
0380 
038F 
0391 



0000 
00 C4800381 
00 D4000410 
00 OC000410 
00 0C00040A 
1001 
00 4C100388 
00 0C00040C 
00 74010381 
00 4C800381 



DATE 
EC NO. 



15MAY67 
411731 



WRITE EDIT TABLE ON DISK 

BSI L WRTED GO WRITE EDIT TABLE 

PUNCH COLD START CALL CARDS 



XIO L SNSW 
BSC L DONE.+Z 
8SI L PCSC 



SENSE SNS/PGM SWS 
BRANCH IF ADD PROGRAM 
PUNCH CALL CaP.DS 



ft 
ft 
ft 
L040 

ft 
« 
ft 
ft 
DRDY 



W3302 

ft 
* 
« 
SKHM 

SKHM1 



W3303 
SKHM2 



ft 
SKST 

s 
* 
ft 
ft 
SKOT 



SKOTl 



PRINT SEEK COUNT FOR BIT SWITCH ENTERED 
COLD START CALL. 

BSI L LCSC LIST CALL SEEK COUNT 

OPERATIONS COMPLETE 



RSI 
BSC 



SKHM 
L W3300 



RETURN ARM TO HOME 
OONF GO TO UPT WAIT 



THIS ROUTINE CHECKS THE DISK DRIVE FOR 
A READY CONDITION. 



oc 

XIO 

SLA 

BSC 

SLA 

BSC 

DC 

MOX 



ENTRY POINT 

DSNR SENSE DISK SI,»TUS 

2 POSITION KEAuY BIT 

DRDY,- RETURN TO USER-READY 

1 POSITION 6 'SY BIT 
DROY+l.+Z BRANCH IF r-ljjY 
/3302 DISK NOT Kt»0Y 
DRDY+1 CHECK AGAIN 



THIS ROUTINE SEEKS THE 2310 TO ITS 

HOME POSITION. 

DC ENTRY PCINT 

LDX 3 4 SET RETRY INDEX 

XIO L DSNR SENSE/RESET STATUS 

STO SKST SAVE STATUS 

SLA 4 POSITION HOME BIT 

BSC I SKHM.+Z EXIT IF DISK HOME 

MDX 3 -« SKIP IF 3R0 TRY 

MCX SKHM2 GO ISSUE SEEK CMNO 

LD SKST RETRIEVE LAST DSW 

DC /3303 FAILED TO I NO HOME 

MDX SKHM+l TRY AGAIN 

XIO L HOME SEEK TO HOME 

XIO L DSN SENSE DISK STATUS 

SLA 1 POSITION OP CP BIT 

BSC L SKHM2+2,- BRANCH IF NOT OP CMP 

MDX SKHM1 GO CHECK HOME BIT 

DC DSW HOLO LOCATION 

THIS ROUTINE SEEKS THE DISK OUT TO THE 
DESIRED CYLINDER. 

DC ENTRY POINT 

LD I SKOT PICK UP SEEK COUNT 

STO L SEEK PLACE IN SfEK CMND 

XIO L SEEK ISSUE SEEK 

XIO L DSN SENSE OISK STATUS 

SLA 1 POSITION OP CMF BIT 

BSC L SKOTl,- BRANCH IF ».nT OP CMP 

XIO L DSNR SENSE/RESET OSW 

MOX L SKOT.l MODIFY RET'<RN 

BSC I SKOT RETURN TO USER 
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80206810 

80206820 

80206830 

80206840 

F0206850 

80206860 

80206870 

80206880 

80206890 

802C6900 

80206910 

60206920 

80206930 

80206940 

60^06950 

80206960 

80206970 

80206980 

80206990 

80207000 

80207010 

802C7020 

60207030 

60207040 

602C7050 

80207060 

80207070 

fco2070bO 

t02070?0 

8020710C 

80207110 

80207120 

80207130 

eO207140 

60207150 

80207160 

80207170 

80207180 

80207190 

80207200 

8020 7210 

60207220 

60207230 

60207240 

80207250 

80207260 

80207270 

80207260 

80207290 

80207300 

80207310 

80207320 

80207330 

80207340 

80207350 

80207360 

80207370 

60207380 

80207390 

80207400 

80207410 

80207420 

80207430 

80207440 

80207*50 

80207460 

80207470 

80207480 
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THIS ROU1INE READS THE DISK AND CHECKS 
R ID. 



ENTRY POINT 
SAVE INDEX REG 1 
SAVE INDEX REG 2 
SAVE INDEX REG 3 
SET RETRY INDEX 
SET XR = CALL ADDRS 
GET INPUT AREA 
SET IN READ COMMAND 
SET IN STORE INSTR 
PICKUP SCN CTL+WD CT 
SET IN INPUT TABLE 
PICKUP SECTOR ID 
SAVE SECTOR BITS 
PICKUP READ COMiUND 
REMOVE OLD SECTOR BT 
ADD Nfcfc SECTOR BITS 
UPDATE READ IOCC 
READ DISK 
SENSE DISK STATUS 
POSITION OP CMP BIT 
BRANCH IF NOT OP CMP 
SENSE/RESET STATUS 
CHECK FOR ERROR BITS 
BRANCH IF NO ERRORS 
SKIP IF 3RD READ 
TRY AGAIN 
PRINT READ ERROR 
MESSAGE ID 

SET XR = INPUT AREA 
PICKUP EXPECTED SID 
CHECK IF 

BRANCH IF PROPER SID 
SKIP IF 3RD TRY 
REREAD SECTOR 
PRINT WRONG SECTOR 
MESSAGE ID 
GO TO ERROR ROUTINE 
RESTORE XR 1 
RESTORE XR 2 
RESTORE XR 3 
MODIFY RETURN 
RETURN TO USER 



THIS ROUTINE WRITES THE DISK AND 
PERFORMS A MODULO 4 CHECK ON THE DATA. 



ENTRY POINT 
SAVE INDEX REG 2 
SAVE INOEX REG 3 
SET RETRY INUEX 
SET XR = ENTRY I CNT 
PICKUP OUTPUT AREA 
SET IN WRITE IOCC 
SET IN HOD 4 CK IOCC 
SET IN STORE INSTR 
PICK UP WORD COUNT 
SET IN OUTPUT TABLE 
PICKUP SECTOR ADDRES 
SAVE SECTOR BITS 
PICKUP WRITE COMMAND 
REMOVF OLD SECT HITS 
ADD NEW SECTUR BITS 
UPDATE WRITE COMMAND 



0393 


* FOR 
* 
0000 DRD DC 


rHE PROPFR S 



0394 


692E 


STX 


1 DRD3+1 


0395 


6A2F 


STX 


2 DRD3+3 


0396 


AH 30 


STX 


3 DRD3+5 


C397 


6303 


LDX 


3 3 


0396 00 


66600393 


LDX 


12 DRO 


039A 


C201 


LD 


2 1 


03911 


0076 


STO 


READ 


039C 


0002 


STO 


* + 2 


0390 


C200 


LD 


2 


039E 00 


04000000 


STO 


L 


03A0 


C202 


LD 


2 2 


03A1 


1HH3 


SRT 


3 


03A? 


C070 


LD 


READ+1 


03A3 


1803 


SRA 


3 


03A4 


1083 


SLT 


3 


03A5 


006D 


STO 


READ+1 


03A6 


086b DRD1 XIO 


READ 


03A7 


OK 6 2 


XIO 


DSN 


03A8 


1001 


SLA 


1 


03A9 00 


4C1003A7 


BSC 


L ORDl+li- 


03Ab 


0860 


XIO 


DSNR 


03AC 


:05F 


AND 


DSNR 


03AU 00 


iClh03bo 


RSC 


1. DR02.+- 


03AF 


73FF 


MDX 


3 -1 


03ho 


70F5 


MDX 


DRD1 


03B1 00 


4" 000 7B6 


BSI 


L LUG 


03bi u 


J9D4 


DC 


MSG2 


03B4 00 


4C000429 


BSC 


L ERR 


03Bf. 00 


:,5t>00412 DRD2 LDX 


11 READ 


03Brt 


C202 


LD 


2 2 


03B9 


-101 


FOR 


1 1 


03BA 00 


•4C1H03C? 


BSC 


L DRD3.+- 


038C 


73FF 


MOX 


3 -I 


03b0 


70EB 


MDX 


0RD1 


03BE 00 


•V40007BS 


BSI 


L LOG 


03C0 


09D0 


DC 


MSG3 


03C1 


7067 


MDX 


ERR 


03C2 00 


65000000 DRD3 LDX 


LI 


03C4 00 


66000000 


LDX 


L2 


03C6 00 


67000000 


LDX 


L3 


03C8 00 


74030393 


MDX 


1. DRD, 3 


03CA 00 


4C800393 


BSC 


I DRD 



03CC 





* 
0000 DWRT OC 







03C0 





SA35 


STX 


2 


DWRT3+1 


03CE 





6836 


STX 


3 


DWRT 3+ 3 


03CF 





6303 


LDX 


3 


3 


03D0 


00 


668003CC 


LDX 


12 


DWRT 


03D2 





C201 


LD 


2 


1 


3D3 





0040 


STO 




WRITE 


0304 





0041 


STO 




M0D4 


03D5 





0002 


STO 




»+2 


03D6 





C200 


LD 


2 





03D7 


00 


04000000 


STO 


I 





03D9 





C202 


LD 


2 


2 


03DA 





18B3 


SRT 




3 


030 b 





C039 


LD 




WRITE+1 


03 DC 





1803 


SRA 




3 


03DD 





1083 


SLT 




3 


030c 





0036 


STO 




WRITE+1 


DATE 




15MAY67 








EC NO. 


411731 
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80207490 

80207500 

80207510 

80207520 

80207530 

80207540 

80207550 

80207560 

80207570 

802075d0 

80207590 

80207600 

80207610 

80207620 

80207630 

80207640 

B0207650 

80207660 

80207670 

80207680 

80207690 

80207700 

8020""710 

80207720 

80207730 

80207740 

80207750 

80207760 

80207770 

80207780 

80207790 

80207800 

80207810 

80207820 

80207830 

80207840 

80207850 

80207860 

80207870 

80207880 

80207890 

80207900 

80207910 

80207920 

80207930 

80207940 

80207950 

80207960 

80207970 

80207980 

80207990 

80208000 

80208010 

80206020 

80208030 

80208040 

80208050 

80208060 

80208070 

80208080 

80208090 

80208100 

80208110 

80208120 

80208130 

80208140 

80208150 

80208160 
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PART NO. 22*2253 
PA6E 39A 



03DF 


1883 




SRT 




3 


SAVE SECTOR BITS 


80208170 




03EO 


C036 




LD 




M0D4+1 


PICKUP MODULO 4 CMND 


80208180 




03E1 


1803 




SRA 




3 


REMOVE OLD StCT BITS 


80206190 




03E2 


1083 




SLT 




3 


ADD NEW SECTLi* BITS 


802082 00 




03E3 


D033 




STO 




M0D4+1 


UPDATE MODULO 4 CMND 


80208210 




03E4 


082F 


DWRT1 


XIO 




WRITE 


ISSUE WRITE COMMAND 


8020622 




03E5 


0824 




XIO 




DSN 


SENSE DISK STATUS 


802082 30 




03E6 


1001 




SLA 




1 


POSITION OP CMP BIT 


8020S240 




03E7 00 


4C1003E5 




BSC 


L 


DWRT1+1,- 


BRANCH 1ILL bf- COMPL 


80203250 




03E9 


0822 




XIO 




DSNR 


RESET DSw 


802C8"60 




03EA 


E021 




AND 




DSNR 


CHECK FOR ERROR 


802082 70 




03EB 00 


4C1803F3 




BSC 


L 


DWRT2.+- 


BRANCH IF NO ERROR 


802082 80 




03ED 


73FF 




MDX 


3 


-1 


SKIP IF 3RD TRY 


80208290 




03EE 


70F5 




MDX 




DWRT1 


TRY AGAIN 


80208500 




03EF 00 


440007BB 




BSI 


L 


IOG 


PRINT WRITE tkROR 


80208310 




03F1 


09EB 




DC 




MSG4 


MESSAGE ID 


802:06320 




03F2 


7036 


* 


MDX 




ERR 


GO TO ERROR ROUTINE 


80208330 
80206340 








* 


PERFORM 


MODULO 4 READ CHECK 


80208350 








« 










802O83O0 




03F3 


0822 


DWRT2 


XIO 




M0D4 


ISSUE MOO 4 CHECK 


80208370 




03F4 


0815 




XIO 




DSN 


SENSE DISK STATUS 


80208 3S0 




03F5 


1001 




SLA 




1 


POSITION OP COMP BIT 


L0208390 




03F6 00 


4C1003F4 




BSC 


L 


DVRT2+1, - 


BRANCH TILL UP COMP 


80208400 




03F8 


0813 




XIO 




DSNR 


RESET DSW 


802OSA1O 




03F9 


E012 




AND 




DSNR 


CHECK FOR ERROR 


80208 420 




03FA 00 


4C180402 




BSC 


L 


DWRT3.+- 


BRANCH IF NO cRKOR 


80203430 




03FC 


73FF 




MDX 


3 


-1 


SKIP IF 3RD TRY 


80208440 




O^FD 


70E6 




MDX 




DWRT1 


TRY AGAIN 


60208450 




03FE 00 


440007BB 




BSI 


L 


LOG 


PRINT MODll.O . ERROR 


8020*460 




0400 


09F5 




OC 




MSG5 


MESSAGE ID 


80208470 




0401 


7027 




MDX 




ERR 


GO TO ERROR ROUTINE 


80208480 




0402 00 


66000000 


DWRT3 


LDX 


L2 





RESTORE XR 2 


80208490 




0404 00 


67000000 




LDX 


L3 





RESTORE XR 3 


80208500 




0406 00 


74030 , CC 




MDX 


L 


0WRT.3 


MODIFY FOR RETURN 


80208510 




0408 00 


4C8003CC 


* 


BSC 


I 


DWRT 


RETURN TO USlR 


80208520 
80206530 








* 


THE 


FOLLOWING WORDS ARF THE DISK 10CCS 


802O6540 








* 










80208550 




040A 


0000 


» 


BSS 


E 





ALIGN TO EVEN ADDRES 


8020*560 
80206570 




040A 


0000 


DSN 


DC 







DISK SENSE IOCC 


80208 580 




040B 


0700 




DC 




/0700 




80208590 




040C 


87C0 


DSNR 


DC 




/87C0 


DISK SNS/KESET IOCC 


60208600 




040D 


0701 




DC 




/0 701 




802O8610 




040 E 


OOCA 


,HOME 


DC 




202 


SEEK HOME IOCC 


8020*620 




040 F 


0404 




DC 




/0404 




80208630 




0410 


0000 


SEEK 


DC 







SEEK OUT IOCC 


80208640 




0411 


0400 




DC 




/0400 




80206650 




0412 


0000 


READ 


DC 







READ DISK IOCC 


SC208660 




0413 


0600 




DC 




/0600 




80206670 




0414 


0000 


WRITF 


Dv, 







WRITE DISK IOCC 


80208630 




0415 


0500 




DC 




/0500 




80208690 




0416 


0000 


H0D4 


DC 







MOD 4 CHECK IOCC 


802O87C0 




0417 


0680 


* 


DC 




/0680 




80206710 
8020*720 








* 


THIS 


ROUTINE SETS 


UP TO PRINT THE SEEK 


80206730 








* 


COUNT NEEDED BY THE BIT SWITCH ENTERED 


80208740 








* 


COLO START CALL. 




80208750 








« 










80208760 




0418 


0000 


LCSC 


DC 







ENTRY POINT 


802O6770 




0419 OC 


C4000148 




LD 


L 


CYT8L 


PICKUP HEADER CYL 


80208780 




041B 


1803 




SRA 




3 


POSITION SFEK COUNT 


8020*790 




041C OC 


D400C6AA 


4 


STO 


L 


HEXWD 


SET IN CONVERT RTN 


8020*800 
80208810 




041E OC 


44000888 




BSI 


L 


HEXCV 


CONVERT TO 1443 CODE 


80208820 




0420 OC 


C40008B1 




LD 


L 


HEXCD+1 


GET CONVERTEU WORD 


8020*330 




0422 OC 


D4000A92 




STO 


L 


MSG0F+17 


SET IN MESSAGE 


80208640 




DATE 
EC NO. 


15MAY67 
411731 
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0424 00 4400076B 
042b 0AB1 

0427 00 '.C800418 



0429 00 44000360 
042b 00 4400036t* 

0420 $304 

042E 00 C400059F 

0430 1803 
0-.il 1003 
043? 00 04000523 

0434 00 440004FD 



0436 
0438 
04 3A 
043o 
043C 
043fc 
04 3 F 
0440 
0442 



00 C4000524 
CO D400025B 
o308 
1010 
CO D700059A 
J3FF 
70FC 
CO D400029E 
00 4C0001F4 



0444 0000 



0445 
0446 
0447 
0448 
0449 
044A 
0446 
0440 
0446 
044F 
0451 
0452 
0453 
0454 
0456 
0457 
0456 
0459 
045A 
0456 
0451) 
045F 
0460 
046? 
0463 
0465 



<>A2D 

<>62E 

iOlO 

6.3FE 

1004 

DOCB 
00 C7000AFB 
4810 
7002 
00 74090416 
1002 
4828 
7004 
00 74010416 
1001 
70FA 
l.OBD 
7301 
70EF 
00 F4000258 
00 '.C20079D 
C <>2B0 
00 C6000AFB 
1808 
00 KPOOOAFC 
00 07000AAB 



BSI 
DC 



BSC 



LOG 
MSGOF 



LCSC 



GO PRINT MESSAGE 
MESSAGE ADDRESS 

RETURN TO USER 



DATE 
EC NO. 



15MAY67 
411731 



* 

* 
* 
* 
* 
* 
ERR 

» 
W3304 



THIS ROUTINE IS 
WRITE OR MODULO 



ENTERED ON « DISK READ, 
4 ERROR. IF TriE ERROR 
EXISTED FOR 3 CONSECUTIVE RETRIES. THE 
PROGRAM WHICH WAS LOADING AT THE TIME 
OF THE ERROR MUST BE RELOADED. 



ERR1 



* 

» 
CV8 

« 

* 



C8S01 



C8S02 



C8S03 



CV8* 



BSI L ORDY CHECK DISK READY 

BSI L SKHM RETURN ARM TO HOME 

DC /3304 DISK RD.WRT.M0D4 ERR 

LO L LOSC PICKUP STARTING CYL 

SRA 3 REMOVE SECTOR BITS 

SLA 3 RESTORE SECTOR ADDRS 

STO L LSTCY SET IN CHECK WORD 

BSI L CYCK CHECK NEXT CYLINDER 

LD L NXTCY PICKUP NEXT GOOD CYL 

STO L CYIND SET IN USE INDICATOR 

LDX 3 8 SET MOVE INDEX 

SLA 16 CLEAR ACC 

STO L3 LDNS-1 STORE IN D1R WORDS 

HDX 3 -1 SKIP WHEN DOmE 

MDX ERR1 CLEAR NEXT WORD 

STO L XFCT CLEAR CARD IMAGE COUNTER 

BSC L L04 RESTART LOAD OPS 

THIS ROUTINE CONVERTS 8-8 FORMAT CARDS 
TO CORF IMAGE AND THEN PERFORMS A CHECK 

SUM OF THE DATA READ. 



DC 



ENTRY POINT 



STX 

STX 

SLA 

LDX 

SLA 

STO 

LD 

BSC 

MDX 

MDX 

SLA 

BSC 

MDX 

MDX 

SLA 

MDX 

LD 

MDX 

MDX 

EOR 

BSC 

LDX 

LD 

SRA 

OR 

STO 



L3 



L 
L 

2 
L2 

L2 

L3 



CONVERT 8-8 

CV8C+1 SAVE XR 2 

CV8C+3 SAVE XR 3 

16 ZERO A REG 

-2 SET FETCH INDEX 

4 SHIFT LEFT 4 

M0D4 SAVE IN WORK LOC 

1N+80 FETCH SEQUENCE COLUMN 

SKIP IF ALPHA CHAR 

»+2 BYPASS INCREMENT 

M0D4.9 SET WORK LOC FOR ALPHA 

2 CLEAR 12-11 ZONES 

+Z SKIP IF DIGIT NOT FOUND 

C8S03 BRANCH ON DIGIT FOUND 

M0D4.1 1NCR DIGIT COUNTER 

1 POSITION NEXT DIGIT 

C8S02 BRANCH TO CK DIGIT 

M0D4 FETCH BIN EQU OF HOL CHAR 

1 SKIP IF COL 80 

C8S01 GO CONVERT COL 80 

CDCT CHECK FOR PROP SEQUENCE 

CKER.Z BRANCH IF WRONG CARD 

-80 SET COLUMN INDEX 

1N+80 GET LO-ORDER 1/2 WD 

8 POSITION 

IN+81 ADD HI-ORDER 1/2 WD 

IN STORE CONVERTED WRD 
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80208850 

80208860 

80208870 

80208860 

80206890 

80208900 

80206910 

80206920 

80208930 

80208940 

80208950 

80206960 

80206970 

80206960 

60208990 

60209000 

80209010 

80209020 

80209030 

802C9040 

80209050 

80209060 

80209070 

80209080 

80209090 

80209100 

60209110 

60209120 

60209130 

80209140 

80209150 

80209160 

80209170 

80209160 

80209190 

80209200 

802P9210 

80209220 

802092 30 

80209240 

802092 50 

80209260 

8020927C 

80209280 

80209290 

80209300 

80209310 

80209320 

80209330 

80209340 

80209350 

80209360 

80209 370 

80209380 

60209390 

80209400 

80209410 

80209420 

60209430 

80209440 

80209450 

80209460 

80209470 

80209480 

80209490 

80209500 

80209510 

80209520 
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0467 7301 

0468 7202 

0469 70F6 



04 6A 
046B 
046C 00 
046E 
•046F 
0470 00 
0472 00 
0474 00 
0476 00 



62D9 

1010 

B6000AD2 

7201 

70FC 

4C20079D 

66000000 

67000000 

4C 800444 



0478 0000 



0479 
04 7 A 
047B 
04 7C 
047D 
047E 
047F 00 

0481 

0482 00 

0484 

0485 00 
04P7 

0488 

0489 00 
0488 
048C 
04 8D 
048E 
048F 
0490 



6924 

6A25 

6B26 

61B8 

6300 

62FD 

C60004A8 

D006 

C5000AF4 

18D0 
C5000AF3 

1804 

1000 

07000AAB 

7301 

7101 

7201 

70FO 

7101 

70ED 



0491 
0492 
0494 
0496 
0497 
0498 
0499 
049A 
049B 
049D 
049F 
04A1 
04A3 



62CA 
00 C4000258 
00 66000AE1 
4802 

8 J 10 

7201 

70FA 

800D 
00 4C20079D 
00 65000000 
00 66000000 
00 67000000 
00 4C800478 



04A5 1084 

04A6 1088 

04A7 108C 

04A8 0001 



* 
* 



CV8B 



CV8C 



* 

CV12 

* 
* 



CV12A 
CV12B 



CV12C 



HDX 
MDX 

MDX 



LDX 
SLA 

A 

MDX 
MDX 
BSC 



3 i ADD 1 TO CONVERT XR 

2 2 INCREMENT COLUMN XR 

CV8A CONTINUE TIL DONE 

PERFORM CHECK-SUM 



2 -39 
16 
L2 IN+39 
2 1 

CV8B 
L CKER.Z 



LDX L2 
LDX L3 
BSC I CV8 



SET WORD INDEX 
CLEAR A REG 
ACC TOTAL ALL WORDS 
INCREMENT WORD INDEX 
CONTINUE TIL DONE 
BRANCH ON WRONG CKSM 
RESTORE XR 2 
RESTORE XR 3 
RcTIIRN TO USER 



THIS ROUTINE CONVERTS 12/4 FORMAT CARDS 
TO CORE IMAGE AND THEN PERFORMS A CHECK 
SUM ON THE DATA READ. 



DC 



ENTRY POINT 



CONVERT 12-4 



STX 
STX 

STX 

LDX 

LDX 

LDX 

LD 

S10 

LD 

RTE 

LD 

SRA 

SLA 

STO 

MDX 

MDX 

MDX 

MDX 

MDX 

MDX 



1 CV12F+1 

2 CV12E+3 

3 CV12E+5 

1 -7? 
3 

2 -3 

L2 SHIFT+3 

CV12C 
LI 1N+73 

16 
LI IN+72 

4 


L3 IN 

3 1 

1 1 

2 1 
CV12B 

1 1 

CV12A 



SAVE INDEX REG 1 
SAVE INDEX RfcG 2 
SAVE INDEX REG 3 
SET UP KURD 1N0EX 
SET UP STORE INDFX 
SET UP SHIFT INDEX 
PICKUP SHIFT INSTRN 
SET IN ROUTINE 
PICKUP 2ND HALF WORD 
SET IN REG 
PICKUP 1ST HALF WORD 
POSITION 
PACK A AND 
STORE CONVERTED WORD 
MODIFY STOKE INDEX 
MODIFY WORD INDEX 
MODIFY SHIFT INDFX 
GO CONVERT NXT WORD 
MODIFY FUR NXT GROUP 
GO CONVERT MXT GROUP 



CV12D 



PERFORM CHECKSUM 



CV12E 



LDX 

LD 

A 

BSC 

A 

MDX 

MDX 

A 

BSC 

LDX 

LDX 

LDX 

BSC 



2 

L 
L2 



L 

LI 
L2 
L3 

I 



-54 

CDCT 

IN+54 

C 

Kl 

1 

CV12D 

Kl 

CKER.Z 







CV12 



SHIFT SLT 4 

SLT 8 

SLT 12 

DC 1 



Kl 

* 



SET DATA INDEX 

GET CARD COUNT 

SUM DATA WORD 

SKIP ON CA*RY 

ADD 1 

SKIP WHEN CONE 

CONTINUE 

ADD 1 

BRANCH ON WRONG CKSM 

RESTORE INDEX REG 1 

RESTORE INDEX REG 2 

RESTORE INDFX REG 3 

RETURN TO l.SER 

SHIFT 4 CONSTANT 
SHIFT 8 CONSTANT 
SHIFT 12 CONSTANT 
CONSTANT 1 



THIS ROUTINE READS OFT OBJECT AND EDIT 
CARDS. 



DATE 
EC NO. 



15MAY67 
411731 
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80209530 

30209540 

80209550 

60209560 

80209570 

60209580 

80209590 

80209600 

80209610 

80209620 

80209630 

80209640 

80209650 

60209660 

80209670 

80209680 

60209690 

60209/00 

6C209710 

80209720 

60209730 

60209740 

60209750 

80209760 

80209770 

C0209780 

60209790 

60209800 

30209810 

80209820 

80209830 

80209840 

60209850 

60209660 

60209870 

60209860 

60209690 

E0209900 

80209910 

80209920 

60209930 

H0209940 

60209950 

60209960 

60209970 

30209980 

60209990 

60210000 

60210010 

80210020 

80210030 

80210040 

80210050 

60210060 

60210070 

80210080 

60210090 

60210100 

80210110 

80210120 

80210130 

80210140 

80210150 

60210160 

80210170 

80210180 

80210190 

80210200 
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* 










80210210 




04A9 





0000 


ROCO 


or. 




P 


ENTRY POINT 


80210220 




04AA 





0819 




XIO 




SN 


SENSE 1442 STATOS 


80210230 




04Ab 


00 


4C0404BB 




BSC 


L 


W3305.E 


BRANCH IF NOT READY 


80210240 




04A0 





OblA 




xin 




RO 


READ A CARD 


80210250 




04At 





3815 


RDC01 


XIO 




SN 


SENSE STATUS 


80210260 




04AF 





1801 




SRA 




1 


POSITION BUSY BIT 


80210270 




04 BO 


00 


4C0404AF 




BSC 


L 


RDCDliE 


SPIN WHILE BUSY 


8021028C 




04B2 





1H0B 




SRA 




11 


POSI T IUN LAST CD BIT 


80210290 




04B3 


00 


4C0404B0 




BSC 


L 


LST.E 


BRANCH IF LAST CARD 


802103C0 




04K5 





1801 


R0C02 


SRA 




1 


POSITIUN ERROR BIT 


80210310 




04B6 


(10 


4C0404BF 




RSC 


L 


RDFRtF 


BRANCH IF ERROR 


80210320 




0488 





0800 




XIO 




SNR 


SENSE/RESET STATUS 


80210330 




04 B 9 


00 


4CR004A9 


* 


BSC 


I 


ROCD 


RETURN TO USER 


80210340 
80210350 




04BB 





J305 


W3305 


DC 




/3305 


1442 NOT READY 


80210360 




04BC 





70ED 




MDX 




RDCD+1 


TRY AGAIN 


80210370 




04b!) 





*S804 


1ST 


STX 




LCD 


SET LAST CARD SWITCH 


80210380 




04bE 





70F6 




MIX 




RDCD2 


CONTINUE 


60210390 




0',BF 





0806 


RDER 


XIO 




SNR 


RESET STATUS 


80210400 




04C0 


c 


3306 


M3306 


DC 




/3306 


1442 ERROR 


60210410 




04C) 





70FR 


ft 


MDX 




RDCD+1 


REREAD CARD 


80210420 
80210430 




04C? 





0000 


LCD 


DC 







LAST CARD SWITCH 


80210440 




04C4 




0000 


* 


BSS 


E 





ALIGN TO EVEN ADDRS 


80210450 
80210460 




04C4 





0000 


SN 


DC 







SENSE 1442 IOCC 


80210470 




04C5 





1700 




DC 




/1700 




80210480 




04C6 





0000 


SNR 


DC 







RESET/SENSE IOCC 


80210490 




04C7 





1703 




DC 




/1703 




80210500 




04C8 





OAAB 


RO 


DC 




IN 


READ 1442 IOCC 


80210510 




04C9 





1600 


* 


DC 




/1600 




80210520 
80210530 










* 


THIS 


ROUTINE CONVERTS 1 HEXIDECIMAL 


80210540 










* 


CARD 


TO 


BINARY. 




80210550 










* 










80210560 




04CA 





0000 


HBCV 


DC 







ENTRY POINT 


80210570 




04C.B 





6909 




STX 


1 


HBCV5+1 


SAVE XR 1 


80210580 




04CC 





6A0A 




STX 


2 


HBCV5+3 


SAVE XR 2 


80210590 




04CH 





c.BOB 




STX 


3 


HBCV5+5 


SAVE XR 3 


80210600 




04Cfc 





61AF 




LOX 


1 


-81 


SET COLUMN INDEX 


80210610 




04CF 





j.010 




SLA 




16 


CLEAR CONVERTED WORD 


80210620 




0400 





00^9 




STO 




LUC 


*STORE POINTER 


80210630 




0401 





6204 


HBCV1 


LDX 


2 


4 


SET WORD XR 


80210640 




0402 





7101 




MDX 


1 


1 


SKIP WHEN DONE 


80210650 




0403 





7008 




MOX 




HBCV6 


BRANCH TO START CONV 


80210660 




0404 


00 


65000000 


HBCV5 


LDX 


LI 





RESTORE XR 1 


80210670 




04D6 


00 


(.6000000 




LDX 


L2 





RESTORE XR 2 


802106B0 




04|iB 


oo 


67000000 




LDX 


L3 





RESTORE XR 3 


80210690 




040A 


00 


'•C8004CA 




BSC 


I 


HBCV 


RETURN TO USER 


80210700 




04DC 





1010 


HBCV6 


SLA 




16 


CLEAR CONVERSION 


80210710 




0401) 





C'GIO 




STO 




SAVE 


*WORK LOCATIONS 


80210720 




04DE 





1004 


HBCV2 


SLA 




4 


POSITION FOR NXT CHR 


80210730 




04DF 





OOIC 




STO 




SAVE1 


SAVE CONVERTEO CHARS 


80210740 




04E0 





6300 




LDX 


3 





SET CHARACTER XR 


80210750 




04E1 


00 


C5000AFC 




LD 


LI 


IN+81 


PICKUP HEX COLUMN 


80210760 




04E3 





'828 




BSC 




+ Z 


SKIP IF NOT ALPHA 


80210770 




04F4 





T309 




MDX 


3 


9 


ADD 9 FOR ALPHA CHAR 


80210780 




04E5 





1003 




SLA 




3 


REMOVE 20NE BITS 


80210790 




04E6 


00 


4C1804ED 




BSC 


L 


HBCV4.+- 


XFER IF CHAR ». 


80210600 




04E8 





7 301 


HBCV3 


MDX 


3 


1 


ADO 1 TO CHAR XR 


80210810 




04E9 


00 


4C2804E0 




BSC 


L 


HBCV4.+Z 


XFER IF DIGIT FOUND 


80210820 




04EB 





1001 




SLA 




1 


POSITION FOR NXT BIT 


80210830 




04EC 





"iOFB 




MDX 




HBCV3 


CHECK NEXT BIT 


80210640 




O4E0 





(BOO 


HBC"-t 


STX 


3 


SAVE 


STORE BIN CHARACTER 


80210850 




04EE 





COOC 




LO 




SAVE 


FETCH BIN CHARACTER 


80210660 




04EF 





E80C 




OR 




SAVE1 


ADD TO PREVIOUS CHRS 


80210870 




04F0 





7101 




KDX 


1 


1 


ADD 1 TO HEX WORD XR 


8021088C 




DATE 




15MAY67 












PROG ID 


0802-1 


EC NO. 


411731 
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1 


D 
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1 
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3 
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1 
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S 


3 


5 


1 


3 


3 


3 




3 




3 


* 
• 


!) 


2 


D 




3 




3 




t 




I 




t 



<<<<<(<<<<<<<<(<<( 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



OIMAL LOADER/ORGANIZOR SECTION (CARD) 



MDX 2 -1 SUB 1 FROM COLUMN XR 

MDX HBCV2 GO FOR NEXT COLUMN 

LOX 13 LOC PICKUP STORE POINTER 

STO L3 OUT SET CONV WO IN OA 

MOX L LOCI ADD 1 TO POINTER 

MDX HBCV1 GO FOR NEXT WORD 

DC STORAGE POINTER 

DC CONVERSION WORK 

DC *LOCATIONS 



04F1 





72FF 


04F2 





70EB 


04F3 


00 


67B004FA 


04F5 


00 


D7000004 


04F7 


00 


740104FA 


04F9 





70D7 



04FA 0000 
04FB 0000 
04FC 0000 



04FD 
04FE 
04FF 
0500 
0501 
0502 
0504 
0505 
0506 
0507 
0508 
0509 
050A 
050C 
050E 
050F 

0511 
0512 
0514 
0516 
0516 
0519 
0516 
051D 
051E 
051F 
0520 
0521 

0523 
0524 
0525 
0526 
0527 
0528 



0000 

C024 

8027 

D023 

F023 
00 4C200508 
COIF 

8022 

D01D 

7009 

C01B 

F01C 
00 4C200511 
00 440007BB 
09CA 
00 4C000336 

C012 
00 F400014E 
00 4C180510 
00 66800F8A 

COOB 

00 F6000F8A 

00 4C20051F 

C006 

70E0 

72FF 

70 F 7 



* 

LOC 
SAVE 
SAVE1 

* 



ft 
ft 
CYCK 



THIS ROUTINE DETERMINES IF THE CYLINDER 
TO BE USED IS ENTERED IN THE CYLINDER 
ERROR TABLE. IF A CYLINDER IS BAD, THE 
NEXT SEQUENTIAL CYLINDER IS TESTED. THE 
ROUTINE WILL ALSU t-AKE ALLOWANCt FOR 
CE CYLINDERS 90 THRU 110 AND 197 THRU 
202. 







00 4C8004FD 



0000 
0000 
02D0 
0628 
0008 
00A8 



0529 0000 
052A 00 67600568 
052C 409D 
052D 00 C4000004 



CYCK1 



CYCK2 

CYCK5 

CYCK4 
CYCK3 



LSTCY 
NXTCY 

CY90 
CY197 
K8 
KA8 

ft 
* 
* 
* 
* 
* 
* 
ft 
* 
EDIT 



DC 

LD 

A 

STO 

EOR 

BSC 

LD 

A 

STO 

MDX 

LD 

EOR 

BSC 

BSI 

DC 

BSC 

LD 

EOR 

BSC 

LDX 

LD 

EOR 

BSC 

LD 

MDX 

MDX 

MDX 

BSC 

DC 
DC 
DC 
DC 
DC 
DC 





LSTCY 

K8 

NXTCY 

CY90 

CYCK1.Z 

NXTCY 

KAb 

NXTCY 

CYCK2 

NXTCY 

CY197 

CYCK2,Z 

LOG 

MSG1 

L036 



NXTCY 
L CYTBL+6 
L CYCK4.+- 
12 HiST+3 

NXTCY 
L2 HISi+3 
L CYCK3.Z 

NXTCY 

CYCK+2 
2 -1 

CYCK5 
I CYCK 





/02D0 

/0628 

6 

/A8 



ENTRY POINT 
PICKUP LAST USEO CYL 
ADO 1 TO CYL NUMBER 
SET AS NEXT USEO CYL 
CHECK IF CYLINDER 90 
BRANCH IF NOT CYL 90 
PICKUP NEXT USED CYL 
ADJ 10 SKIP C 90-110 
SET AS NEXT USED CYL 
GO CHECK CYL STATUS 
PICKUP NEXT USEO CYL 
CHECK IF CYLIOR 197 
BRNCH IF NOT CYL 197 
GO LOG NO AVAIL CYLS 
MESSAGE ID 
GO TERMINATE LOAD OP 

PICKUP NEXT CYI.INOER 
CHECK IF HISTORY CYL 
BRANCH IF HIST CYL 
SET XR = ERR TBL WC 
PICKUP CYLINiiEP. 
CHECK IF BAD 
BRANCH IF OK 
PICKUP CYLINDER 
CYL BAD SET FOR NXT 
SKIP IF CYL CK COMPL 
LOOK AT NEXT ENTRY 
RETURN TO UStk 

LAST CYLINDER USEO 
NEXT CYLINDER TO USE 
CYLINDER 90 ACDRESS 
CYLINOER 197 ADDRESS 
CYLINDER INCR CONST 
CYLINDER INCR CONST 



THIS SECTION HANDLES THE EDIT CARDS. THE 
PID IS CHECKED AGAINTS THE PID OF THE 
LAST PROGRAM LOADED. IF THE PIO IS 
CORRECT, THEN THE CARD IS CHC-CKED FOR 
CORRECT SEQUENCE. IF THE CARD IS CK.iTS 
BINARY EOUIVALENT IS PLACED IN THE EDIT 
TABLE 



DC 

LDX 13 TBCT 

BSI HBCV 

LD L OUT 



ENTRY POINT 
SET XR = TABLE CNTR 
CONVERT HEX TO BINARY 
PICKUP PID 



DATE 
EC NO. 



15MAY67 
411731 



PART NO. 
PAGE 



60210890 
80210900 
80210910 
80210920 
80210930 
60210940 
80210950 
80210960 
80210970 
80210' 80 
80210990 
80211000 
80211010 
80211020 
80211030 
80211040 
80211050 
80211060 
80211070 
60211080 
80211090 
80.11100 
80211110 
80211120 
80211130 
80211140 
80211150 
80211160 
60211170 
80211180 
60211190 
80211200 
80211210 
80211220 
80211230 
80211240 
80211250 
80211260 
80211270 
80211280 
80211290 
60211300 
80211310 
80211320 
80211330 
80211340 
80211350 
80211360 
80211370 
80211380 
80211390 
80211400 
80211410 
80211420 
80211430 
80211440 
80211450 
80211460 
80211470 
80211480 
60211490 
80211500 
80211510 
80211520 
60211530 
80211540 
80211550 
80211560 



PROG 10 
PAGE 



2242253 
41* 



0802-1 
41A 



i 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DIMAL LdADER/ORGANIZOR SECTION (CAROI 



G52F D039 

0530 F03B 

0531 00 4C20055B 

0533 7301 

0534 00 C4000005 

0536 F034 

0537 00 4C20G53D 



0539 
053A 
053B 
053C 

C530 
C53F 
0540 
0541 
054 3 
05*5 
0547 
0548 
0549 
054b 
0:>4U 
C54C- 
054F 
0551 
0552 



1C10 

do?f 

6202 
700iJ 



00 C4000005 
F02A 

FG2C 
00 4C20055B 
00 7401056A 
00 66800006 
C 7203 

6100 

00 C5000004 

00 O7000C3C 

7101 

7 301 

74010569 

72FF 

70F6 






oo 






0553 00 6630056R 
C555 C CC13 
0556 00 D6000C3C 

0558 6BCF 

0559 00 4C600529 



055rf 
C55C 
0550 
055E 
C55F 00 
056» 00 
0563 00 

0565 

0566 

0567 



0568 

0569 
056A 
C56B 
056C 
056D C 



1010 

0000 

COOE 

U08 

J400079B 

44000760 

440OO7BD 

JA11 

3307 

70FJ 



00C1 
5000 
0000 
; FFF 

3000 

eDoo 



056E 0000 
C56F 00 67600599 
C029 
1003 



0571 

0572 

0573 



i:828 



0574 00 l:C00025F 
0576 0023 



0577 
0578 



C025 
1001 



STO 
EOR 
BSC 

* 

MDX 

ID 

EOR 

BSC 

SLA 

STO 

LDX 

MUX 

* 

ED1T1 LD 
EOR 
EOP 
BSC 
KDX 
LDX 
KDX 

F0IT2 LOr 
LD 
STO 
MDX 
MOX 
MOX 
MDX 
KDX 

LDX 

LD 

STO 

STX 

BSC 



CNTID 
PCK 
L EDIT3tZ 

3 1 
L OUT+1 

TERM 
I E0IT1.Z 
16 
SEQ 
2 2 
EDIT2 



L OUT+1 
SEO 
KEOOO 
L ED1T3.Z 
L SEO.l 
12 OUT+2 

2 3 
1 

LI CUT 
L3 EOTBL 

1 1 

3 1 

L ENTID, 1 

2 -1 

' EDIT2+1 



EDIT3 



W3307 



* 

* 

TBCT 

ENTID 

SEO 

TERM 

PCK 

KEDOO 

* 

* 

» 

* 

# 

D1RC 



SLA 

STO 

LD 

SRA 

STO 

BSI 

BSI 

DC 

DC 

MDX 



DC 

DC 
DC 
DC 
DC 
DC 



12 TBCT 

ENTID 
L2 EOTBL 

3 TBCT 
I EDIT 



16 

SEO 

PCK 

8 

EOPD 

DLED 

LOG 

MSG7 

/3307 

EOIT3-2 



SAVE FOR ENTkV INOCR 
CK P10 ■ LAST PROGRM 
BRANCH ON WRONG PID 

INCR TABLE COUNTER 

PICKUP SEOUENCE NN8R 

CHECK IF TERM CARD 

BRANCH IF NOT TERM 

CLEAR A REG 

STORE C IN SEO IND 

SET MOVE XR «2 

GO HOVE DATA TO TBL 

PICKUP SEOUENCE NMBR 
CHECK FOR COKRECT NO 
CHECK FOR ED BITS 
BRANCH ON WRONG SEO 
INCR SEOUENCE NUMBER 
SET XR = CARD SNT NO 
INCLUDE ID, SEO NO,WC 
SET XR 

PICKUP EDIT WORD 
SET IN EDIT TABLE 
INCREMENT MOVE INDEX 
INCREMENT MOVE INDEX 
COUNT NUMBER OF MOVE 
SKIP WHEN ALL WD MVD 
GO MOVE NEXT WORD 

PICKUP 0R1G :M XR 
PICKUP PID + MOVE CT 
STORE IN EDIT TABLE 
SAVE NEW ENTRY COUNT 
EXIT ROUTINE 

CLEAR A REG 

STORE IN SEO 

GET PROGRAM PID 

POSITION 

SET IN DELETE EDIT RTN 

GO OELETE ERROR EOIT 

GO PRINT EDIT CO ERR 

MESSAGE 10 

EDIT CARD ERROR 

EXIT 



CONSTANTS 

1 EDIT TBL ENTRY COUNT 

INDICATOR LOC COUNT 

EXPECTED CARD SEO NO 

/FFFF CONSTANT HEX FFFF 

LAST PROGRAM PID 

/EDOO SEO NUMBER CONSTANT 



ROUTINE DIRC IS USED TO UPDATE THE 
LOCATION DIRECTORY TO INCLUDE THE 
PROGRAM JUST LQADED. 

DC ENTRY POINT 

LDX 13 DRCT SET XR TC NXT POSITN 

LD LDNS PICKUP SECTOR COUNT 

SLA 3 POSITION 

OR LDP OR IN PROGRAM PID 

OR L IMG OK IN IMAGE 1NDICATR 

STO DIRW SAVE ACCUM 

LD LDNC PICKUP CYL1N0ER CNT 

SLA 1 POSITION 



DATE 
EC NO. 



15MAY67 
411731 



PART NO. 
PAGE 



80211570 

80211580 

80211590 

80211600 

80211610 

80211620 

80211630 

80211640 

80211650 

80211660 

60211670 

80211660 

80211690 

80211700 

80211710 

80211720 

80211730 

80211740 

80211750 

80211760 

80211770 

80211780 

80211790 

80211800 

80211810 

60211820 

80211830 

80211840 

80211850 

80211660 

80211670 

80211680 

80211690 

80211900 

80211910 

60211920 

80211930 

80211940 

80211950 

80211960 

80211970 

80211980 

80211990 

80212000 

80212010 

80212020 

60212030 

80212040 

80212050 

80212060 

80212070 

80212080 

80212090 

60212100 

80212110 

60212120 

80212130 

80212140 

80212150 

80212160 

80212170 

80212180 

80212190 

80212200 

80212210 

80212220 

80212230 

80212240 



2242253 
42 



PROG ID 
PAGE 



0802-1 
42 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DIMAL LOADER/ORGANIZOR SECTION (CARD) 



PART NO. 2242253 
PAGE 42A 



0579 E820 




OR 




DIRW 


OR IN PREV DATA 


80212250 




057A 00 D7000AFB 




STO 


L3 


DRTBL 


SET IN LOC DIRECTORY 


80212260 




057C 7301 




MOX 


3 


1 


INCR POSITION XR 


80212270 




0570 C C020 




LO 




LOO 


PICKUP PROG ORG ADkS 


80212260 




057E 00 D7000AFB 




STO 


L3 


ORTBL 


SET IN LOCATION DIR 


80212290 




0560 7301 




MOX 


3 


1 


INCR POSITION XR 


80212 300 




0581 00 6680059D 




LDX 


12 


LDNC 


SET XR * CYL COUNT 


60212310 




0583 00 6500059F 




LDX 


LI 


LDSC 


SET XR « CYL STORAGE 


80212 320 




0565 C100 


DIRC1 


LD 


1 





PICKUP CYLINDER ADRS 


60212330 




0586 00 D7000AFB 




STO 


L3 


ORTBL 


SET IN LOC DIRECTORY 


80212340 




0586 7301 




MDX 


3 


1 


INCREMENT rQSITN XR 


80212350 




0589 7101 




MDX 


1 


1 


INCR CYLII/JER LOC 


80212360 




056A 72FF 




MDX 


? 


-1 


i.KIP WHEN ALL CYL CK 


60212370 




05SB 70F9 


* 


MOX 




C1RC1 


GO CHECK .'.EXT ENTRY 


80212360 
80212390 




058C C015 


DIRC2 


LD 




LDXA 


PICKUP TRANSFER ADRS 


80212400 




058D 00 D7000AFB 




STO 


L3 


DRTBL 


SET IN LOC DIRECTORY 


60212410 




058F 7301 




MDX 


3 


1 


INCREMENT POS XR 


60212420 




0590 6808 




STX 


3 


DRCT 


SAVE POSITlOf. XR 


60212430 




0591 6308 




LDX 


3 


8 


SfcT XR 3 « 8 


80212440 




0592 1010 




SLA 




16 


CLEAR A REG 


80212450 




0593 00 D700059A 


DIRC3 


STO 


L3 


LDNS-1 


CLEAR PROGRAM WORDS 


80212460 




0595 73FF 




MDX 


3 


-1 


SKIP WHEN DONE 


60212470 




0596 70FC 




MOX 




0IRC3 


CONTINUE 


80212480 




0597 00 4C80056E 


• 


BSC 


I 


D1P.C 


EXIT ROUTINE 


80212490 
80212 500 




0599 0000 


ORCT 


DC 







TABLE POSITION CTR 


80212510 




059A 0000 


DIRW 

* 


DC 







SAVE LOCATION 


80212520 
80212530 






* 


LOCATION DIRECTORY CONSTANTS. THESE 


80212 540 






* 


WORDS ARE FILLED 


IN AS EACH PROGRAM 


80212550 






* 


IS WRITTEN ON DISK. 


80212560 






* 










80212570 




059B 0000 


LDNS 


DC 







NUMBER OF SECTORS 


80212580 




059C 0000 


LOP 


DC 







PROGRAM ID 


80212590 




059D 0000 


LDNC 


DC 







NUMBER Or- CYLINDERS 


80212600 




059E 0000 


LDO 


DC 







PROGRAM ORG ADDRESS 


80212610 




059F 0000 


LDSC 


DC 







STARTING CYL ADDRESS 


8021262P 




05A0 0000 




DC 







NEXT CYL ADDRESS 


80212630 




05A1 0000 




DC 







NEXT CYL ACCRESS 


80212640 




05A2 OOCO 


LDXA 

» 


DC 







PROG XFER ADDRESS 


80212650 
60212660 






« 


THIS 


ROUTINE WILL 


WRITE ON DISK, EITHER 


80212670 






* 


THE 


LOCATION DIRECTORY OR ThE EDIT TBL 


60212680 






* 


ACCORDING TO THE 


CALLING SEOUENCE 


80212690 






* 










80212700 




05A3 0000 


TB0U1 


DC 







ENTRY POINT 


80212710 




05A4 00 44000360 




BSI 


L 


DRDY 


CHECK DISK READY 


80212720 




05A6 00 4400036B 




BSI 


L 


SKIIM 


INSURE DISK HOME 


80212730 




05A8 00 C8005A3 




LD 


I 


TB0U7 


PICKUP SECTOR ADDRS 


80212740 




05AA 0011 




STO 




TB02+4 


SET IN READ CALL 


80212750 




05A6 0015 




STO 




T 803+4 


SET IN WRITE CALL 


80212760 




05AC 1603 




SRA 




3 


REMOVE SECTOR BITS 


80212770 




05AD D002 


* 


STO 




TB01+2 


SET IN SEEn CALl 


80212780 
80212790 




05AE 00 44000381 


TB01 


BSI 


L 


SKOT 


SEEK TO PkCFcR CYL 


80212800 




05B0 0000 


* 


DC 







SEEK COUNT 


80212810 
80212820 




05B1 00 740105A3 




MDX 


L 


TBOUT.l 


MODIFY INPUT 


80212830 




0533 00 C48005A3 




LD 


I 


TBUUT 


PICKUP OUTPUT AREA 


80212640 




0565 0005 




STO 




TB02+3 


SET IN REAL CALL 


60212650 




0566 0009 




STO 




TB03+3 


SET IN WRITE CALL 


80212860 




0567 6303 




LDX 


3 3 


XR - NMBK EDIT SECTORS 


60212870 






* 










80212880 




0568 00 44000393 


TB02 


BSI 


L 


DRD 


GO READ SID 


802 12890 




056 A 0001 




DC 




1 


UORD COUNT 


60212900 




05B6 0000 




DC 







OUTPUT AREA 


80212910 




05BC 0000 




DC 







SECTOR ADDRESS 


80212920 




DATE 15MAY67 












PROG 10 


0802-1 


EC NO. 411731 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
D1MAL L0/.0ER/ORGAN1ZOR SECTION (CARD) 



0560 00 440003CC 
05BF ( 141 
05C0 0000 
05C1 COOO 



05C2 
05C3 
05C4 
05C6 
05C7 
05CB 
05C9 
05CA 
05CC. 
05CD 
05CF 
05D0 
0502 
05U3 
050b 



C0F8 
f 016 

00 'C1805D6 

7SFF 

"<U01 

VOOD 

C0F1 

00 14000310 

I'OEE 

00 V40105BC 

COFO 

00 (4000310 

['060 

00 7401 05C1 

T0fc2 



05D6 00 740105A3 
0508 00 4C8005A3 

05DA C'AF9 



05Dt. COOO 

05i>C Oj '4000360 

ObDE 00 *-400036h 

ObtO 00 C400014D 

CSk? L014 

05(:3 1S03 

OdL-4 L'002 

05f5 00 ',4000381 
OsE7 COOO 

05E6 00 C400031D 
05EA COOE 
05EB C030 
05fcC (008 

05ED £103 

05EE £930 

05tF 61FC 

05F0 00 C500061C 

05F2 C003 

05F3 00 44000393 

05F5 0141 

05F6 COOO 

05F7 0000 



05F8 


00 


(6000000 


05FA 


00 


<78005F6 


05FC 





C302 


05FD 





C300 


05FE 





Y301 


05FF 





72FF 


0600 





7 OF 8 


0601 


00 


740105F7 


0603 





7101 


0604 





700B 


0605 


00 


C4000AFB 


DATE 




15MAY67 


EC NO. 


411731 



TB03 



TB04 



TBCK 



BSI 
DC 
DC 
DC 

LD 

EOR 

B5C 

MUX 

MDX 

MDX 

LD 

A 

STO 

MDX 

LD 

A 

STO 

MDX 

KDX 

MDX 
BSC 

DC 



L OHRT 
321 




TB02+3 

TBCK 
L TB04.+- 
3 -1 

* + l 

TB04 

TB02+3 
L K320 

TB02+3 
L TB02+4.1 

TB03+3 
L K320 

TB03+3 
I. TB03+4.1 

TB02 

L TBOUT.l 
I TBOUT 

DRTBL-2 



TBL1N 



THIS ROUTINE WILL 
LOCATION DlkfcCTf^Y 



TBLI1 



DC 

BSI 

BSI 

LD 

STO 

SRA 

STP 

BSI 
DC 

LD 
STO 
LD 
STO 





DRDY 

SKHM 

CYTBL + 'i 

TBL13+4 

3 

TBLI1+2 

SKOT 


K320 
TBLI3+6 
K321 
TBL13+2 



* 
TBLI2 



TBLI3 



TBL14 



LDX 1 3 

STX 1 TBISW 

LDX 1 -4 

LD LI T8LCN+4 

STO TBLI3+3 

BSI L DRO 
DC 321 
DC 
DC 



LDX 
LDX 

LD 

STO 

MDX 

MDX 

MDX 

MOX 

MDX 

MDX 

LD 



12 

13 TBL13+3 
3 2 

3 
3 1 
2 -1 
TBLI4 
L TBLI3+4,1 
1 1 

TBLI5 
L DRTBL 



GO WRITE DISK 
WORD COONT 
OUTPOT AREA 
SECTOR ADDRESS 

PICKUP OUTPUT AREA 

CHECK IF DIRECT TBL 

BRANCH IF DIR TBL 

SKIP WHEN 3 SECTORS READ 

CONTINUE 

EXIT 

PICKUP I/O AREA 

ADD 320 

STORE IN CALL 

UPDATE SECTOR BITS 

PICKUP I/O AREA 

ADD 320 

STORE IN CALL 

UPDATE SECTOR BITS 

GO WRITE 2ND SECTOR 

MODIFY FOR RETURN 
RETURN TO USER 

TABLE CHECK CONSTANT 

INPUT FROM OlbK.THt 
AND EDIT TABLE. 

ENTRY POINT 
CHECK DISK READY 
INSURE DISK HUME 
PICKUP TBL CYLINDER 
SET IN READ CALL 
POSITION SEEK COUNT 
SET IN SEEK CALL 

GO SEEK TO TBL CYL 
SEEK COUNT 

GET MOVE WORD COUNT 

SET IN LOAD INDEX INSTR 

GET READ WORD COUNT 

SET IN READ CALL 

SET INDEX TO 3 

SET TABLE IN SW TO 3 

SET PASS INDEX 

GET 10 AREA ADDRESS 

SET IN READ CALL 

GO READ DISK 
WORD COUNT 
1/0 AREA 
SECTOR ID 

SET MOVE XR 
SET 1/0 AREA XR 
PICKUP WORD 
REPOSITION 
INCREMENT I/O AREA 
SKIP WhEN ALL WDS MV 
MOVE NEXT WORD 
MODIFY SECTOR ID 
SKIP IF LAST READ 
CHECK FOR LAST SECT 
PICKUP ENTRY COUNT 
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80212930 

80212940 

80212950 

80212960 

80212970 

60212980 

80212990 

80213000 

80213010 

60213020 

80213030 

80213040 

80213050 

80213060 

80213070 

80213080 

80213090 

80213100 

80213110 

80213120 

60213130 

80213140 

8021? 150 

80213160 

80213170 

80213180 

80213190 

80213200 

80213210 

80213220 

602132 30 

80213240 

80213250 

80213260 

802132 70 

80213280 

30213290 

80213300 

60213310 

80213320 

80213330 

80213340 

80213350 

80213360 

80213370 

80213380 

80213390 

80213400 

80213410 

80213420 

60213430 

80213440 

80213450 

80213460 

80213470 

80213480 

80213490 

80213500 

60213510 

80213520 

60213530 

80213540 

80213550 

80213560 

80213570 

80213580 

80213590 

60213600 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM iiOR THE 160'. SYSTEM 
OIMAL LOADER/GRGANIZOR SECTION (CARul 



0607 D091 

0608 00 C4C0JC3C 
060A 00 D4GC0566 
060C 00 4400036B 
060E 00 4C6J05DB 

0610 00 74FF061F 
0612 70CiO 



0613 





CO09 


C614 





00E4 


0615 





COOS 


0616 





OODE 


0617 





7C06 


0618 





OAFo 


0619 





0C3C 


061A 





0D7C 


061B 





OEBC 



061C 0141 

061D o ooce 

061E 00C9 

061F 0000 



0620 0000 

0621 00 440007BB 

0623 0A43 

0624 00 4400076b 
0626 0A50 



0627 





630D 


0628 


00 


6F000004 


062A 





1010 


062B 


00 


D70CG004 


0620 





73FF 


062E 





70FC 


062F 


00 


65600599 


0631 





71FF 


0632 





7 001 


0633 





7045 


0634 


00 


66C00AFC 


0636 





10*0 


0637 





C200 


0638 





leee 


0639 


00 


U4(001Ai 


063B 


00 


4400C888 


063D 


00 


C40C03B1 


063F 


00 


D4000008 


0641 





1010 


0642 





1065 


0643 


00 


D40008F6 


0645 


00 


44000SC4 


0647 


00 


C4C&C3F9 


0649 


00 


D40C0011 


064B 





1010 


064C 





1062 


064D 





0001 


064E 


00 


67OC0O00 


0650 





7202 


0651 





71FE 


0652 





C200 


DATE 




15KAY67 


EC NO. 


411731 



STO 

LD 

STO 

BSI 

BSC 

TBLI5 MDX 
MDX 
LD 
STC1 
LD 
STO 
MDX 

* 

T6LCN DC 
DC 
DC 
DC 

* 

DC 
DC 
DC 



ORtT * STOf.E IN Ii.JICATUk' 

ED13L PICKUP LNiTKY CGUNV 

T6CT STORE IH- INDICATOR* 

SOiil RETURN MSK TO HOE 

TSLiN E" !T kf TINE 

■f(e 

T31SW.-1 SKIP IF 3 SECTORS READ 

T6L12 + 3 G,. Rt AD NEXT SECTiiR 

>;20C G-F-T f''-V" WORD COU' T 

TBL13+6 itT IN i.OAD IND6X "INSTR 

K201 :■ ,ET I-lAj WORD COUIST 

T6LJ 3+2 :ET IN ,<EAD CALL ' 

TBL 12+3 »0 READ LAST SECTOR 

D r .TBL LCC DIRECTORY ADDRS 

EDTBL EDIT TABLE ADDRS 

E0TBL+32O 2N0 EDIT TABLE ADDRS 

EDTBL+640 3RD £01 T TABLE ADDRESS 



K321 
K200 
K201 
T3ISW OC 



321 
200 
201 




CONSTANT 321 
CONSTANT 200 
CONSTANT 201 
TABLE IN SWITCH 



ORLST 

« 



DRLS1 



DRLS2 



0RLS3 



TH1 
AND 
DIR 

OC 

BSI 

DC 

BSI 
DC 

LDX 
STX 

SLA 
STO 
MDX 
MDX 

LDX 

MDX 

MDX 

MDX 

LDX 

SLT 

LD 

SRT 

STO 

BSI 

LD 

STO 

SLA 

SLT 

STO 

BSI 

LD 

STO 

SLA 

SLT 

STO 

LDX 

MOX 

MDX 

LD 



S ROUTINE BUILDS THfc OUTPUT MESSAGE 

PRINTS THE CONTENTS OF THE LOCATION 
ECTORY 

ENTRY POINT 

L LOG GO PRINT HEADING 

MSGOA MESSAGE ADDRESS 

L LOG GO PRINT 2ND HEADING 

MSGOB MESSAGE ADDRESS 

3 13 SET OUTPU T MESSAGE 

L3 OUT *KORD COUNT TO 13 

16 CLEAR ACC 

L3 OUT CLEAR OUTPUT AREA 

3 -I SKIP WHEN DONE 

DRLS1 CLEAR NEXT LOCATION 

II DRCT SET XR = TBL ENT NO 

1 -1 ADJ COUNT, SKIP IF NO ENTRY 
*+l CONTINUE WITH ROUTINE 
D~<LS6 EXIT NO ENTk ES 

L2 DRTBL+1 SET XR = TBL ADDRESS 

32 CLEAR A AND (. 

2 PICKUP PID ENTRY 
8 SAVE RH WORD 

L HEXWD SET IN CONVERSION RT 

L HEXCV CONVERT PID TO 43 CD 

L hEXCD+1 PICKUP CONVERTED WRD 

L OUT+4 STORE IN MESSAGE 

16 CLEAR ACC 

3 PICKUP StCTOR COONT 

L WORD SET IN DEC CONV RTN 

L HEDEC CONVERT HEX TO DEC 

L COOE+1 PICKUP CONV SECT CNT 

L OUT+13 SET IN MESSAGE 

16 CLEAR ACC 

2 BRING IN CYL COUNT 

*+l SET IN LDX INSTRUCTN 

SET XR 3 = CYL COUNT 

2 ADO 2 TO SEARCH XR 

-2 MODIFY ENTRY XR 

PICKUP SECTOR ADORES 



L3 
2 

1 
2 
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80213610 

80213620 

80213630 

80213640 

80213650 

80213660 

60213670 

80213660 

80213690 

SOi^^DO 

60213710 

60213720 

60213730 

80213740 

80213750 

80213760 

80213770 

80213780 

80213790 

80213800 

80213810 

80213520 

60213830 

80213840 

80213850 

60213860 

60213870 

80213b60 

80213890 

80213900 

60213910 

80213920 

80213930 

80213940 

80213950 

60<!l3960 

80213970 

80213960 

60213990 

80214000 

80214010 

80214020 

80214030 

80214040 

80214U50 

60214060 

80214070 

80214080 

80214090 

80214100 

60214110 

80214120 

80214130 

e0214140 

80214150 

60214160 

80214170 

80214180 

80214190 

60214200 

80214210 

80214220 

80214230 

80214240 

80214250 

80214260 

80214270 

60214280 



PROG 10 
PAGE 



i 



0802-1 
43A 



f 



N 
E 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
OIMAL .OAOER/ORGANIZOR SECTION (CARDI 



0653 
0654 
0656 
0658 
0659 
065A 
065C 
065 1 
0660 
0662 
0664 

0656 
0668 
0669 
066A 
066B 
066C 
066E 
066F 
0670 
0672 
0673 
0674 
0675 
0676 
0677 
067B 
06 79 



1883 
00 D40008F6 
00 44U00P.C4 
1010 
1083 
00 D4000HAA 
00 CC0008FR 
00 DCOOOOOA 
00 44000H68 
00 C400i>8B) 
00 0400000b 

00 440007BB 
0004 
6B07 
i, 630D 
1010 
00 07000004 
73FF 
70FC 
00 67000000 
7201 

71FF 

73FF 

70DC 

7201 

71FF 

70bD 









00 4C600620 



067B 0000 
067C 00 440007bb 
067b 0A5E 



067F 


00 


65800568 


0681 





71FF 


0682 





7001 


0683 





702F 


0684 


00 


66000C3D 


0686 


00 


67000140 


0688 





1010 


0689 


00 


07000003 


068B 





73F-F 


068C 





70FC 


0681) 





6303 


068E 


00 


6F000004 


0690 


00 


67000035 


0692 


00 


6F000007 


0694 


00 


67000008 


0696 





C200 


0697 





1008 


0698 





1808 


0699 





D01B 


069A 





7iFF 


069B 





7201 


069C 





C200 


0690 


00 


D40003AA 


069F 


00 


44000388 


06A1 


00 


CC0005B0 


06A3 





D300 


06A4 





7301 


06A5 





1090 


DATE 




15MAY67 


EC NO. 


411731 



DRLS4 
DRLS5 



DRLS6 



SRT 

STO 

BS1 

SLA 

SIT 

STO 

LDD 

STD 

BSI 

ID 

STO 

BSI 

DC 

STX 

LDX 

SLA 

S10 

MDX 

MDX 

LOX 

MDX 

MDX 

MDX 

MDX 

MDX 

MDX 

MDX 

BSC 



3 SAVE SECTOR BITS 

WORD SET IN DEC CONV RTN 

HEDEC CONVERT CVL TO DEC 

16 CLEAR ACC 

3 PICKUP SECTOR BITS 

HEXWD SET IN 43 CODE CONV 

CODE PICKUP CONVERTED CVL 

OUT+6 SET IN MESSAGE 

HEXCV CONVERT TO 43 CODE 

HEXCD+1 PICKUP CONVERTED WRD 

OUT+10 SET IN MESSAGE 

L LOG GO PRINT TBL ENTRY 

OUT MESSAGE ADDRESS 

3 DRLS5+1 SAVE XR 3 

3 13 SET XR FOR CLEAR OP 

16 CLEAR ACC 

L3 HUT CLEAR MESSAGE AREA 

3-1 SKIP WHEN DONE 

DRLS4 CLEAR NEXT LOCATION 

L3 RESTORE XR 3 

2 1 SEARCH XR ♦ 1 
1 -1 ENTRY XR - 1 

3 -1 SKIP IF CYL COUNT 
DRLS3 GO LIST NXT CYL ENT 

? 1 SEARCH XR + 1 

1 -1 SKIP IF TABLE LISTED 

DRLS2 GO LIST NXT 01R ENT 

1 DRLST RETURN TO USER 



THIS ROUTINE BUILDS THE OUTPUT MESSAGE 
AND PRINTS THE CONTENTS OF THE EDIT 
TABLE. 



EDLST 



EDLS1 



EDLS2 



DC 

BSI 

DC 

LDX 

MDX 

MDX 

MDX 

LDX 

LDX 

SLA 

STO 

MDX 

MDX 

LDX 

STX 

LOX 

STX 

LDX 

LD 

SLA 

SRA 

STO 

MDX 

MDX 

LD 

STO 

BSI 

LDD 
STO 
MDX 
SLT 



II 
1 





LOG 

MSGOC 

TBCT 

-1 

» + l 

EDLS3 
L2 EDTBL+1 
L3 320 

16 
L3 OUT-1 
3 -1 

*-4 

3 3 
L3 OUT 
L3 /0035 
L3 OUT+3 
L3 OUT+4 
2 
8 
8 
CTLSH 

1 -1 

2 1 
2 

L HEXWD 



L HEXCV 

L HEXCD 
3 
3 1 
16 



ENTRY POINT 

GO PRINT HEADING 

MESSAGE ADDRESS 

SET XR « TBL ENT NO 

AD J COUNT, SKIP IF NO ENTRY 

CONTINUE WITH ROUTINE 

EXIT NO ENTRIES 

SET SRCH XR TO START 

SET XR TO CLR OUT AR 

CLEAR ACC 

CLEAR OUTPUT A^EA 

SKIP WHEN DONE 

CLEAR NEXT LOCATION 

SET XR ■ TO WORO CT 

SET WO CT IN MESSAGE 

SET XR « TO 43 CD E 

SET E IN MESSAGE 

SET OUTPUT XR * 4 

PICKUP CARD fcNT CT 

REMOVE PID 

REPOSITION COUNT 

SAVE COUNT IN SWITCH 

XR 1 -1 

SEARCH INDEX +1 

PICKUP EDIT WORD 

SET WD IN CONV RTN. 

CONVERT WD TU 43 CD 

PICKUP CONVERTED WD 
SET LH IN MESSAGE 
ADJUST OUTPUT INDEX 
POSITION RH WORO 
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80214290 

80214300 

80214310 

80214320 

80214330 

80214340 

80214350 

80214360 

80214370 

80214380 

80214390 

80214400 

60214410 

80214420 

80214430 

80214440 

80214450 

80214460 

80214470 

80214480 

80214490 

80214500 

80214510 

80214520 

80214530 

80214540 

80214550 

80214560 

80214570 

80214580 

80214590 

80214600 

80214610 

80214620 

80214630 

80214640 

80214650 

80214660 

80214670 

80214680 

80214690 

80214700 

80214710 

80214720 

80214730 

80214740 

80214750 

80214760 

80214770 

80214780 

80214790 

80214800 

80214810 

80214820 

80214830 

80214840 

80214850 

60214860 

80214870 

80214880 

80214890 

80214900 

80214910 

80214920 

80214930 

80214940 

80214950 

80214960 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DIMAL LOADER/ORGAN I ZOR SECTION ICARD) 



06A6 





D300 


06A7 





7302 


06A8 


00 


74030004 


06AA 


00 


74FF06B5 



06AC 70ED 

06AD 00 440007BB 
06AF 0004 

06B0 7201 
06B1 71fF 
06B2 70D3 

06B3 00 4C80067B 

06B5 0000 



0686 COCO 
06B7 00 C4C00599 
06B9 00 D4000AFB 
068B 00 C400014D 
068D 0002 

06BE 00 440005A3 
06C0 OOuO 
06C1 G 0AF9 

06C2 00 4CB006B6 



06C4 0000 
06C5 00 C4GG0568 
06C7 00 D4000C3C 
06C9 00 C400014D 



06CB 
06CC 




00 



D004 

74C106D0 



06CE 00 440005A3 
06DO 0000 
06D1 0C3A 

06D2 00 4C&U06C4 



06D4 0000 

06D5 00 44C007BB 
06D7 0A67 

0608 3308 
06D9 00 74C106EC 
06DB 00 C4C00148 
06DD 1005 
06DE D0C4 
06DF 00 74C106E3 

06E1 00 44C0090F 
06E3 0000 

06E4 C007 
06E5 00 4C1806EA 



DATE 
EC NO. 



15MAV67 
411731 



« 
EDLS3 

CTLSW 

* 
* 

WRTLD 



» 
WRTL1 



STO 
MDX 
MOX 
MDX 
MDX 

BSI 
DC 

MDX 
MDX 

MDX 

BSC 

DC 



3 
3 2 

L OUT, 3 
L CTLSW, -1 
E0LS2 

I. LOG 
OUT 

2 1 
1 -1 
EDLS1 

I EDLST 





SET RH IN MESSAGE 
ADJUST OUTPUT INDEX 
ADJUST MSG KURD CNT 
SKIP IF MESSAGE CMPL 
CONT MSG MAKtUP 

GO PRINT EDIT CARD 
MESSAGE ADDRESS 

AOJUST SEARCH INDEX 
SKIP IF TABLE PRINTD 
GO PRINT NEXT CARD 

RETURN TO USER 

CONTROL SWITCH 



THIS 
LOCAT 

DC 

LD 

STO 

LD 

STO 

BSI 

DC 
DC 



ROUTINE SETS UP TO WRITE THE 
ION DIRECTORY ON THE DISK. 




L DRCT 
L (WTBL 
L CYTSL+5 

■RTL1+2 

L 160UT 

DkTBL-2 



BSC I WRTLD 



ENTRY POINT 
PICKUP T6L ENT COUNT 
SET AS ToL WORD 1 
PICKUP TA5LE CYLNDER 
SET IN CALL 

GO WRITE DIRECTORY 
SECTDR ADOkESS 
DIRECTORY ADDRESS 

EXIT ROUTINE 



* 
* 
WRTED 



WRTE1 



* 
* 
* 
« 
PCSC 



* 
W3308 



PCSC1 



PCSC2 



THIS 
EDIT 

DC 

LD 

STO 

LD 

STO 

MDX 

BSI 
DC 

DC 

BSC 

THIS 
STAR 

DC 

BSI 
DC 

DC 

MDX 

LD 

SLA 

STO 

MDX 

BSI 
DC 

LD 
BSC 



ROUTINE SETS UP TO WRITE THE 
TAcLE ON THE DISK 




L TBCT 
L EDTBL 
L CYTBL+5 

WRTE1+2 



ENTRY POINT 
PICKUP TBL ENT COUNT 
SET AS TfiL WURD 1 
PICKUP TABLE CYLNDER 
SET IN CALL 



L WRTEl+2,1 SET FOK SECTOR 1 

L T30UT GO WRITE EOIT TABLE 

SECTOR ADDRESS 

EOTBL-2 EDIT TABLE ADDRESS 

I WRTED EXIT ROUTINE 

ROUTINE SETS UP TO PUNCH THE COLD 
CARDS. 

ENTRY POINT 

L LOG COMND TO READY 1442 

MSGOD MESSAGE ADDRESS 

/3308 ROY 1442 WITH BLANKS 

L PCSW.l SET CONTROL SWITCH 

L CYTBL PICKUP LOADER CYL 

5 POSITION SEEK COUNT 

PCSC2+2 SET IN CALL 

L PCSC2+2.1 SET R-H OF CALL 

L PCOUT GO PUNCH CALLS 

SEEK COUNT + INDICTR 

PCSW PICKUP CONTROL SW1TC 

L PCSC3.+- BRANCH IF 
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80214970 

60214980 

80214990 

60215000 

80215010 

80215020 

80215030 

80215040 

80215050 

80215060 

80215070 

80215080 

80215090 

60215100 

80215110 

80215120 

80215130 

80215140 

80215150 

80215160 

80215170 

80215180 

80215190 

60215200 

60215210 

80215220 

80215230 

60215240 

60215250 

60215260 

80215270 

80215260 

80215290 

80215300 

80215310 

80215320 

60215330 

80215340 

60215350 

80215360 

60215370 

60215360 

00215390 

80215400 

80215410 

80215420 

80215430 

80215440 

80215450 

80215460 

802154/0 

80215460 

80215490 

80215500 

80215510 

80215520 

80215530 

80215540 

80215550 

80215560 

80215570 

802155B0 

80215590 

80215600 

80215610 

80215620 

60215630 

80215640 
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06E7 


1010 


06E8 


D003 


06E9 


70F5 



06EA 00 4C8006D4 



06EC 0000 



0(>E0 0000 
06EE 00 4'.0007B3 
06F0 0A1B 



06F1 3309 



SLA '.6 
STO PCSW 
MDX PCSC1 

PCSC3 BSC 1 PCSC 



PCSW DC 



CLEAR ACC 

STORE IN CTRL SW 
SET TO PUNCH NXT SET 
EXIT ROUTINE 

PASS CONTROL SWITCH 



4 

DLPGM 



W3309 
* 



THIS ROUTINE IS USED TO DELETE THE 
PROGRAM SPECIFIED IN THE DATA ENTRY 
SWITCHES. 



06F2 00 
06F4 
06F5 



0C0OO260 

1008 

IfaOS 



06Fb 00 4C1B06EE 
06F8 00 D400079B 



06FA 
06FI-, 
06FC 

06F0 00 
06FF 

0700 

0701 

0702 

0703 

0704 OC 

0706 

0707 

0708 

0709 OC 
070B 
070C 00 
070E 
070F 

0710 00 
0712 00 



D033 
6101 
6201 

C5000AFB 

1603 

lfcOt- 

0003 

DOOA 

7/03 

76000000 

1010 

lO&rt 

FQ25 

4C180719 

7103 

7500GOGO 

6A20 

COIF 

F4G00599 

4C2006FD 



0714 404B 

0715 40A0 

0716 40AD 

0717 00 4C8006ED 



DLPO 



DLP1 



DLP2 



DLP3 



DLP4 



DC 

BSI 

DC 

nc 

XIO 
SLA 
SRA 
BSC 
STO 
STO 
LDX 
LOX 

LD 

RTE 

SRA 

STO 

STO 

11 DX 

MUX 

SLA 

SLT 

EOR 

BSC 

KDX 

PDX 

STX 

LD 

EOR 

BSC 




L LOG 
MSG8 

/3309 



DESW 

8 

8 

DLPGM+lH 

EDPD 

LDPD 

1 1 

2 1 



LI 



DRTBL 

19 

14 

DLP2+1 

DLP3+1 

3 



16 

11 

LDPD 

DLP5.+- 

3 



LDCT 

LDCT 

DRCT 

DLP1.Z 



BSI DLED 

BSI WRTLD 

BSI WRTED 

BSC I DLPGM 



0719 





6A15 


* 
DLP5 


STX 


2 


LDCT 


071A 





C014 




LD 




LDCT 


071B 


00 


F4000599 




EOR 


L 


DRCT 


0710 


00 


4C200727 




BSC 


L 


DLP6.Z 


071F 


00 


C4000599 




LD 


L 


DRCT 


0721 





90EB 




S 




DLP3+1 


0722 


00 


D4000599 




STO 


L 


DRCT 


0724 


00 


74FD0599 




MDX 


L 


DRCT, -3 


0726 





70D4 


^ 


HDX 




DLPO 


0727 


00 


COOOAFB 


DLP6 


LD 


L2 


DRTBL 


0729 


00 


D5000AFB 




STO 


LI 


DRTBL 


072B 





7201 




MDX 


2 


1 


072C 





7101 




MDX 


1 


1 


072D 





70EB 


$ 


MDX 




DLP5 


072E 





0000 


LDPD 


DC 







072F 





0000 


LDCT 

» 


DC 







DATE 




15HAY67 










EC NO. 


411731 











ENTRY POINT 
PRINT ENTER. PID 
MESSAGE ADDRESS 

ENTER PID TO DELETE 

SENSE DATA ENTRY SWS 
REMOVE ANY H-0 BITS 
REPOSITION PID 
BRANCH IF PID 
SAVE PID FOR DLT EOT 
SAVE PID FOR DLT PGM 
INITIALIZE XR 1 
INITIALIZE XR 2 

PICKUP DIRECTRY ENTY 
SAVE PID 

POSITION CYLINDER CT 
SET CYL CT IN MDX 
SET CYL CT IN MDX 
ADJUST XR 2 TO LOOK 
*AT NXT DIRECTRY ETY 
CLEAR ACC 
BRING PID INTO ACC 
CK IF PID TO DELETE 
BRANCH IF PROPER PID 
ADJUST XR 1 TO LOOK 
*AT NXT DIRECTRY ETY 
SET XR 2 IN WRK LOG 
PICKUP XR 2 SETTING 
CK IF SEARCH COMPLET 
BRANCH IF NOT DONE 

GO DELETE EDIT 
KRT LOC D1RCT ON DISK 
WRT EDIT T8L ON DISK 
EXIT ROUTINE 

SET XR2 IN WORK LOC 
PICKUP XR 2 SETTING 
CHECK IF DELETE COMP 
BRANCH IF NOT COMP 
PICKUP DIR ENTRY CT 
ADJUST COUNT FOR 
*DELETED PROGRAM 
*ENTRY 
INSURE PID DELETED 

PICKUP TBL ENTRY 

STORE IN VACATED LOC 

ADJUST XR 2 

ADJUST XR 1 

GO CHECK IF DONE 

PID TO DELETE 
WORK LOCATION 



( ( 

t 
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80215650 

80215660 

80215670 

80215680 

80215690 

80215700 

80215710 

80215720 

80215730 

80215740 

80215750 

80215760 

80215770 

80215780 

80215790 

80215800 

80215810 

80215820 

80215830 

80215840 

60215850 

80215860 

80215870 

80215880 

80215890 

80215900 

60215910 

80215920 

80215930 

60215940 

80215950 

00215960 

80215970 

60215980 

60215990 

80216000 

60216010 

80216020 

S0216030 

80216040 

80216050 

80216060 

80216070 

80216080 

80216090 

80216100 

80216110 

80216120 

80216130 

80216140 

80216150 

80216160 

80216170 

80216160 

80216190 

80216200 

80216210 

80216220 

802162 30 

80216240 

60216250 

80216260 

802162 70 

60216280 

80216290 

80216300 

80216310 

80216320 
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1 
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It 
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1 

1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
D1MAL LOADER. 1RGANIZ0R SECTION (CARD) 



0730 

0731 00 
0733 
0734 
0735 
0736 

•0737 

0739 00 
073B 00 
073D 00 
073F 

0740 00 







00 



0000 

44000783 

0A31 

330A 

10A0 

D064 

C40004C2 

4C200756 

440004A9 

C4000AAB 

F01F 

4C1 80746 



0742 4078 

0743 0A77 

0744 330B 

0745 70F1 



0746 


00 


440004CA 


0746 


00 


C4000004 


074A 


00 


D400056C 


074C 





1808 


0740 





B04D 


074E 





7004 


07<.F 





7003 


0750 


00 


44000529 


0752 





70E4 


0753 





D047 


0754 





400B 


0755 





70FA 



0756 1010 

0757 00 D40004C2 
0759 00 4400067B 
075i! 00 440006C4 
075D 00 4C800730 

075F 8100 





00 





076r 

0761 
0763 
0764 00 

0766 

0767 

0768 00 
076A 
076B 
076C 00 
076E 
076F 

0770 

0771 

0772 00 
0774 00 

0776 

0777 



DATE 
EC NO. 



0000 

C4000C3C 

1801 

4C980760 

6100 

6200 

C5000C3D 

18C8 

F02F 

4C180781 

1010 

1088 

D002 

D003 

75000000 

76000000 

7101 

7201 



15MAY67 
411731 



» 

» 
CHGED 



h330A 



CHGO 



THIS ROUTINE IS 
CONTENTS OF THE 



USED 
EDIT 



TO CHANGE 
TABLE. 



THE 



W330B 



CHG1 



CHG2 



CHG3 



CHG4 



K81 

* 

* 

* 

OLEO 



DC 

BSI 

DC 

DC 

SLT 

STO 

LD 

BSC 

BSI 

LD 

EOR 

BSC 

BSI 

DC 
DC 
MDX 

BSI 

LD 

STO 

SRA 

CMP 

MDX 

MDX 

BSI 

MDX 

STO 
BSI 
MDX 

SLA 
STO 

BSI 
BSI 
BSC 

DC 





LOG 

MSG9 

/330A 

32 

EDPD 

LCD 

CHG4.Z 

RDCO 

IN 

K^l 

CHG1,+- 

LOG 

MSGOE 
/330B 
CHGO 

HBCV 

CUT 

PCK 

8 

EDPD 

CHG3 

CHG3 

EDIT 

CHGO 

EDPD 
OLEO 
CHG2 

16 

LCO 

EDLST 

WRTCD 

CHGED 

/8100 



ENTRY POINT 
PRINT READY 42 EDIT 
MESSAGE ADDRESS 
RDY 42 WITH EOIT CA 
CLEAR ACC 

CLEAR PID INDICATOR 
PICKUP LAST CARD SW 
BR«NCH IF ON 
GO READ A CARD 
PICKUP 1ST CARD WORD 
CHECK IF EDI f CARD 
BRANCH IF EDIT CARD 

PRINT NOT EDIT CARD 
MESSAGE ADDRESS 
NOT EDIT CARD 
TRY AGAIN 

CONVERT CARD TO BIN 

PICKUP PID 

SAVE FOR DElETE RTN 

POSITION 

CK IF SAME AS LAST 

NEW PID 

NEW PID 

SAME PID 

CONTINUE 



DS 



UPDATE TBL 



SAVE NEW PID 

DELETE OLD TBL ENTRY 

GO UPDATE TABLE 

CLEAR ACC 

CLEAR LAST CARD SW 
LIST EDIT TAbLE 
WRITE EDIT ON DISK 
EXIT ROUTINE 

EDIT CARD CK CONSTNT 



THIS ROUTINE IS USED TO DELETE EDIT 
TABLE CONTENTS. THE EDIT TO BE DELETED 
IS DETERMINED BY THE PID ENTERED IN THE 
DATA ENTRY SWITCHES ON A DELETE PROGRAM 
OPTION, OR BY THE PID IN THE EDIT CARD 
ON A CHANGE EDIT OPTION. 

DC ENTRY POINT 

LD L EDTBL GET TBL ENTRY COUNT 

SRA 1 REMOVE BIT 15 

BSC I DLEO.+- EXIT IF NO ENTPIES 

LDX 1 INITIALIZE XK 1 

LDX 2 INITIALIZE XR 2 

5LED1 LD LI EOTBL+l PICKUP INDICATOR WORD 

RTE 8 POSITION PID 

EOR EOPD CK IF PID TO DELETE 

BSC L 0LED3.+- BRANCH IF PROPER PID 

SLA 16 CLEAR OUT PID 

SLT 8 RETRIEVE CARD ENT CT 

STO DLED2+1 SET IN MODIFY XK INS 

STO DLED2+3 SET IN MODIFY XR INS 

DLED2 MDX LI INCREMENT XR 1 AND 

MDX L2 *XR 2 BY CARD ENT CT 

MDX 1 1 ADJUST XR 1 

MOX 2 1 ADJUST XR 2 



PART NO. 
PACE 



80216330 

80216340 

80216350 

80216360 

80216370 

80216380 

80216390 

80216400 

80216410 

60216420 

80216430 

60216440 

60216450 

60216460 

80216470 

80216480 

80216490 

60216500 

80216510 

80216520 

80216530 

80216540 

80216550 

80216560 

802165/0 

80216560 

80216590 

60216600 

80216610 

80216620 

60216630 

60216640 

80216650 

80216660 

80216670 

80216680 

80216690 

80216700 

80216710 

80216720 

80216730 

8C216740 

80216750 

80216760 

80216770 

80216780 

80216790 

60216800 

80216fal0 

80216820 

80216830 

80216840 

80216850 

80216860 

80216870 

8021o880 

80216890 

80216900 

80216910 

80216920 

B0216930 

80216940 

80216950 

80216960 

80216970 

80216980 

60216990 

80217000 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
D1MAL LOADER/ORGANIZOR SECTION (CARD) 



0778 

0779 
07 7A 



00 



6A23 
C022 
840004A8 



077C 00 F4000568 
077E 00 4C980760 
0780 70E7 



0781 





1010 


0762 





1088 


0783 





0001 


0784 


00 


76000000 


0786 





6A15 


0787 





C014 


0788 


00 


F4000568 



078A 00 4C200794 

078C 00 C4000568 
078fc 90F6 
078F 00 04000568 
0791 00 74FF0568 
0793 7002 



0794 7201 

0795 00 C6000C30 
0797 00 D5000C30 
0799 7101 
079A 70EB 

0/98 ODOO 
079C 0000 



0790 4010 
079fc 0A9D 
079F 330C 
07A0 00 OCOCOICO 
07A2 1007 
07A3 00 4C100201 



07A5 00 C400059F 
07A7 00 4C1807B9 
07A9 00 04000258 
07AB 00 E40001C2 
07A0 00 D4000524 



DLE03 



0LE04 



STX 

LO 

A 

EOR 

BSC 

MOX 

SLA 
SLT 
STO 

MOX 

STX 

LO 

EOR 

BSC 

LO 

S 

STO 

MDX 

MOX 



L2 
2 



CTCK 

CTCK 

Kl 

TBCT 

DLED.+- 

DLE01 

16 

8 

DLED4+1 



CTCK 

CTCK 

TBCT 

DLED5.Z 



0LE05 



* 

EOPO 

CTCK 

* 

* 

* 

* 
« 

* 

* 

* 
* 
» 

* 
* 
* 
* 
* 
* 
* 
CKER 

W330C 



* 
RST 



MDX 

ID 

STO 

MOX 

MDX 

DC 

or 



L TBCT 

0LED4+1 
L TBCT 
L TBCT.-1 

DLED+6 



2 1 

L2 EDT3L+1 
LI EDTBL+1 
1 1 

0Lfc04+2 






SET XR 2 IN WORK LOCATION 

GET CONTENTS OF XR2 

ADO 1 

CHECK IF END OF TABLE 

EXIT IF END OF TABLE 

CONTINUE CHECK 

REMOVE PID 
RETRIEVE CARD ENT CT 
SET IN MOOIFY XR INS 
MODIFY XR 2 BY CD CT 
SET XR 2 IN WORK LOC 
PICKUP XR 2 SETTING 
CHECK IF ALL LOC CKD 
BRANCH IF NOT DONE 

PICKUP TABLE COUNT 
SUB CARD ENTRY COUNT 
UPDATE TABLE COUNT 
ADJ COUNT FOR CTL WO 
CK IF ALL PID ENTRIES 



INCREMENT XR 2 
OVERLAY DELETED ENTRY 
*WITH REMAIN OF TABLE 
INCREMENT XR 1 
CONTINUE 

P1D ENTRY TO DELETE 
WORK LOCATION 



THIS SUBROUTINE IS ENTERED WHEN A CHECK 
SUM ERROR IS DETECTED DURING CARD IMAGE 
TO BINARY CONVERSION. ONE OF TWO CORREC- 
TIVE PROCEDURES MAY BE FOLLOWED. 

1. THE CARD WHICH CAUSED THE CHECKSUM 
ERROR SHOULD BE CHECKED FOR ERRONEOUS 
PUNCHES AND AN OUT OF SEQUENCE CONDITION. 
IF THE CARO APPEARS TO BE OK, IT MAY 

BE REENTERED PRECEEOING THE REMAINOER 
OF THE PROGRAM OECK. 

2. IF THE CHECKSUM ERROR REOCCURS USING 
PROCEDURE 1, OR IF THE CARD CAUS'NG 
THE CHECKSUM IS FOUiV,D TO BE BAL AND 
NOT EASILY CORRECTABLE, THE PROGRAM 
BEING LOADED MAY BE DELETED BY RE- 
MOVING THE REMAINDER OF THE PROGRAM OECK, 
FROM THE 1442 HOPPER, MAKING THE 1442 
READY WITH THE NEXT PROGRAM TO BE 
LOADED, SETTING SENSE/PROGRAM SWITCH 

7 AND PRESSING THE START BUTTON.. 

BSI LOG GO PRINT CKSOM ERROR 

DC HSGU MESSAGE ADDRESS 

DC /330C CHECKSUM ERROR 

XIO L SNSH READ SNS/PGM SWITCHES 

SLA 7 POSITION BIT 7 

BSC L L010,- BRANCH IF NOT ON 

BYPASS PRESENT PROGRAM LOAD. 

LD L LDSC PICKUP CYL AOORESS 

BSC L CKEXT.+- BRANCH IF ZERO 

STO L CY1N0 SAVE TO USE 

AND L KFFF8 REMOVE SECTOR BITS 

STO L NXTCY SET IN CYLINDER INO 
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80217010 

80217020 

80217030 

80217040 

80217050 

80217060 

80217070 

80217080 

80217090 

80217100 

80217110 

80217120 

80217130 

80217140 

80217150 

80217160 

80217170 

60217180 

80217190 

80217200 

80217210 

80217220 

802172 30 

80217240 

802172 50 

80217260 

80217270 

80217280 

8021729C 

80217300 

80217310 

80217320 

80217330 

80217340 

80217350 

80217360 

80217370 

80217380 

80217390 

80217400 

80217410 

80217420 

8P217430 

80217440 

80217450 

80217460 

80217470 

80217480 

80217490 

80217500 

80217510 

80217520 

80217530 

80217540 

80217550 

80217560 

80217570 

80217580 

80217590 

80217600 

80217610 

60217620 

80217630 

80217640 

80217650 

80217660 

80217670 

80217680 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM* 
OIMAL LOADER/ORGAN I ZOR SECTION (CAROI 



07AF 00 4400036B 



07B1 6308 
07B2 1010 
07B3 00 0700059A 
07B5 73FF 
07B6 70FC 
07B7 00 04C0029F 
07B9 00 4C0001F4 



BSI L SKHH SEEK OISK'TO :.OME 
CLEAR LOC DIRECTORY CONSTAN.S. 



LDX 3 8 
SLA 16 

CKER1 STO L3 LDNS-1 

MDX 3 -1 
MDX CKER1 

STO L XFCT 

CKEXT BsC L L04 



SET CLEAV INDEX 

CLEAR ACC " 

ZERO DIRECTORY CONST 

SKIP WHEN DONE 

CLEAR NEXT LOCATION 

CLEAR CARD IMAGE COUNTER 

GO IfcPUT NEXT PROGRAM 



* LOG ROUTINE * 

SE 

SAVE IX 3 

SAVE INDEX 2 

PICKUP OUTPUT OEV IN 

BRANCH IF TYPEWRITER 

GET MESSAGE ADDRESS 
SET IN IOCC 

CHECK PRINTER READY 
BRANCH IF NOT REAOY 

BRANCH IF BUSY 
REAOY ANO NOT BUSY 

1443 NOT REAOY 
CHECK AGAIN 

1*43 BUSY 
CHECK AGAIN 

OUTPUT MESSAGE 

CHECK FOR OP COMPLT 



RESET OSW 

PRINTING COMPLETE 

RESTORE IX 3 
RESTORE INOEX 2 
BUMP RETURN 

RETURN TO USER SX 



07SB 


0000 


LOG 

* 
L0G01 


DC 







07BC 
07BD 
07BE 00 
07C0 00 


6B1A 
6A1B 

C400014F 
4C1807DE 


STX 
STX 

LD 
BSC 


3 

2 
L 

L 


L0G06+1 
L0G06+3 
CVTBL+7 
TWRTR, +- 


07C2 00 
07C4 


C48007BB 
0053 


* 
L0G02 

* 
W330D 

* 
W330E 

* 
LOGOS 

* 

* 
* 
* 
L0G06 

4i 


LD 
STO 


I 


LOG 
PRWRT 


07C5 
07C6 CO 
07C8 
07C9 CO 
07CB 


084E 

4C0407CC 

1801 

4C0407CE 

7004 


XIO 
BSC 
SRA 
BSC 
MOX 


L 
L 


PRSNS 
W330D.E 
1 

W330E,E 
LOGO 5 


07CC 
07CD 


3300 
70F7 


DC 
MDX 




/3300 
LOG02 


07CE C 
07CF 


330E 
70F5 


DC 
MDX 




/330E 
L0G02 


0700 


0847 


XIO 




PRWRT 


07D1 
0702 
07D3 
07D4 
0705 


0844 
1002 
4810 
70FC 
083E 


XIO 
SLA 
BSC 
MDX 
XIO 




PRSN 
2 

*-4 
PRSNS 


07D6 00 
0708 CO 
07DA CO 


67000000 
66000000 
740107BB 


LOX 
LDX 
MDX 


L3 
L2 

L 


PRir 




LOG.l 


07DC 00 


4C6007BB 


• 
TWRTR 


BSC 


I 


LOG 


07DE 
07DF 
0750 
07E1 
07E2 
07E3 00 


1010 
D032 
0839 
1005 
180F 
4C1807E7 


SLA 
STO 
XIO 
SLA 
SRA 
BSC 


L 


16 

WRDSW 

TWSNS 

5 

15 

TWR01.+- 


07E5 
07E6 


330F 
70F9 


W330F 


DC 
MDX 




/330F 
TWRTR+2 


07E7 
07E8 


C029 

D02A 


TWR01 


LD 
STO 




TWRTO 
IOARA 


07E9 


0832 




XIO 




TWWRT 


DATE 
EC NO. 


15MAY67 
411731 











CHECK IF TYPEWRITER 
READY 



1053/1816 NOT REAOY 



CARRAIGE RETURN ANO 
LINE SPACE TU 10 ARA 

CARG RETURN/LINE SP 
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80217690 

80217700 

80217710 

80217720 

80217730 

80217740 

80217750 

80217760 

80217770 

802?7760 

802 17 790 

80217800 

80217810 

60217820 

80217830 

80217840 

80217650 

80217860 

80217870 

80217880 

6021 7B90 

60217900 

80217910 

80217920 

8021/930 

80217940 

80217950 

80217960 

80217970 

80217980 

80217990 

80218000 

80218010 

60218020 

80218030 

80218040 

80216050 

80218060 

80216070 

80218080 

80218090 

80218100 

80218110 

80218120 

80216130 

80218140 

80216159 

80218160 

80218170 

80218180 

80218190 

80218200 

80218210 

60216220 

80218230 

80218240 

80218250 

80218260 

80218270 

80216260 

80218290 

80218 300 

80218310 

60218320 

80218330 

80218340 

80216350 

80218360 
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IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
D1MAL LOADER/ORGAN! ZOR SECTION (CARD) 



07EA 082F 

07Fb 180b 

07EC 4804 

07ED 70FC 

07EE 00 C48007BB 
07F0 D001 
07F1 00 66800000 
07F3 6301 
07F4 00 C460076B 
07F6 U001 

07F7 00 C7000000 
07F9 D056 



07FA 4023 



07FB C054 
07FC D016 



X10 




TWSNS 


SRA 




11 


BSC 




E 


MDX 




*-4 


LD 


I 


LOG 


STO 




*+l 


LDX 


12 





LOX 


3 


1 


LO 


I 


LOG 


STO 




TWR02+1 


LD 


L3 





STO 




CODWD 



HANG TILL NOT BUSY 



GET WORD COUNT LOC 
SET IN LDX INSTRUCTN 
SET XR 2 TO WORD CT 
BYPASS 1443 WORD COUNT 
GET MESSAGE ADDRESS 



GET WORD TO PRINT 

SET IN CONVERT ROUTINE 



TWR02 LD 

BSI CODCV BRANCH TO CONVERT RTN 

* 



LO 
STO 



CODHD 
IOARA 



07FD 


081E 


XIOWR 

4 


XIO 


TWWRT 


07FE 
07FF 
0800 
0601 


081B 
lBOb 
4604 
70FC 


XIOSN 
» 


X10 
SRA 
BSC 
MDX 


THSNS 
11 
E 
XIOSN 


0802 

0803 

0804 


COOF 
4804 
7006 


* 


LD 

BSC 

MDX 


HRDSW 

E 

THR03 



0805 COOD 
0606 1008 

0807 DOOB 

0808 00 74010812 
080A 70F2 



080b 7301 
060C 00 74010812 
080E 72FF 
080F 70E7 
0810 70C5 



0811 8103 
0612 0000 
0813 0000 



FET'H CONVERTED WORD 

OUTPUT A CHARACTER 
WRITE CHARACTER 
HANG ON BUSY 

BUSY 

CHECK IF 1ST 1/2 WORD 

GET 1/2 WORD SWITCH 
GO SET UP NEXT WORD 

SET UP FOR 2ND 1/2 WORD 



LD 

SLA 

STO 

MDX 

MDX 



IOARA 

8 

IOARA 

WRDSW.l 
XIOWR 



POSITION 2ND 1/2 WD 

BUMP WORD SWITCH 
GO WRITE 2N0 1/? WD 



SET UP FOR NEXT WORD 



0814 



0000 



TWR03 MDX 
MDX 
MDX 
MDX 
MDX 

* 

TWRTO DC 
WRDSW DC 
IOARA DC 
* 

BSS 



3 1 
L WRDSWil 
2 -1 
TWR02 
L0G06 



/8103 







0814 


0000 


PRSNS 


DC 


0815 


3701 




DC 


0816 


0000 


"rtSN 


DC 


0817 


3700 




DC 


0818 


0000 


PRWRT 


DC 


0819 


3500 




DC 


DATE 


15MAY67 






EC NO. 


411731 







/oooo 

/3701 



/3700 

/OOOO 

/3500 



NEXT WORD INDEX 
BUMP WORD SWITCH 
^KIP IF MESSAGE CMPL 
GO GET NEXT WORD 
EXIT 

LOG CONSTANTS 

LINE SP/CARRAIGE RTN 
1/2 WORD SWITCH 
OUTPUT AREA 



PRINTER SENSE IOCC 
NON RESET SENSE 
PRINTER WRITE IOCC 
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80218370 

80218380 

80218390 

80218400 

60218410 

80218420 

80218430 

80218440 

80218450 

60213460 

80218470 

80218480 

80218490 

80218500 

80218510 

80218520 

80218530 

80218540 

80218550 

80216560 

60218570 

80218580 

80218590 

80218600 

80218610 

80218620 

80218630 

80218640 

80218650 

80218660 

80218670 

80218660 

80218690 

80218700 

80218710 

60218720 

80218730 

80218740 

80218750 

80216760 

80218770 

80218780 

80218790 

80218800 

80213810 

60218820 

80218830 

80218840 

80216850 

80218860 

802188/0 

80216860 

80218890 

80218900 

80218910 

80218920 

80218930 

80218940 

80216950 

80218960 

80218970 

80218980 

80218990 

80219000 

80219010 

80219020 

80219030 

80219040 



PROG ID 
PAGE 



M 


t 


1 


t 


t 


3 


X 


") 


I 


j 


z 


3 


1 


■> 


1 


3 


1 




3 


1 


1 


3 


1 


3 


1 


3 


1 


3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DIMAL L0ADER/0RGAN1Z0R SECTION (CARD) 



081A OCOO 

081B 0F03 

081C 0813 

081D 0902 



081E 0000 

081F 6928 

0820 6A29 

0821 6B2A 

0822 D833 

0823 1010 

0824 D02C 

0825 6300 

0826 C029 

0827 1390 

0828 C028 
0629 4820 
082A 1088 

082B 1010 
082C 1084 
082D D024 
082E 00 65800852 

0830 1010 

0831 1084 

0832 D01F 

0833 00 66800852 

0835 00 C5000858 

0837 D001 

0838 00 C6000000 
083A 00 D7000853 

083C C014 
083D 00 4C200P43 
083F 00 74010851 

0841 7301 

0842 70E3 

0843 COOF 

0844 1008 

0845 E80E 
08 '«6 0009 

0847 00 65000000 
0849 00 66000000 
084B 00 67000000 
084D C808 

084E 00 4C80081E 



0850 0000 

0851 0000 

0852 0000 

0853 0000 

0854 0000 



TWSNS DC /OOOO TYPEWTR SENSE IOCC 

DC /0F03 

TWWRT DC IOARA TYPEWTR WRITE IOCC 

DC /0902 

« 

* 1443 CODE TO 18i6/1053 * 

* CODE CONVERSION ROUTINE * 

CODCV DC SE 

STX 



STX 
STX 
STD 

SLA 
STO 
LDX 

* 

C0DC1 LD 
SRT 
LD 
BSC 
SLT 

* 

SLA 
SLT 
STO 
LDX 

* 

SLA 
SLT 
STO 
LDX 

» 

LD 
STO 

* 

C0DC2 LO 
STO 

* 

LD 

BSC 

MDX 

MDX 

MDX 

« 

C0DC3 LD 
SLA 
OR 
STO 



* 

* 

* 

CODWD DC 

LHIND DC 

CODOO DC 

C0D01 DC 

C0D02 DC 



DATE 

EC NO. 



15MAY67 
411731 



1 C0DC4+1 

2 C0DC4+3 

3 CODC4+5 
«02 

16 

LHIND 
3 

CODWD 
16 

LHIND 
Z 

8 

16 

4 

CODOO 

11 CODOO 

16 

4 

CODOO 

12 CODOO 

LI ZONE 

C0DC2+1 

L2 

L3 C0D01 

LHIND 
L C0DC3.Z 
L LHIND, 1 
3 1 

C0DC1 

C0001 
8 

C0D02 
CODWD 



SAVE INDEX REGS 



C0DC4 LDX LI 

LDX L2 

LDX L3 
LDD 



BSC 1 



A02 
CODCV 



SAVE A AND 

CLEAR LFFT HALF WORD 
•INDICATOR 



GET WORD TO CONVERT 
SET IN 

SKIP IF LEFT HALF 
POSITION RIGHT HALF 



ZONE TO ACCUM 
IX 1 - ZONE 

DIGIT TO ACCUM 

IX 2 = DIGIT 

GET ZONE TABLE ADDRS 
SET IH CONVERSION WD 

GET CONVERTED CODE 

BRNCH IF RIGHT HALF 

GO CONVERT RIGHT HLF 
PACK CONVERTED CODES 



RESTORE INDEX REGS 

RESTORE A AND 

RETURN TO USER SX 

CONSTANTS 

WORD LOCATION 

LEFT HALF INDICATOR 

WORK AREA 

CONVERTED LH CHARACT 

CONVERTED RH CHARACT 



PART NO. 

PAGE 



KS219O50 
»©219060 
80219070 
6O219060 
60219090 
«0219100 
SO219110 
MZ19120 
8Q219130 
80219140 
80219150 
60219160 
80219170 
60219180 
60219190 
60 2 19200 
SC219210 
8O219220 
80219230 
6O219240 
«02 19250 
80219260 
180219270 
80219280 
802 1 9290 
60219300 
60219310 
60219 320 
80219330 
60219340 
£0219350 
8O219360 
6O219370 
80219380 
8S2 19390 
60219400 
«O219410 
80219420 
£02 19430 
60219440 
#02 1 9450 
60219460 
802 1 9470 
£0219460 
60219490 
80219500 
' 80219510 
«0219520 
80219530 
80219 540 
SO219550 
60219560 
•0219570 
&0219580 
8O219590 
80219600 
160219610 
80219620 
80219630 
80219640 
80219650 
80219660 
80219670 
80219680 
*021969O 
60219700 
80219710 
80219720 



2242253 
47A 



PROG ID 
*AGE 



0802-1 
47A 



N 
E 



IBM MAINTENANCE DIAGNOSTIC PROGRAM (-OR THE 1800 SYSTEM 



DIHAL LCADER/ORGAN1Z0R SECTION (CAROI 



0856 0000 

0856 0000 

0857 0000 



0858 





085C 


0859 





0867 


065A 





0872 


08 If. 





087C 


085C 





0021 


0850 





OOFC 


085E 





0008 


085F 





OODC 


0660 





OOFO 


0861 





00F4 


0862 





OODO 


0863 





WU4 


0864 





00E4 


0865 





OOEO 


0866 





OOC 4 


0867 





0000 


0868 





oooo 


0669 





009A 


066A 





009E 


066B 





0062 


086C 





0086 


086D 





0092 


086E 





0096 


066F 





00A6 


0670 





00A2 


0871 





0021 


0872 





0000 


0673 





007E 


0874 


c 


0O5A 


0675 





005E 


0876 





0072 


0877 





0076 


0678 





0052 


08 79 





0056 


087A 





0066 


0878 





0062 


087C 





0000 


0870 





003E 


087E 





001A 


067F 





001E 


0880 





0032 


0881 





0036 


0682 





0012 


0863 





0016 


0884 





0026 


0885 





0022 


0886 





0086 


0887 





0000 



0888 OOCO 

0889 6A1A 
088A 6B1B 
088b 0S26 



DATE 
EC NO. 



BSS 
A02 DC 
OC 

* 
* 
* 
* 

ZONE DC 
DC 

OC 
DC 

* 

7.0IIEN DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

ZUNE1 DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 

ZONE 2 DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

Z0NE3 DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

» 
* 

HEXCV DC 
STX 
STX 
STD 



A AND STORAGE 



1443 TO 1816/1053 
CONVERSION TABLES 



CODE 



ZONEN 
Z0NE1 
Z0NE2 
Z0NE3 

/0021 

/OOFC 

/00D8 

/OODC 

/OOFO 

/00F4 

/OODO 

/0004 

/00E4 

/OOEO 

/00C4 





/009A 

/009E 

/00B2 

/00B6 

/0092 

/0096 

/00A6 

/00A2 

/0021 



/007E 

/005A 

/005E 

/0072 

/0076 

/O052 

/0056 

/0066 

/0062 



/003E 

/001A 

/001E 

/0032 

/0036 

/0012 

/0016 

/0026 

/0022 

/0086 

/OOOO 



NO ZONE 
ZONE 

11 ZONE 

12 ZONE 

SPACE 

1 
2 
3 
4 
5 
6 
7 
8 
9 




S 
T 
U 
V 
M 
X 
Y 
Z 
SPACE 

J 
K 
I 
M 
N 

P 

R 

A 

6 

C 

D 

E 

F 

G 

H 

I 

ERROR 

PERIOD 



HEXADECIMAL TO 1443 CODED* 
HEXADECIMAL CONVERSION * 
ROUTINE * 



SE 



2 HEXC2+1 

3 HEXC2+3 
AO 



SAVE INDEX 2 AND 3 



SAVE A AND 



15MAY67 
411731 



PART NO. 2242253 
PAGE 48 



80219730 
80219740 
80219750 
80219760 
80219770 
80219760 
80219790 
80219800 
80219810 
80219820 
80219830 
80219840 
80219850 
80219860 
80219870 
80219880 
80219690 
80219900 
80219910 
80219920 
80219930 
80219940 
80219950 
80219960 
80219970 
80219960 
80219990 
80220000 
80220010 
80220020 
80220030 
80220040 
80220050 
80220060 
80220070 
80220080 
80220090 
60220100 
80220110 
80220120 
80220130 
80220140 
80220150 
80220160 
80220170 
60220160 
80220190 
80220200 
80220210 
60220220 
802202 30 
80220240 
802202 50 
60220260 
60220270 
80220280 
80220290 
80220300 
80220310 
60220320 
80220330 
80220340 
80220350 
80220360 
80220370 
80220380 
60220390 
80220400 
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ii 


m 


1 


• 


A 
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3 
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3 


I. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DIMAL LOADER/ORGAN 1Z0R SECTION (CARD) 



088C 6204 



088D 





C01C 


086E 





1890 


088F 





1010 


0690 





1084 


0891 





D001 


0692 


00 


67000000 


0894 


00 


C70008B4 


0896 


00 


D60008AA 


0898 





1010 


0899 





72FF 


089A 





70F5 


0898 





C012 


089C 





1003 


089D 





E80F 


089E 





D011 


089F 





COOC 


08AO 





1008 


08A1 





E809 


G8A2 





DOOE 



08A3 00 66000000 
08A5 00 67000000 
08A7 C80A 

08A8 00 4C800R88 



08AA 





0000 


08AB 





0000 


08AC 





0000 


08AD 





0000 


08AE 





0000 


06B0 




0000 


08B0 





0000 


08B1 





0000 


08B2 





0000 


08B3 





0000 


08B4 





000 A 


0885 





0.101 


08B6 





0002 


08B7 





0003 


08B6 





0004 


08B9 





0005 


08BA 





0006 


08BB 





0007 


08BC 





0008 


08BD 





0009 


08BE 





0031 


08BF 





0032 


08C0 





0033 


08C1 





0034 


08C2 





0035 


08C3 





0036 



HEXC1 



* 
HCXC2 



LDX 

LO 

SRT 

SLA 

SLT 

STO 

LDX 

LD 

STO 

SLA 

MDX 
MOX 

LD 

SLA 

OR 

STO 

LD 

SLA 

OK 

STO 

LDX 
LDX 
LCD 



* 

* 

* 

HEXWD 

HEXOO 



4 

HEXCO 



AO 

* 

* 
CODEH 



DC 
DC 
DC 
DC 
DC 

BSS 

DC 
DC 
DC 
DC 



DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



DATE 
EC NO. 



15MAY67 
411731 



2 4 

HEXWD 
16 
16 
4 

HEXC1+3 
L3 

L3 CODEH 
L2 HEXOO-1 
16 

2 -1 
HEXC1 

HEXOO+3 

8 

MEX00+2 

HEXCD 

HEXOO+1 

8 

HEXOO 

HEXCD+1 

L2 
L3 
AO 



CONVERSION INDEX 

GET WORD TO CONVERT 
SET A IN 

GET CHARACTER 

SET CODE TABLE INDEX 

GET CODED CHARACTER 
AND SAVE 

CHECK IF DONE 

PACK CODED WORDS 



BSC 1 HEXCV 



RESTORE INDEX 
RESTORE A AND 
RETURN TO USER 
CONSTANTS 






WORD TO CONVERT 





« 





* UNPACKED CODED 





* WORD 





* 










• PACKED CODED WORD 





* 





A AND STORAGE 







CONVERSION TABLE 


/OOOA 





/0001 


1 


/0002 


2 


/0003 


3 


/0004 


4 


/0005 


5 


/0006 


6 


/0007 


7 


/OOOB 


8 


/0009 


9 


/0031 


A 


/0032 


B 


/0033 


C 


/0034 


D 


/0035 


E 


/0036 


F 


HEX 


TO DECIMAL CONVERSION 


ROUTINE 



PART NO. 2242253 

fA&fc 46A 



8O220410 
8O22O420 
8O220430 
80220440 
8C22O450 
8O2294o0 
8(9220470 
8O220<-e0 
88220490 
80220500 
80220S10 
800*0520 
601220530 
80^20540 
8O220550 
8O&205O0 
80220570 
BO2205&0 
80220590 

ao^2&6O0 

6Q220610 
8©220e20 
80320030 
80220640 
8O220650 
6O22C660 
80220670 
8O220oeu 
8*220690 
SX 83(220700 

80220710 
8O220720 
80220730 
8O220740 
80220750 
BO 2 20 7 60 
80220770 
8«)220 7eb 
80220790 
80220800 
8*3220610 
8O2206 20 
80220630 
8O220«4<) 
80220*50 
80220*00 
802206 10 
8O220*e0 
80220*90 
80220900 
80220910 
80220920 
8O220930 
80220940 
8O22C950 
80220960 
8O220970 
&O2209e0 
8*220990 
80221000 
80221010 
60221020 
80221030 
8O221040 
60221050 
8O2210e0 
8O221C70 
802210*0 



(PROG 10 

ipA&e 



0802-1 
46A 



I 
f 
* 
f 



N 



< i < < ( < ( i (<<((<(<<<(<<<<<<<<(<<( < 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DIMAL L0ADER/0RGAN1Z0R SECTION (CAROI 



PART NO. 2242253 
PAGE 49 



08C4 0000 

08C5 6o20 

08C6 6A21 

08C7 6922 

08C8 DB31 

08C9 00 65000906 
OBCb 00 660006FC 

08CD 00 67000901 



OBCF 
08D0 



C200 
D026 



0801 C024 
08D2 9024 
08D3 00 4C2808DC 



0805 C 

0806 



8021 

001F 



0807 COIF 
08D8 6200 
0809 0U1D 



080A 
080tl 



08DC 
GBOU 



7301 
70f 5 



82u0 

Oil 8 



08DE C3C0 
080F 0100 



08E0 





7101 


08E1 





72ul 


08 E 2 





C200 


08E3 


00 


AC2008C0 


08E5 


00 


67000000 


08E7 


00 


66000000 


08F9 


00 


65000000 


08EB 





C60E 


08FC 





COIF 


08R0 





1008 


08EE 





EalO 


08EF 





0008 


08F0 





CC1C 


08F1 





1008 


08F2 





E81B 


08F3 





D005 



08F4 00 4C6008C4 



HEDEC DC 
STX 
STX 
STX 
STO 

# 

LDX 
LDX 

* 

HE0E1 LDX 

LD 
STO 

* 

HEDE2 LD 
S 
BSC 

* 

A 
STO 

* 

LD 

A 

STO 

* 

MOX 
MDX 

* 

HEDE3 A 

STO 



LD 
STO 

MDX 
MDX 

LO 
BSC 

LOX 
LDX 
LDX 
LDD 

LD 

SLA 

OR 

STO 

LD 

SLA 

OR 

STO 



HEDE4 



BSC 



3 HEDE4+1 
2 HEDE4+3 

1 HEDE4+5 
A01 

LI OPARA 
L2 CVTBL 

L3 CDTBL 

2 

CONV 

WORD 

CONV 

L HEDE3.+Z 

CONV 
WORD 

CONV 

2 
CONV 

3 1 
HEDF2 



SAVE IX 3 
SAVE INDEX 2 
SAVE INDEX 1 
SAVE A AND 

OUTPUT AREA INDEX 
CONVERSION TABLE IX 

CODE TABLE INDEX 

SET CONVERSION 
CONSTANT IN WORK ARA 

CHECK WORD AGAINST 
CONVERSION CONSTANT 
BRANCH IF MINUS 

RESTORE NUMBER 



SET UP FOR NEXT 
CHECK 



2 

WORD 



3 
! 



1 1 

2 1 



CODE TABLE INDEX + 1 

NEGATIVE RESULT 

RESTORE LAST NUMBER 



SET 1443 CODE IN 
OUTPUT AREA 

OUTPUT AREA INDEX +1 
CONVERSION TBL IX +1 



2 

L HEDF1.Z 

L3 
L2 
LI 
A01 

OPARA 

8 

OPARA+1 

CODE 

OPARA+2 

8 

OPARA+3 

CODE+1 



RESTORE INDEX REG 3 
RESTORE INDEX 2 
RESTORE INDEX 1 
RESTORE A AND 

GET 1ST CODE AND 
PACK WITH 2ND 



GET 3RD CODE AND 
PACK WITH 4TH 



1 HEDEC RETURN TO USER 
CONVERSION CONSTANTS 



0BF6 
08F7 


0000 
0000 


WORD 
CONV 


DC 
DC 






WORK AREA 
WORK AREA 


08F8 


0000 


$ 


BSS 


E 




08F8 


0000 


CODE 


DC 





PACKED WO 


DATE 
EC NO. 


15MAY67 
411731 











80221090 
SE 80221100 
t'0221110 
80221120 
60221130 
80221140 
80221150 
80221160 
80221170 
80221180 
80221190 
80221200 
80221210 
80221220 
802212 30 
80221240 
80221250 
80221260 
80221270 
80221280 
e022129O 
80221300 
80221310 
80221320 
80221330 
80221340 
80221350 
80221360 
80221370 
80221380 
80221390 
80221400 
60221410 
80221420 
60221430 
60221440 
80221450 
80221460 
80221470 
80221480 
80221490 
80221500 
80221510 
80221520 
80221530 
80221540 
80221550 
80221560 
80221570 
80221580 
80221590 
80221600 
80221610 
80221620 
80221630 
80221640 
80221650 
80221660 
SX 80221670 
80221680 
80221690 
eO22170O 
80221710 
80221720 
80221730 
80221740 
802217 50 
80221760 



PROG ID 
PAGE 
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.7 

Is 



:> 
j 
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I 
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3 
3 
3 
3 
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3 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
OIMAL LOADER/ORGANIZOR SECTION (CARD) 



08F9 0000 
08FA 0000 
08FB 0000 



08FC 





03E8 


08FD 





0064 


08FE 





OOOA 


08FF 





0001 


0900 





0000 


0901 





OOOA 


0902 





0001 


0903 





0002 


0904 





0003 


0905 





0004 


0906 





0005 


0907 





0006 


0908 





0007 


0909 





0008 


090A 





0009 


090B 





0000 


090C 





0000 


090D 





0000 


090E 





0000 



090F 0000 
0910 00 C480090F 
D04E 



0912 
0913 
0914 
0915 
0916 
0917 



1008 
D0«8 
1006 
4810 
7004 



0918 407C 

0919 09B5 
091A 0969 

091B 7003 

091C 4078 

091D 09AB 

091E 0989 

091 F 00 74080994 



0921 

0922 

0923 00 

0925 

0926 00 
0928 00 
092A 
092B 



A01 



DC 
DC 
DC 



CVTBL DC 
DC 
DC 
DC 
DC 

CDTBL DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

O'ARA DC 
DC 
DC 
OC 







/03E8 
/0064 
/OOOA 
/0001 

/oooo 

/OOOA 
/0001 
/0002 
/0003 
/0004 
/0005 
/0006 
,0007 
/0008 
/0009 








PACKED WORDS 3 AND 4 
A AND STORAGE 



1000 
100 

10 

1 




1 
2 
3 
/ 
5 
6 
7 
8 
9 

OUTPUT WORK AREA 



******************************************* **v*»*ss 



* 
« 

* 
* 
* 
* 
* 

» 

***** 

PCOUT 



CALLING SEQUENCE FOR BOOTSTRAP 



BSI 
DC 



PCOUT 
/XXON 



PCH CARDS OUT 



XX- NUMBEk OF TRACKS TO SEEK IN HEX 
N- INDICATOR NUMBER. 1 IS L 
2 IS S 



RETURN ADDRESS 

GET SEEKS AND NUMBER 



********** ********* *******:»« ****************** 

DC /OOOO 

LD I PCOUT 

STO PCSL3 

SLA 8 

STO PCSLO 

SLA 6 
BSC 
KDX 



DATE 
EC NO. 



6203 

6109 

C500095F 

E01A 

EE000941 

D500095F 

71FC 

70F7 



15MAY67 
411731 



SSS 



LLL 



PCO 



PCI 
PC2 



BSI 

OC 

DC 

MDX 

BSI 

OC 
DC 

MOX 

LDX 

LOX 

LD 

AND 

OR 

STO 

MOX 

MOX 



LLL 

PCSLW 

PCSLS-2 

PCSL7-2 

PCO 

PCSLW 

PCSLL-2 

PCSL7-2 

L PCSL8.8 

2 3 
1 9 
LI PCSL2-1 

OSW 

L2 AREA-1 

LI PCSL2-1 

1 -4 

PC 2 



ADD 1DENIFYINS CHARCTtRS 
FROM AREA 
TO AREA 



ADO IDEN1FYING CHARCTERS 
FROM AREA 
TO AREA 

SET PUNCH TERMINATOR 

AREA CONTRJL 

GET IOCC 

* REMOVE OLD AREA 

* OR IN NEW AREA 

* AND STORE BACK 
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80221770 
80221760 
80221790 
80221600 
60221810 
80221820 
80221830 
80221840 
80221850 
60221860 
80221870 
80221860 
60221890 
60221900 
60221910 
80221920 
60221930 
S0221940 
60221950 
80221960 
60221970 
80221980 
60221990 
80222000 
80222010 
80222020 
60222030 
60222040 
60222050 
60222060 
80222070 
80222080 
60222090 
b0222100 
80222110 
60222120 
80222130 
60222140 
60222150 
60222160 
60222170 
80222180 
80222190 
80222200 
80222210 
80222220 
80222230 
80222240 
80222250 
80222260 
80222270 
80222260 
80222290 
80222 300 
80222310 
60222 320 
80222330 
60222 340 
80222350 
80222360 
60222370 
80222380 
80222390 
60222400 
60222410 
6C222420 
80222430 
60222440 
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PAGE 
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N 
E 
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092C 
0920 
09?E 

092F 00 

0931 

0932 

0933 00 

0935 

0936 O 



4068 
09AA 
0976 

740A092D 

080C 

0800 
4C040932 

72EF 
70FB 



0937 00 74E20920 



0939 00 7401090F 
093b 00 4C80090F 



09 3E 




0000 


093H 





0945 


093F 





1500 


0940 





07FF 


0941 





1701 


094 2 


u 


4800 


094 3 





4000 


0944 





2000 



0945 





0000 


0946 





0800 


0947 





OAOO 


094 8 





OMOO 


0949 





0200 


094 A 





1000 


094b 


u 


2 800 


094C 





4800 


0940 





rcoo 


094 E 





7000 


094F 





OAOO 


0950 





0800 


0951 





0500 


0952 





0800 


C953 





0200 


0954 





1000 


0955 





2800 


0956 





4800 


0957 





FCOO 


0958 





7000 


0959 





OAOO 


095A 





7000 


095B 





AOOO 


095C 





ODOO 


0950 





0000 


095F 


n 


0000 


095F 





0100 


0960 





0700 


0961 





0000 


0962 





0000 


0963 





0000 


0964 





0400 


0965 





1200 


0966 





0000 


0967 





0000 


0968 





0600 


DATE 




15MAV67 


EC NO. 


411731 



* 
PC 3 



BSI 

OC 

DC 

MDX 

XIO 



CHECK XIO 
BSC 



MDX 
MDX 



MDX 
BSC 



* 

PCH 

DSW 



BSS 
DC 

DC 
DC 
DC 
AkEA DC 
DC. 
DC 



PCSL DC 
DC 
OC 
DC 
OC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 

PCSLO DC 
DC 
DC 

PCSL2 DC 

PCSL3 OC 
OC 
DC 

PCSL4 DC 



PCSL5 



DC 
DC 
DC 
DC 



PCSLW 

PCSL1-2 

PCSL6-2 

L PC3tlO 

PCH 

DSW 
L CHECK, E 

2 -1 

PCI 



MDX L PC3.-30 



PCOUT.l 
PCOUT 



PCSL 

/1500 

/07FF 

/1701 

/4800 

/4000 

/2000 



ADD IDENIFYING CHARCTERS 
FROM AREA 
TO AREA 

CHANGE FROM AKEA 

PUNCH 

SENSE DSW 

bCH ROR NOT RDY 



RESTORE FROM AREA 

MODIFY RETURN 
RETURN TO MAINLINE 



PUNCH AREA 
PUNCh 10CC 
CONSTANT 
SENSE OSW IOCC 
3RD DISC AREA 
2ND DISC AKEA 
1ST DISC AREA 



BOOTSTRAP IN PACKED IMAGE 
FOR 1PL CARDS 



/ODOO 
/0800 
/OAOO 
/0800 
/0200 
/1000 
/2800 
/4800 
/FCOO 
/700C 
/OAOO 
/0800 
/0500 
/0800 
/0200 
/1000 
/2800 
/4800 
/FCOO 
/7000 
/OAOO 
/7000 
/AOOO 
/ODOO 
/OOOO 
/OOOO 
/0100 
/0700 
/OOOO 
/OOOO 
/OOOO 
/04C0 
/1200 
/OOOO 
/OOOO 
/0600 



xm sk 

CK1 XIO SN 

SLA 2 

BSC +Z 

MDX CK1 

XIO RO 

CK2 XIO SN 

SLA 2 

BSC +Z 

MOX CK2 

MOX PGM 



SEEK 
SENSE 



REAO 
SENSE 



SN OC 
DC 

SK DC 
DC 

RD DC 
DC 



/OOOO 
/0701 
/OOOO 
/0400 
/0012 
/0600 



INDICATOR 
SENSE IOC 
= OF SEEK 
SEEK IOCC 
READ AREA 
READ IOCC 
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80222450 

80222460 

80222470 ' 

80222480 

80222490 

802225C0 

80222510 

80222520 

80222530 

80222540 

80222550 

80222560 

80222 570 

80222580 

80222590 

80222600 

80222610 

60222620 

80222630 

80222640 

80222650 

80222660 

80222670 

80222680 

80222690 

60222700 

80222710 

80222720 

60222730 

60222740 

80222750 

80222760 

80222770 

80222780 

80222790 

80222600 

80222810 

80222820 

80222830 

80222640 

80222850 

80222860 

80222870 

80222880 

80222890 

80222900 

80222910 

80222920 

80222930 

80222940 

80222950 

80222960 

80222970 

80222960 

80222990 

8022 300C 

80223010 

80223020 

80223030 

8022 3040 

802230 50 

80223060 

80223070 

80223080 

30223090 

80223100 

80223110 

60223120 
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0969 


4100 




DC 


/4100 






80223130 




096A 


0100 




DC 


/0100 


DC /0141 


WORD CT 


602231*0 




096B 


OOOO 




DC 


/OOOO 






8022 3150 




096C 


OOOO 




DC 


/OOOO 


DC /OOOO 


SECTOR ID 


8022 3 le.0 




0960 


0200 




OC 


/0200 


DC /OOOO 


PROG ID 


60223170 




096E 


0400 




DC 


/0400 






602231e0 




096F 


0800 




DC 


/0800 


PGM DC 


PGM START 


80223190 




0970 


1800 




DC 


/1800 






60223200 




0971 


2800 




DC 


/2800 






8022 3210 




0972 


4800 




DC 


/4800 






80223220 




0973 


8800 




DC 


/B800 






6022 3230 




0974 


4800 




DC 


/4800 






6O223240 




0975 


2600 




DC 


/2800 






6022 3250 




0976 


1800 




DC 


/1800 






80223260 




0977 


0800 




OC 


/0800 






6O223270 




0978 


0400 




DC 


/0400 






60223260 




0979 


0200 




DC 


/0200 


END OF LARGE LETTER A 


BO22 3290 




097A 


0001 


ONE 


DC 


/00O1 


CONSTANT 




802 233i>0 




097B 


OOOO 




DC 


/OOOO 






6022 3310 




09 7C 


OOOO 




DC 


/OOOO 






60223320 




0970 


ocoo 


PCSL6 


OC 


/OOOO 


START NUMBER 




8022 3530 




097E 


0000 




DC 


/cooo 






8022 3340 




097F 


OOOO 




DC 


/OOOO 






6022 3350 




0980 


OOPO 




DC 


/OOOO 






60223360 




0981 


OOOO 




DC 


/OOOO 






8O22 3370 




0982 


OOOO 




DC 


/OOOO 






80222380 




0983 


OOOO 




DC 


/OOOO 






8O22 3390 




0964 


OOOO 




DC 


/OOOO 






80223400 




0985 


OOOO 




DC 


/OOOO 






8022 3410 




0966 


OOOO 




DC 


/OOOO 






6022 3<-2G 




0987 


OOOO 




DC 


/OOOO 






802 2 34 30 




0988 


OOOO 




DC 


/OOOO 






8O223440 




0989 


OOOO 




DC 


/OOOO 






8022 3^50 




098A 


OOOO 




DC 


/OOOO 






6022 3460 




0986 


OOOO 


PCSL7 


DC 


/OOOO 


LETTER L OR S 




6022 3470 




098C 


OOOO 




DC 


/OOOO 






8022 S^oO 




0980 


OOOO 




DC 


/OOOO 






6022 3490 




098E 


OOOO 




DC 


/OOOO 






60223500 




098F 


OOOO 




DC 


/OOOO 






6O223510 




0990 


OOOO 




DC 


/OOOO 






8022 3520 




0991 


OOOO 




DC 


/OOOO 






8O22 3530 




0992 


OOOO 




DC 


/OOOO 






80223540 




0993 


oooo 




DC 


/OOOO 






80223550 




0994 


0000 


PCSL8 


DC 


/OOOO 


COLUMN 80 




8022 3560 








*V*#*»**«9*«**<t«**«#*xt«ff#«tt*3ft«««ftse*&**J*«*«94[ 


6022 3570 


















6O2235S0 












CALLING 


SEQUENCE TO STORE 


CHARACTER 


8022 35*0 
8O22 36O0 












BSI PCSLW CALL 




6022 3610 












OC 


FROM AREA 


8022 3520 












OC 


TO AREA 




8^22 36 30 
8022 3o*G 








♦a******************************************** 


8022 3650 


















8022 3o60 




0995 


OOOO 


PCSLk 


DC 


/OOOO 


RETURN ADDRESS 




8022 3670 




0996 OC 


65800995 




LOX 


11 PCSLW 






8022 3660 




0998 


C100 




LD 


1 


GET FROM AREA 




8022 3690 




0999 


D006 




STO 


PCSLX+1 






8022 3700 




099A 


C101 




LO 


1 1 


GET TO AREA 




8022 3710 




099 B 


D008 




STO 


PCSLY+1 






8022 3720 




099C 


80D0 




A 


ONE 






80223730 




099D 


0009 


* 


STO 


PCSLZ+1 






8022 3740 
8O22 3750 




099E 


630A 




LDX 


3 10 






60223760 




099F 00 C7000000 


PCSLX LI) 


L3 /OOOO 


FROM AR?A 




80223770 




09A1 


1888 




SRT 


8 


SAVE L-0 BITS 




6022 37cO 




09A2 


1008 




SLA 


8 


F0S1TI0N H-0 BITS 


8022 3790 




09A3 00 D7000000 


PCSLY STO 


L3 /OOOO 


TO AREA 




6022 36O0 




DATE 
EC NO. 


15MAY67 
411731 
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PAGE 
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09A5 





1090 


09A6 


00 


DVOOOOOO 


09AB 





73FE 


09A9 





70F5 



09AA 00 40000002 



09AC 





0000 


09AI) 





OOFE 


09AE 





0242 


09AF 





0202 


09b0 





C2FE 


09B1 


c 


0202 


09B2 


c 


0202 


09b3 





0202 


09B4 





0200 


09B5 





0202 


09B6 





0042 


09B7 





44A2 


09B8 


u 


868ft 


09B9 





A2H? 


09BA 





BA6A 


O^nii 





9292 


09bC 





9292 


09B0 





8A8A 


09BE 





8262 


09BF 





8244 


09C0 





0044 


09C1 


l' 


0000 


09C2 





M2b2 


09C3 





0000 


09C4 





9292 


09C5 





0000 


09C6 





9292 


09C7 





0000 


09C8 





926C 


09C9 





0000 



OCCA 





3009 


09CB 





310A 


09CC 





0A01 


09C0 





302 5 


09CE 





2600 


09CF 





311b 


0900 





3139 


0901 





2300 


09D2 





3318 


0903 





»'»12 


09D4 





0008 


090b 





350A 


0906 





DA01 


0907 


G 


0034 


09D8 





3912 


DATE 




15MAY67 


EC NO. 


411731 



SIT 16 

PLSLZ STO L3 /OOOO 

HOX 3 -2 

MDX PCSLX 



POSITION L-0 BITS 
TO AREA+1 



* 

***** 

* 

* 

* 

* 

# 

***** 

PCSL1 

PCSLL 



BSC LI 2 RETURN 

******* ««**««**««»*#*•#«*****«*****««*«** 

CHARCTER TABLE 

*******s*o**s*v ************* «**b*s******* 



PCSLS 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 



/OOOO 
/OOFE 
/0242 
/0202 
/C2FE 
/0202 
/0202 
/0?02 
/0200 
/0202 
/0042 
/44A2 
Z8686 
/A282 
/8A8A 
/9292 
Z9292 
/8A8A 
/8262 
/8244 
/0044 
/OOOO 
/8282 
/OOOO 
/9292 
/OOOO 
/9292 
/OOOO 
/926C 
/OOOO 



NUMBER 1 
LETTER L 



NUMBER 2 
LETTER S 



NUMBER 3 



PRINT MESSAGES 



* 
* 
* 
* 
MSG1 



A001 NO AVAIL CYLS 



DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 



9 

/310A 

/0A01 

/0025 

/2600 

/3115 

/3139 

/2300 

/3318 

/2312 



E001 DISK RD ERR 



MSG2 



DC 
DC 
DC 
DC 
DC 



8 

/350A 
/0A01 
/0034 
/3912 



WORD COUNT 
AO 
01 
N 


AV 
AI 
I. 

CY 
LS 



WORD COUNT 
EO 
01 
D 
IS 
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80223810 
8022 3820 
80223830 
80223840 
80223850 
80223860 
80223870 
80223880 
80223890 
8022 3900 
80223910 
8022 3920 
80223930 
60223940 
8022 3950 
8022 3960 
80223970 
8022 3960 
80223990 
80224000 
80224010 
80224020 
80224030 
80224040 
80224050 
60224060 
80224070 
80224080 
80224090 
80224100 
80224110 
80224120 
80224130 
80224140 
80224150 
80224160 
80224170 
80224160 
80224190 
80224200 
80224210 
80224220 
802242 30 
80224240 
80224250 
80224260 
802242 70 
80224280 
80224290 
80224300 
80224310 
802243*0 
80224330 
80224340 
80224350 
80224360 
80224370 
80224380 
80224 390 
80224400 
80224410 
80224420 
80224430 
80224440 
80224450 
80224460 
80224470 
80224480 
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3 


t 
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3 



3 S 
3 
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09D9 





2200 


09DA 





2934 


09DB 





0035 


09DC 





2929 


09DD 





OOOD 


09DE 





350A 


09DF 





0A02 


09E0 





0016 


09E1 





2926 


09E2 





2537 


09E3 





0012 


09E4 





3533 


09E5 





1326 


09E6 


I) 


2900 


09E7 





3934 


09E8 





0029 


09E9 





3531 


09EA 





3400 


09EB 





0009 


09EC 





350A 


09ED 





OA03 


09FE 





0034 


09EF 





3912 


09F0 





2200 


09F1 





1629 


09F2 





1300 


09F3 





3529 


09F4 





2900 



09F5 





0009 


09F6 





350A 


09F7 





0A04 


09F8 





0024 


09F9 





2634 


09FA 





)423 


09FB 





2600 


09FC 





0400 


09FD 





3529 


09FE 





2900 


09FF 





0011 


OAOO 





330A 


0A01 





0A01 


0A02 





0012 


OA03 





3513 


0A04 





0034 


0A05 





3113 


0A06 





3100 


OA07 





1216 


0A08 





1200 


0A09 





1326 


OAOA 





0036 


OAOB 





360A 


OAOC 





OAOO 


OAOD 





3936 


OAOE 





0034 


OAOF 





2625 


0A10 





3500 


DATE 




15MAY67 


EC NO. 


411731 





DC 


/2200 


K 




DC 


/2934 


RD 




DC 


/0035 


E 


* 
* 


DC 


Z2929 


RR 


I 002 


WRU;G Si'. iUS 


10 KEAD 


MSG3 


DC 


13 


WORD COUNT 




DC 


/350A 


EO 




DC 


/OA02 


02 




OC 


/0016 


•A 




DC 


/2926 


KO 




DC 


/2'>37 


'■G 




DC 


/00l2 


S 




OC 


Z3533 


EC 




DC 


/1326 


TO 




DC 


/2900 


R 




DC 


/3934 


ID 




DC 


/0029 


R 




DC 


/3531 


FA 




DC 


/3400 





* 
* 
MSG4 


E003 


DISK WRT ERR 




DC 


9 


WORD COUNT 




DC 


/350A 


EO 




DC 


/0A03 


03 




DC 


/0034 







DC 


/3912 


IS 




DC 


/220O 


K 




DC 


/1629 


WR 




DC 


/1300 


T 




DC 


/3529 


ER 


£ 


DC 


/2900 


k 


* 


E004 


MODULO '. ERR 




MSG5 


DC 


9 


WORD COUNT 




DC 


/350A 


EO 




DC 


/0A04 


04 




DC 


/0024 


M 




DC 


/2634 


OD 




DC 


/1423 


UL 




DC 


/2600 







DC 


/0400 






DC 


/3529 


ER 


* 
* 
* 
MSG6 


DC 


/2900 


R 


C001 


SET DATA SWS 


TO FFOO IF 


DC 


17 


WORD COUNT 




DC 


/330A 


CO 




DC 


/0A01 


01 




DC 


/0012 


S 




OC 


/3513 


ET 




DC 


/0034 


D 




DC 


/3113 


AT 




DC 


/3100 


A 




DC 


/1216 


SW 




DC 


/1200 


S 




DC 


/1326 


TO 




DC 


/0036 


F 




DC 


/360A 


FO 




DC 


/OAOO 







DC 


/3936 


IF 




OC 


/0034 


D 




DC 


/2625 


ON 




DC 


/3500 


E 
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80224490 
80224500 
80224510 
80224520 
80224530 
80224540 
80224550 
80224 560 
80224570 
60224560 
80224590 
80224600 
80224610 
80224620 
80224630 
60224640 
60224650 
80224660 
80224670 
8C224680 
60224690 
602247O0 
80224710 
60224720 
80224730 
80224740 
60224750 
80224760 
80224770 
60224780 
80224790 
60224800 
80224810 
80224620 
80224330 
60224840 
80224850 
80224860 
60224870 
60224860 
80224890 
e0224900 
60224910 
80224920 
80224930 
80224940 
80224950 
80224960 
80224970 
60224960 
80224990 
8022 5000 
8022 5010 
80225020 
8022 5030 
8022 5040 
80225050 
80225060 
80225070 
80225080 
80225090 
80225100 
80225110 
80225120 
80225130 
60225140 
80225150 
8022 5160 
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0A11 





0009 


0A12 





350A 


0A13 





0A05 


0A14 





0035 


0A15 





3439 


0A16 





1300 


0A17 





3331 


OAlfa 





2934 


0A19 





0035 


0A1A 





2929 



OAlb 





0015 


OAK. 





330A 


0A1U 





0A02 


0A1E 





0035 


0A1F 





2513 


0A20 





3529 


0A21 





0027 


0A22 





3934 


0A23 





0013 


0A24 





2A00 


0A25 





3435 


0A?6 





2335 


0A27 





1335 


0A28 





0039 


0A29 





2500 


OA?A 


(1 


3431 


0A2H 


(I 


1331 


0A2C 





0012 


0A2IJ 





1612 


0A2E 





(ll/UA 


0A2F 





0A17 


0A30 





1700 



0A31 





0011 


0A32 





330A 


0A33 





0A03 


0A34 





0029 


0A35 





3418 


0A36 





0001 


0A37 





0404 


0A38 





0200 


0A39 





1639 


0A3A 





1338 


0A3B 





0025 


0A3C 





3516 


0A3I) 





0035 


0A3b 





3439 


0A3F 





1300 


0A40 





3331 


0A41 





2934 


0A42 





1200 



0A43 
0A44 
0A45 
0A46 
0A47 
0A48 



DATE 
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OOOC 
340A 
0A01 
0000 
2326 
3331 



* 
HSG7 



E005 EDIT CARD ERR 



DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



9 

/350A 

/0A05 

/0035 

/3439 

/1300 

/3331 

Z2934 

/0035 

/2929 



WORD COUNT 
EO 

05 

E 
01 
T 

CA 
RD 

E 
RR 



COO? ENTER P1D TO DELETE IN DATA SWS OOXX 



MSG8 DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 



21 

/330A 

/0A02 

/0035 

/2513 

/a529 

/0027 

/3934 

/0013 

/2600 

/3435 

/2335 

/1335 

/0039 

/2500 

/3431 

/1331 

/0012 

/1612 

/OOOA 

/0A17 

/1700 



WORD COUNT 
CO 

02 

E 
NT 
ER 

P 
ID 

T 


DE 
LE 
TE 

I 
N 

DA 
TA 

S 

ws 



ox 
x 



C003 ROY 1442 WITH NEW EDIT CARDS 



MSG9 OC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



17 

/330A 

/0A03 

/0029 

/3418 

• 0001 

/0404 

/0200 

/1639 

/1338 

/0025 

/3516 

/0035 

/3439 

/1300 

/3331 

/2934 

/1200 



WORD COUNT 

CO 

03 

R 
OY 

1 
44 
2 

WI 
TH 

N 
EW 

E 
01 
T 

CA 
KD 
S 



D001 LOCATION DIRECTORY 



HSGOA DC 
DC 
DC 
DC 
DC 
DC 



12 

/340A 

/0A01 

,'0 

/2326 

/3331 



WORD COUNT 

00 

01 

BLANK 

LO 

CA 



15MAY67 
411731 



PART NO. 2242253 
PAGE 52 



80225170 
80225180 
80225190 
80225200 
80225210 
80225220 
802252 30 
80225240 
802252 50 
80225260 
80225270 
80225280 
80225290 
80225300 
80225310 
80225320 
80225330 
80225340 
80225350 
80225360 
80225370 
80225380 
80225390 
80225400 
80225410 
8022 5420 
80225430 
80225440 
8022 5450 
8022 546C 
80225470 
80225480 
30225490 
8022 5500 
80225510 
80225520 
80225530 
80225540 
80225550 
8022 5560 
80225570 
80225580 
80225590 
80225600 
8022 5610 
80225620 
80225630 
8022 5640 
80225650 
80225660 
80225670 
80225660 
8022 5690 
80225700 
80225710 
80225720 
80225730 
80225740 
80225750 
60225760 
80225770 
80225780 
60225790 
80225600 
B0225810 
80225820 
80225830 
80225840 
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0A49 





1339 


0A4A 





2625 


0A4B 





0034 


0A4C 





3929 


0A4D 





3533 


0A4E 





1326 


0A4F 





2918 


0A50 





0000 


0A51 





0000 


0A52 





0000 


0A53 





0000 


0A54 





2739 


0A55 





3400 


0A56 





0033 


OA57 





1823 


0A58 





0000 


0A59 





1235 


0A5A 





3313 


0A58 





0000 


0A5C 





1312 


0A50 





3533 


0A5E 





0008 


0A5F 





340 A 


0A60 





0A02 


0A61 





0000 


0A62 





3534 


0A63 





3913 


0A64 





0013 


0A65 





3132 


0A66 





2335 


0A67 





OOOF 


0A68 





330A 


0A69 





0A05 


0A6A 





0029 


0A6B 





3418 


0A6C 





0001 


0A60 





0404 


0A6E 





0200 


0A6* 





1629 


0A70 





1338 


0A71 





0032 


0A72 





-331 


0A73 





2522 


0A74 





0033 


0A75 





3129 


0A76 





3412 


0A77 





0009 


0A78 





350A 


0A79 





0A06 


0A7A 





0025 


0A7B 





2613 


0A7C 





0035 


0A7D 





3439 


0A7E 





1300 


0A7F 





3331 


OA80 





2934 


DATE 




15MAY67 


EC NO. 


411731 



DC 


/1339 


TI 


OC 


/2*25 


ON 


OC 


/0034 


D 


DC 


/3929 


IR 


OC 


/3533 


EC 


DC 


/1326 


TO 


DC 

* 
* 
* 
MSGOR DC 


/2918 


RY 


PID CYL 


SECT TSEC 


13 


WORO COI'NT 


DC 





BLANK 


DC 





0LANK 


DC 





BLANK 


DC 


/2739 


Pi 


DC 


/3400 


D 


OC 


/0033 


C 


DC 


/1823 


VL 


DC 


/O 


BLANK 


DC 


/1235 


SE 


DC 


/3313 


CT 


OC 


/O 


BLANK 


OC 


/131? 


TS 


DC 

4t 


Z3533 


EC 


* D002 

* 

MSGOC OC 


EDIT TABLE 


8 


WORD COUNT 


OC 


/340A 


DO 


DC 


/0A02 


02 


OC 





BLANK 


DC 


Z3534 


EO 


DC 


/3913 


IT 


DC 


/0013 


T 


OC 


/3132 


AB 


DC 


/2335 


LE 


* C005 

* 

MS GOD DC 


RDV 1442 


WITH BLANK CARD 


15 


WORD COUNT 


OC 


/330A 


CO 


OC 


/OA05 


05 


OC 


/0029 


R 


DC 


/3418 


DY 


DC 


/0001 


1 


DC 


/0404 


44 


DC 


/0200 


2 


DC 


/1639 


WI 


DC 


/1338 


TH 


DC 


/0032 


B 


DC 


/2331 


LA 


DC 


/2522 


NK 


DC 


/0033 


C 


DC 


/3129 


AR 


DC 


/3412 


OS 


• E006 


NOT EDIT 


CARO 


MSGOE OC 


9 


WORO COUNT 


OC 


/350A 


EO 


DC 


/OA06 


06 


DC 


/0025 


N 


DC 


/2613 


OT 


DC 


/O035 


E 


DC 


/3439 


01 


DC 


/1300 


T 


DC 


/3331 


CA 


DC 


/2934 


RD 
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•O225850 
80225860 
8O225870 
S0225880 
S022S890 
80225900 
8O225910 
8O225920 
•W22 5930 
■0225940 
•O225950 
•O22 5960 
6O225970 
S022 5960 
8O225990 
M226OG0 
80226010 
•9226020 
80226030 
8O22A040 
8O22605O 
8O22O060 
8O226070 
80226060 
BO22o090 
8022«100 
80226110 
M226120 
80226130 
80226140 
8O226150 
M226160 
•G226170 
80226180 
M226190 
80226200 
80226210 
BO226220 
8O226230 
8O226240 
8O226250 
8O226260 
80226270 
8O226260 
8022*290 
BO226 30O 
8O226310 
■O226320 
80226330 
8O226340 
80226350 
80226360 
8O226370 
802263M) 
80226390 
8O226400 
80226410 
BO226420 
80226430 
80226440 
6O226450 
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80226490 
80226500 
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80226530 








* 


D003 


DATA SW CALL 


SEEK COUNT IS XX 


80226540 








* 








80226550 


0A81 





0011 


MSGOF 


DC 


17 


WORD COUNT 


80226560 


0A82 





340A 




DC 


/340A 


DO 


80226570 


OA63 





0A03 




DC 


/0A03 


03 


80226580 


0A84 





0034 




DC 


/0034 


D 


80226590 


0A85 





3113 




DC 


/3113 


AT 


80226600 


0A86 





3100 




DC 


/3100 


A 


80226610 


0A87 





1216 




DC 


/1216 


SW 


80226620 


0A88 





0033 




DC 


/0033 


C 


80226630 


0A89 





3123 




DC 


/3123 


AL 


80226640 


0A8A 





2300 




DC 


/2300 


L 


80226650 


0A8B 





1235 




DC 


/1235 


SE 


80226660 


0A8C 





3522 




DC 


/3522 


EK 


80226670 


0A8D 





0033 




DC 


/0033 


C 


80226680 


cat 





2614 




DC 


/2614 


OU 


80226690 


0A6F 





2513 




DC 


/2513 


NT 


80226700 


OA90 





0i'39 




DC 


/0039 


I 


80226710 


0A91 





1200 




DC 


/1200 


S 


80226720 


0A92 





0000 


* 


DC 


/OOOO 


SEEK COUNT IN HEX 


80226730 
80226740 








* 


C004 


SELECT OPTIONS 


80226750 








* 








80226760 


0A93 





0009 


MSG10 


DC 


9 


WORD COUNT 


60226770 


0A94 





330A 




DC 


/330A 


CO 


80226780 


0A95 





0A04 




DC 


/OA04 


04 


80226790 


0A96 





0012 




DC 


/0012 


S 


80226800 


0A97 





3!>23 




DC 


/3523 


EL 


80226810 


0A98 





J533 




DC 


Z3533 


EC 


80226820 


0A99 





1300 




DC 


/1300 


T 


80226830 


0A9A 





2627 




DC 


/2627 


OP 


80226840 


0A9B 





I33y 




DC 


/1339 


TI 


80226850 


0A9C 





2b25 


* 


DC 


Z2625 


ON 


80226860 
80226870 








* 


E007 


CHECKSUM ERROR 


80226880 








* 








80226890 


0A9U 





OOUA 


MSG11 


DC 


10 


WORD COUNT 


80226900 


0A9E 





350A 




DC 


/350A 


EO 


80226910 


0A9F 





0A07 




DC 


/0A07 


07 


60226920 


OAAO 





0033 




DC 


/0033 


C 


8022693C 


0AA1 





3835 




DC 


/3835 


HE 


60226940 


0AA2 





3322 




DC 


Z3322 


CK 


80226950 


0AA3 





1214 




DC 


/1214 


SU 


80226960 


0AA4 





2400 




DC 


/2400 


M 


80226970 


OAAb 





352 9 




DC 


Z3529 


ER 


80226980 


0AA6 





2926 




DC 


/2926 


RO 


8022t>990 


0AA7 





2900 


* 


DC 


/2900 


R 


80227000 
60227010 


0AA8 




0147 




END 


PID+1 




6022701 80227020 
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CROSS REFERENCE LISTING 

REFERENCES 

02FOtO2FA,0323 

088Bt08A7 

08C8.08EB 

0822,0840 

0926 

01 FF, 02 17, 0231, 0458, 0492 

08CO 

0933 

019A 

0180,0750 

0745,0752 

0740 

0755 

074E.074F 

0739 

0450,0470,0496 

0786 

07A7 

07FA.084E 

0842 

0837 

063D 

081F, 0820, 0821 

0647,065C,08EF,08F3 

0894 

07F9.07FB, 0826, 0846 

0620, 082E, 0832, 0833 

083A.0843 

0845 

0BD0.08D2, 0805,0807,0809 

0778,0779,0786,0787 

0699, 06AA 

08CB 

02EC04A3 

0490 

048E 

0481 

0499 

0479,047A,047B 

0330,0476 

0469 

046F 

0445,0446 

0K7,02BC»0434,051E,0521 

0502 

0507, 050A 

051B 

0514 

0520 

01 78, 01CB, 1F4, 025 1,02 A 1,0282, 0284, 02C0, 02 Dl, 0336, 

0438, 07A9 

016C,01CD,01D2, 0105, 033C, 0419, 0512, O5E0,06BB,O6C9, 

06DB.07BE 

0509 

0501 

045A 

0457 

0453 

020F,0210,06F2 

02DF.0597 

058B 

0596 

0576,0579 * 

0561, 0714, 0754, 0764, 077E, 0793 
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SYMBOL 


VALUE 


ADCK 


031A 


AO 


0882 


A01 


08FA 


A02 


0856 


AREA 


0942 


CDCT 


0258 


CDTBL 


0901 


.CHECK 


0932 


CHED 


01B0 


CHGEO 


0730 


CHGO 


0737 


^HGl 


0746 


CHG2 


0750 


CHG3 


0753 


CHG4 


0756 


CKER 


0790 


CKER1 


07B3 


CKEXT 


07B9 


CODCV 


081E 


CO0C1 


0826 


C0DC2 


0638 


C0DC3 


0843 


C0DC4 


0847 


CODE 


08F8 


CODEH 


0834 


COt WD 


0650 


CODOO 


0852 


COD01 


0853 


C0D02 


0854 


CONV 


08F7 


CTCK 


079C 


CTLSW 


06B5 


CVTBL 


08FC 


CV12 


0478 


CV12A 


047E 


CV12B 


047F 


CV12C 


0488 


CV120 


0494 


CV12E 


049D 


CV8 


04 V4 


CV8A 


0460 


CV8B 


046C 


CV8C 


0472 


CYCK 


04FD 


CYCK1 


0508 


CYCK2 


0511 


CYCK3 


051F 


CYCK4 


0510 


CYCK5 


C518 


CYIND 


025B 


CYTBL 


0148 


CY197 


0526 


CY90 


0525 


C8S01 


0449 


C6S02 


0452 


C8S03 


0458 


OESW 


0260 


DIRC 


056E 


DIRC1 


0585 


DIRC2 


058C 


DIRC3 


0593 


D1RW 


059A 


OLED 


0760 


DATE 
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0760 

0770,0771 

076C 

0733.078E.079A 

076A 

0197 

0UD,06F6.0717 

0726 

0712 

0701 

0702.0721 

0709,0720 

071D 

01AF.01B2,01B5,01B8,01BB,016E,0357 

01EO,056F,O590,0607,062F,O6d7,0710,G71B,O71F,0722, 

0724 

0174,C182.02A8,0344,0398,03C8,03CA,05B8,05F3 

0168, 01 A8, 01 F7,02A6,02C5,033A, 0364, 0367, 036A, 0429, 

0SA4.05DC 

0369,C3B0,03B0 

03iD 

0394, 0395, 0396, 03BA 

C1B3, 0340, 0679 

062c 

067c 

06 75 

G65F 

0669 

0633 

OlDo,O5 7A,057E,0586,058D,050A,0605.0618,0634,O6B9, 

GiCl.OtFD, 0727, 0729 

0I5?,O161,O37A,O388,03A7,03E5,O3F4 

0361,036D,038D,03AB,03AC,03t9,03£A,03F8,03F9 

0925.0O32 

C IF r.C 260, 029F.02A4, 0207, 0308, 030E 

02M ,0348, 0300, 0406, 0408, 05BD 

03E7.O3tE.03F0 

03Ec,03F6 

03C0.03CE.03FA 

027F. 0292, 02CA, 0208, 02E2.02E6, 0326 

021c, 0559, 0750 

0537 

053C0552 

0224,0531,0541,0567 

01Bo.034F, 0683, 0759 

0632 

06AC 

0683 

055F.06F 8, 0736, 0740, 0753, 0768 

054&, 05 56. 0608, 061 9, 061 A, 06 IB, 0684, 06C7, 0601, 0761, 

076S, 0795, 0797 

052F.054F.0555 

03B4.03C1,03F2,0401 

043F 

0205 

0229,0237,0264,0270 

040A.052C0746 

04F9 

04F2 

04EC 

04E6.C4E9 

04Cb,04CC,04C0 

0403 

06-.5,0&56,08F4 

08E3 

0803 

0803 



PART NO. 2242253 
PAGE 54 



DLED1 


0768 


DLED2 


0772 


DLEU3 


0781 


0LED4 


0784 


DLE05 


0794 


OLETE 


01 AD 


DLPGM 


06E0 


OLPO 


06FB 


DLP1 


06 FD 


DLP2 


0704 


0LP3 


070C 


DLP4 


0-714 


0LP5 


0719 


DLP6 


072 7 


DONE 


01A8 


ORCT 


0599 


DRD 


0393 


DRDY 


0360 


0RD1 


03A6 


DR02 


0386 


0R03 


03C2 


ORLST 


Ot.20 


DRLS1 


062B 


DRLS2 


0636 


DRLS3 


0652 


DRLS4 


066C 


0RLS5 


0670 


DRLS6 


0679 


ORTbL 


OAFB 


OSN 


040A 


OSNR 


040C 


DSW 


0940 


OKC 


025A 


OWRT 


OiCC 


0WKT1 


03E4 


DHP.T2 


03 F 3 


OWRT 3 


0402 


ECU 


029B 


EDIT 


0529 


E0IT1 


0530 


EDIT2 


0548 


E01T3 


055B 


EDLST 


0678 


EDI.S1 


0686 


EDLS2 


069A 


EDLS3 


06B3 


EOPD 


079B 


EDTBL 


0C3C 


ENT1D 


0569 


ERR 


0429 


ERR1 


043C 


FEED 


0262 


FMT 


025E 


HBCV 


04CA 


HBCV1 


0401 


HBCV2 


04DE 


HBCV3 


04E8 


HBCV4 


04EO 


HBCV5 


0404 


HBCV6 


04DC 


HEOEC 


08C4 


HEDE1 


ObCO 


HEDE2 


0801 


HEDE3 


08DC 
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EC NO. 


411731 
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HEDE4 

HEXCD 

HFXCV 

HEXC1 

HEXC2 

HEXWD 

HEXOO 

HIST 

HOME 

IMG 

IN 



10ARA 

KA8 

KEDOO 

KF 

KFFF8 

Kl 

K200 

K201 

K3F 

K3000 

K320 

K321 

K4 

K7 

K70FF 

K8 

K81 

LCC 

LCCN 

LCD 

LCSC 

LDCT 

LDNC 

LDNS 

LDO 

LOP 

LOPD 

LDSC 

LDXA 

LED 

LHIND 

LLD 

LLL 

LOC 

LOG 



L0G01 

LOGO 2 

L0G05 

L0G06 

L01 

L01A 

L010 

L010B 

L010C 

L011 

L012 

L013 

L014 

L015 

L016 

L017 

L018 



DATE 
EC NO. 



08E5 
O8B0 
0888 
0890 
08A3 
08AA 
08AB 
OF 87 
040E 
02 5F 
OAAB 



0813 
0528 
0560 
029C 
01C2 
04A8 
061D 
061E 
031B 
02 5C 
0310 
061C 
0290 
01E3 
0250 
0527 
075F 
01 BC 
01E4 
04C2 
0418 
072F 
0590 
059B 
059E 
059C 
072E 
059F 
05A2 
01B6 
0851 
01B3 
091C 
04FA 
07BB 



07BC 
07C5 
0700 
07D6 
0189 
018F 
0201 
0213 
0222 
0231 
0234 
0240 
0247 
024A 
024t 
0264 
026A 



08C5,08C6,08C7 

0420,0630, 0662, 06A1 ,089E,08A2 

041 E, 063B, 0660, 069F.C8AB 

0891, 089A 

0889, 086A 

041C. 0639, 065A, 0690,0880 

0896,0896, 0890, 089F.08A1 

0177,0179,0185,0516,0519 

0378 

022A, 0230, 0282, 02DB, 0574 

021 5, 0226, 0220, 023A, 0230,0240, 0243, 0267, 026A, 0273, 

0279, 027C, 0286, 02EF.02F1, 0302, 031 E, 0321, 0326, 032B, 

0332, 044B, 0460, 0463, 0465. 046C, 0482, 048 5, 0489, 0494, 

04C8,0<.E1,073D 

07E8.07FC, 0805, 0807, 08 1C 

0505 

0540 

0275 

017D.07AB 

0497,049A,077A 

0613 

0615 

02F3 

0247 

0310,05CA,05D0,05E8 

05EB 

0296 

01D0 

024A 

04FF 

021A.073F 

01A6 

01CF, 0101, 0104, 0107, 0109 

02C 1,0207, 0460,0737, 0757 

01BC03SB.0427 

070E,070F,0719,071A 

0255, 02C0.02CF, 0577, 0581 

0204, 043C, 0571, 0593, 07B3 

024F.057D 

026C0573 

06FA,0708 

0252, 0202, 042E, 0583, 07A5 

0280, 0320, 058C 

01A0 

0824, 0828, 083C083F 

019D 

0917 

0400,04F3,04F7 

018F, 0209, 03B1,03BE,03EF,03FE, 0424, 050C, 0563, 0621, 

0624, 0666, 067C06A0, 0605, 06Ei, 073 1,0742, 0790, 07C2, 

07DA,07DC,07EE,07F4 

07CD.07CF 

07CB 

07BC, 0780, 0810 

01AC 

0221, 0233, 0297, 02DC07A3 

0203 

021D 

024C, 0240, 0318 

0219,0228 

0239 

023F 

0248 

0249,0246 

0257 

0266 
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1019 

L019A 

102 

L02A 

L02B 

L020 

L021 

L021A 

L022 

1023 

L024 

L025 

1026 

L027 

LU28 

L029 

LU3 

L030 

LU31 

L032 

L033 

L034 

L035 

L036 

L037 

LG38 

IG39 

104 

I. CO 

L05 

LOS 

HJ9 

1ST 

LSTCY 

M0D4 

l-.SGOA 

MSGOfc 

HSGOC 

PSGOU 

MSGOG 

MSGOF 

rtSGl 

MSG10 

KSG11 

MSG2 

MSG3 

KSG4 

MSG5 

MSG6 

HSG7 

MSG8 

KSG9 

NXTCY 

OAO 
ONE 
OPARA 
DOT 



PCO 

PCH 

PCK 

PCOUT 

PCSC 

PC SCI 

PCSC2 

PCSC3 



DATE 
EC NO. 



02 6C 

0270 

0171 

0174 

0182 

0282 

0286 

0299 

02 9F 

02A8 

02A0 

02C7 

0204 

02DF 

02E6 

02EC 

01C3 

02F5 

02F8 

0302 

0313 

031E 

0330 

0336 

0342 

0344 

0348 

C1F4 

03b0 

0109 

01F9 

01FC 

04BD 

0523 

0416 

0A43 

CA50 

GA5i- 

0A67 

0A77 

0A61 

09CA 

0A93 

0A90 

0904 

0900 

09fcB 

09F5 

09FF 

0A11 

0A1B 

0A31 

0524 

0259 
097A 
090B 
0004 



01B9 
093E 
056C 
090F 
0604 
06DF 
06F1 
06EA 



0269 

0236 

0170 

0160 

016E.0180 

0276 

028C 

0294 

029A,02tA,0311 

02A2 

02A3.02A5 

02C4 

02B6.02CC.02EB 

0209 

0283, 032F 

02E7 

018B 

02F4 

0315,0335 

02F0, 0301, 0317 

02 OE 

0271 

0324 

0211, 050F 

0341 

033E 

033F 

0194, 01E2, 0442, 07B9 

01DE 

01F6 

02E4 

04B3 

01C5,020A,02C1,04 32,04FE 

03U4,03E0,03E3,03F3,044A,044F,0454,0458 

0623 

0626 

067E 

0607 

0743 

0422,0426 

050E 

0191 

079E 

03B3 

03C0 

03F1 

0400 

020B 

0565 

06F0 

0733 

01 7E,01C3,01C9,02B8,02BE, 04 36, 0500, 0504, 0506, 0508, 

0511, 0518, 0510, 07A0 

01 FD, 0234, 024E.02FB, 0306 

099C 

08C9,08EC,08tb,08FO,08F2 

0288, 02AB.02B0, 0304, 0338, 0346, C34B.04F 5, 0520, 0534, 

0530, 0545, 0549, 0628, 062B.063F, 0649, 065E, 0664, 0668, 

066C, 06B9, 0686, 0692, 0694, 06A8.06AF, 0748 

01A3 

0931 

026E, 0530, 0550, 074A 

06E1, 0910, 0939, 093b 

01B9,0359,06EA 

06E9 

06DE.06DF 

06E> 
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PCSL 


0945 


093E 


PCSLL 


09A0 


091D 


PCSLS 


09B7 


0919 


PCSLM 


0995 


0918, 091C092C, 0996 


PCSLX 


099F 


0999, 09A9 


PCSLV 


09A3 


099B 


PCSLZ 


09A6 


0990 


PCSLO 


095D 


0914 


PCSL1 


09AC 


092D 


PCSL2 


0960 


0923,0928 


• PCSL3 


0961 


0912 


PCSL4 


0964 




PCSL5 


0968 




PCSL6 


0970 


092E 


PCSL 7 


098B 


091A.091E 


PCSL8 


0994 


091F 


PCSW 


06EC 


0609,06E4,06E8 


PCO 


091F 


091B 


PCI 


0922 


0936 


PC2 


0923 


092B 


PC 3 


092D 


092F.0937 


PID 


0146 


0AA8 


PRSN 


0816 


0701 


PRSNS 


0814 


07C5.07D5 


PRWRT 


0818 


07C4.0700 


RO 


04C8 


04A0 


RDCO 


04A9 


021 3, 0<B9,04BC,04C 1,0736 


RDCD1 


04AE 


04BO 


R0CD2 


04B5 


04BE 


RDER 


041) F 


04B6 


READ 


0412 


039B,03A2,03A5,03A6,03B6 


RESRT 


0152 


0150 


RST 


07A5 


0154 


RSTRT 


0150 


0165 


RST1 


0168 


0159 


SAVE 


04FB 


04DD,04ED,04EE 


SAVE1 


04FC 


040F.04EF 


SEEK 


0410 


0384,0386 


SEO 


056A 


0222, 053A.053F, 0543, 055C 


SHIFT 


04 A 5 


047F 


SKHM 


036B 


016A, 0187, 01 AA,033B, 0350,0371, 0377 ,042B,05A6,050E 
060C07AF 


SKHM1 


036D 


037F 


SKHM2 


0378 


0374,0370 


SKOT 


0381 


0171, 01F9.02C7, 0342, 0382, 038F, 0391, 05AE.05E5 


SK0T1 


0388 


038B 


SKST 


0380 


036F.0375 


SN 


04C4 


04AA.04AE 


SNR 


04C6 


020C,04B8,04BF 


SNSW 


01C0 


0152, 015E, 0193,0355, 07A0 


SSS 


0918 




START 


015B 


0147,0164 


TBCK 


05DA 


05C3 


TBCT 


0568 


052A, 0553, 0558, 060A,067F,06C 5, 077C, 0788, 078C,07eF 
0791 

05EE.0610 


TBISW 


061F 


TBLCN 


0618 


05FO 


TBLIN 


05DB 


0180, 060E 


TBLI1 


05E5 


05E4 


TBL12 


05ED 


0612,0617 


TBLI3 


05F3 


05E2,05EA,05EC,05F2,05FA,0601,0614,0616 


TBLI4 


05FC 


0600 


TBLI5 


0610 


0604 


TBOUT 


05A3 


05A8.05B 1,0563, 0506, 05D8.06BE.06CE 


TB01 


05AE 


05AD 


TB02 


05B8 


05AA,05B5,05C2,05C9,05CC,05CO,0505 


TB03 


05BD 


05AB,05B6,05CF, 0502, 0503 


TB04 


05D6 


05C4.05C8 


DATE 


15HAY67 




EC NO. 


411731 
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0536 

07C0.07E6 

07E7 

07E3 

07F6.080F 

0804 

07EO,07EA,07FE 

07E9.07FD 

b't'i, 06 jA.OBD! ,0806.0800 

070F,OR07,C808,080C 

0303,03DB,03DE,03E4 

0353,0602,0716,0758 

06CB.06CC 

0351. 06C2. 0715 

06bD 

330A 
3303 

3D0C 

3300, 07C6 

330E.07C9 

330F 

3300,0356 

3301 

3302 

3303 

3304 

3305, 04AB 

3306 

3307 

3308 

3309 

02fcF, 02 95, 0299, 0440, 0767 

0601 

080A 

02' ; V.O;>rF,030A,0313 

0835 

0856 

0859 

085A 

0858 
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TERM 


056B 


TWRTR 


070E 


TWRTO 


0811 


TWR01 


07E7 


THR02 


07F7 


TWR03 


0808 


TWSNS 


081A 


TWKK7 


081C 


KURD 


06F6 


NROSW 


0812 


WRITE 


0414 


WRTLD 


06C4 


KRTkl 


06CE 


HRTLO 


06b6 


WRTH 


06 bE 


W330A 


0734 


W330B 


0744 


H330C 


079F 


K3300 


07CC 


W330E 


07LE 


W330F 


07E5 


V.3300 


0192 


W3301 


020E 


W3302 


0369 


W3303 


0376 


K3304 


0420 


''3305 


04 lib 


i!3306 


04C0 


to 3 30 7 


0566 


W3308 


0608 


W3309 


06F1 


XFCT 


029F 


XIOSN 


07 FE 


XIOWR 


07FD 


ZERO 


031C 


ZUIIfc 


0858 


ZONEN 


085C 


Z0NE1 


0667 


ZUNF2 


0b72 


Z0NE3 


087C 



DATE 
EC NO. 



15MAY67 
411731 
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02BC 



3400 01 04 



ABS 
ORG 



/3400 



3401 OOAB 



3402 OOBB 



3403 00C7 



3404 00F7 



X 


) 


t 


~> 


t 


) 


t 




t 




t 




t 




• 


: 



3405 03B3 



3406 03BF 



DATE 15MAY67 
EC NO. 411731 



DIMAL SELECT/EXECUTE SECTION PROGRAM 
WAITS DESCRIPTION. 



DC 



W3400+1 



DC 



W3401+1 



W3402+1 



DC 



DC 



W3404+1 



DC 



W3405+1 



DC 



W 3406+1 



J 



WAIT 400 

PROGRAM SELECT WAIT. 
ENTER PID OF PROGRAM 
TO BE SELECTED !N OATA 
ENTRY SWITCHES 8 THROUGH 
15. IF OVERLAP MOPE OF 
OPERATION PREVIOUSLY 
INDICATED, AND THIS IS 
LAST PROGRAM TO BE 
SELECTED, THEN ALSO SET 
SWITCHES THkOUGH 7 
TO ALL 1. PRESS START. 

WAIT 401 

2310 DISK DRIVE NOT 
READY. READY 2310 AND 
CONTINUE. IF DISK ARM 
WAS MOVED, REENTER 
COLO START CALL. 

WAIT 402 

2310 DSW INDICATED AN 
ERROR ON EACH OF 3 
ATTEMPTS TO PERFORM AN 
I/O OPERATION. THE ERROR 
BITS ARE IN THE A kEu. 
REENTER COLO START CALL. 



W3403+1 WAIT 403 



2310 DSW DID NOT 
INDICATE HOMt AFTER 
A SEEK TO HOME WAS 
GIVEN. PRESS START TO 
RETRY. IF ERROR PERSISTS, 
CORRECT AND REENTER 
COLD START CALL. 

WAIT 404 

WRONG SECTOR ID WAS 
READ DURING PROGRAM 
INPUT FROM DISK SET 
1 COUNTER TO 0050 AND 
PRESS START. RES6LECT 
PROGRAM AT WAIT 400. 

WAIT 405 

2310 DISK DRIVE NOT 
READY. REAOY 2310 AND 
CONTINUE. IF 01SKARM 
WAS MOVED, RE ENTER 
COLD START CALL. 

WAIT 406 

2310 DSW DID NOT 
INOICATE HOME AFTER 
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B0200010 

80200020 

80200030 

80200040 

80200050 

80200060 

80200070 

80200080 

80200090 

80200100 

80200110 

B0200120 

80200130 

80200140 

80200150 

80200160 

80200170 

80200180 

80200190 

8020020C 

80200210 

80200220 

802002 30 

80200240 

802C02 50 

80200260 

80200270 

80200280 

80200290 

6020030C 

80200 310 

80200320 

80200330 

8020034o 

80200350 

80200360 

80200370 

80200380 

802003*0 

B0200400 

O02O04U- 

8020042 

80200430 

8020044C 

80200450 

80200460 

80200470 

80200480 

60200490 

80200500 

80200510 

80200520 

80200 530 

80200540 

80200550 

80200560 

80200570 

80200580 

60200590 

80200600 

80200610 

80200620 

80200630 

80200640 

80200650 

80200660 

80200670 

80200660 
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3407 0442 



3408 0444 



3409 045b 



340A 0424 



DC 



DC 



DC 



DC 



W3407+1 



W3408+1 



W3409+1 



W340A+1 



340b 0129 



DC 



W340B+1 



* 



340C 012A 



DC 



W340C+1 



340D 
0570 



TEMP 

* 
* 
» 
* 

* 



ORG 
EOU 



/44 
1405 



3 ATTEMPTS TO SEEK 
HOME. CORRECT AND 
CONTINUE. 

MA IT 407 

1443 NOT READY. READY 
1443 AND CONTINUE. 



WAIT 408 

1443 BUSY. THIS IS AN 
ERROR CONDI Ti ON. SHOULD 
NOT OCCUR. CORRECT AND 
CONTINUE 

WAIT 409 

1053/1816 NOT RcADY. 
READY DEVICE AND 
CONTINUE. 

WAIT 40A 

AN ERROR WAS DETECTED 
WHILE READING DISK. THE 
PRINTOUT PRECEEDING 
THIS WAIT INDICATES 
THE ERROR. REFER TU 
THE MESSAGE DESCRIPTION 
IN THE DIMAL DOCUMENTA- 
TION FOR ERROR PROCEDURE. 

WAIT 40B 

NO LAST CARD ADDRESS 
WAS SPECIFIED BY A 
USER PROGRAM. SET I 
COUNTER TO 0050 AND 
PRESS START. RESELECT 
PROGRAM. IF ERKOK PER- 
SIST, REWRITE THE PRO- 
GRAM ON DISK USING 
THE ADO PROGRAM OPTION 

WAIT 40C 

NO EDIT CARD XFER 
ADDRESS WAS SPECIFIED 
BY A USER PROGRAM. 
INSURE EDIT WAS NOT 
1NCLUDF0 FOR PROGRAM 
NOT REQUIRING EDIT. 
SET 1 COUNTEK TO 0050 
AND PRESS START. IF 
ERROR PERSISTS REWRITE 
PROGRAM ON DISK 



DIMAL SYSTEM SELECT/EXECUTE SECTION 

THE PURPOSE OF THIS SECTION IS TO 
LOCATE A REQUESTED PROGRAM ON THE DISK, 
INPUT THAT PROGRAM, MAKE AVAILABLE EDIT 
INFORMATION IF REQUIRED, AND THEN XFER 
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B0200690 
80200700 
80200710 
80200720 
80200730 
80200740 
80200750 
80200760 
80200770 
80200760 
80200790 
80200800 
80200810 
60200820 
6020083C 
80200840 
80200650 
80200860 
80200870 
80200860 
80200890 
80200900 
80200910 
80200920 
80200930 
80200940 
80200950 
60200960 
602OC97O 
80200960 
80200990 
80201000 
80201010 
60201020 
80201030 
80201040 
80201050 
80201060 
80201070 
80201080 
80201090 
30201100 
80201110 
80201120 
80201130 
80201140 
80201150 
80201160 
80201170 
80201180 
80201190 
80201200 
80201210 
80201220 
80201230 
80201240 
60201250 
80201260 
80201270 
80201260 
80201290 
80201300 
80201310 
60201320 
80201330 
B0201340 
80201350 
80201360 
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DATE 
EC NO. 



15MAY67 
411731 



PROG 
PAGE 



0802-1 
57 









* 


CONTROL 


TO THE 


DFT 


• 


80201370 










* 










8020) 380 




0044 





0200 


PIO 


DC 


/0200 




OIMAL PROGRAM ID 


80201390 




0045 





7008 


* 


MOX 


START 




SKIP OVER TABLE 


80201400 
80201410 










* 


TABLE CYTBL IS 


FILLED IN BY THE INITIAL 


80201420 










* 


LOADER 


DURING 


DIMAL PACK GENERATION. 


80201430 










* 










80201440 




0046 





0000 


CYTBL 


DC 







HEAOER/C S LOK CYL 


802014 50 




0047 





0000 




DC 







LOR/ORG CYLINDER 


60201460 




0048 





0000 




DC 







SEL/EXC CYLIIVDER 


60201470 




0049 





0000 




DC 







WORK CYLINDER 1 


80201460 




004A 





0000 




DC 







WORK CYLINDER 2 


80201490 




004b 





0000 




DC 







LOC 01R-E0T TbL CYL 


60201500 




004C 





0000 




DC 







HISTORY TRACK ADORS 


80201510 




004D 





0000 


» 


DC 







OUTPUT DEVICE INDICATOR 


60201520 
80201530 




004 E 


00 


4C00012C 


START 


BSC L 


SE01 




INITIALIZE DIKAL SEC 


80201540 










• 


LOCATIONS /50 


THROUGH /12B CONTAIN 


60201550 










* 


ROUTINES WHICH 


PROVIDE THE NECESSARY 


80201560 










* 


COMMUNICATION 


BETWEEN THE DFT'S AND 


60201570 










* 


THE DIMAL SECTION. 




80201560 










* 










80201590 










» 


THE DFT 


,S AND 


DIMAL MILL SHARE 1746 


80201600 










* 


WORDS OF CORE 


STARTING AT LOCATION 300. 


60201610 










* 


2 WORK 


BLINDERS ARE USEO FOR TtMPGRAkY 


80201620 










* 


STORAGE 


. THE CORE 


ru DISK, AND DISK TO 


60201630 










* 


CORE TRANSFERS 


ARE 


CO^TkOLFD BY A XFER 


60201640 










* 


SWITCH. 


THIS SWITCH 


IS "CNITORED feV THE 


60201650 










* 


DIMAL SECTION 


AND OPERATES IN THE 


80201660 










* 


FOLLOWING MANNER, 




60201670 










* 










80201680 










• 


SWITCH 


« DWR1TE CORE CDNTAIMNG OFT 


80201690 










* 






ON WORK CYLINDER 1. 


80201700 










* 




2) 


INPUT DI'AL INTO VACATED 


60201710 










« 






CORE 


PROM WCRK CYLINDER 2. 


60201720 










* 










60201730 










* 


SWITCH 


= 1 1 (WRITE CORE CONTAINING 


80201740 










* 






OIMAL ON WORK CYLINDER 2 


60201750 










* 




2) INPUT DFT INTO VACATfcO 


60201760 










• 






CORE 


FROM WORK CYLINDER 1. 


80201770 










* 










80201760 










« 










80201790 










« 


WRITE CORE ON 


DISK 


• 


80201800 










* 










60201610 




0050 





084B 


CMN1 


XIO 


MASKO 




MASK H-0 INTERRUPTS 


80201620 




0051 





084C 




XIO 


MASK1 




MASK L-0 INTERRUPTS 


60201630 




0052 





4069 




BS1 


HOME 




SEEK DISK TO HflMF 


60201640 




0053 





C047 




LD 


SEEK1 




SEEK FORWARD COMMAND 


80201850 




0054 





003E 




STO 


IOCC+1 




SET IN IOCC WORD 


60201660 




0055 


00 


*.580009A 




LDX 11 


XFRSW 




SET XR 1 = XFER SW 


60201870 




0057 


00 


C50000AO 




LD LI 


WKCY1 




PICKUP PROP WORK CYL 


80201880 




0059 





1803 




SRA 


3 




POSITION SEEK COUNT 


60201890 




005A 





0037 


* 


STO 


IOCC 




SET IN IOCC »ORD 


80201900 
80201910 




005B 





4047 


* 


BSI 


10 




SEEK TO PROP WRK CYL 


60201920 
80201930 




005C 





6306 




LDX 3 


6 




SET XR « NKBR SECTRS 


80201940 




005D 





C033 




LD 


WRITE 




PICKUP WRITE COMMAND 


80201950 




005E 





0034 




STO 


IOCC+1 




SET IN IOCC WORD 


60201960 




005F 


00 


6600012A 




LDX L2 


298 




SET START XFtR LOC 


60201970 




0061 





6A30 


CMN2 


STX 2 


IOCC 




SET AODRS IN IOCC WD 


60201960 




0062 





C02B 




LD 


SNS 




PICKUP CONSTANT 1 


80201990 




0063 





0200 




STO 2 







SET AS READ WORO CNT 


60202000 




0064 





C02E 




LD 


IOCC+1 




PICKUP WRITE COMMAND 


6U202010 




0065 





F032 




EOR 


K0300 




CONVERT TO RfcAD CMND 


60202020 




0066 





D02C 


• 


STO 


IOCC+1 




SET IN IOCC WORD 


80202030 
80202040 
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0067 403B 



0068 
006V 
006A 
006B 
006C 



C039 
0200 
C028 
F02C 
0026 



0060 4035 

006E 00 74010093 
0070 00 76000123 

0072 73FF 

0073 70ED 



0074 
00 75 

0076 

0077 



C02C 

902A 

1803 

001A 

C022 

0079 00 7400009A 
007B 0, C019 
007C 0016 

007U 4025 



0078 



007fc 
007F 
0080 



C018 
0013 

6306 



0081 00 660007FC 
001)3 00 7600FEOO 



0085 
0086 
0087 



6A0C 
C01B 
0200 



0088 401A 

0089 00 74FF0093 
008B 73FF 



OObC 
0080 



008fc 

008E 

008F 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

009A 

009B 

009C 

009D 

009E 

009F 

OOAO 

00A1 

00A2 



70F6 
703A 



0000 

0001 

0700 

87C0 

0701 

0000 

0000 

OOCA 

0404 

0141 

0605 

0300 

0500 

0000 

0400 

FFFC 

0480 

FF80 

0481 

0000 

0000 

0124 



BSI 

LD 

STO 

LD 

EOR 

STO 

BSI 



10 

K292 



IOCC+1 

K0300 

IOCC+1 

10 



MOX I IOCC+1 tl 

MDX 12 291 

MDX 3 -1 
MDX CMN2 



GO READ SECTOR 10 

PICKUP CONSTANT 292 
SET AS WRITE WORD CT 
PICKUP READ COCKANO 
CONVERT TO WRITE CMD 
SET IN IOCC WORD 

GO WRITE 1 SECTOR 

UPDATE SECTOR BITS 
UPDATE XFER LOCATION 
SKIP IF XFER COMPLET 
GO WRITE NEXT SECTOR 



READ DISK INTO CORE. 



CMii 



LD 

S 

SRA 

STO 

LD 

MDX 

LO 

STO 

BSI 

LD 

STO 

LOX 

LOX 

MOX 

STX 

LO 

STO 

BSI 

MOX 
MCX 
MDX 

MOX 



HKCY2 
HKCY1 
3 

IOCC 
SEEK1 
L XFRSWtO 
SEEK2 
IOCC+1 

10 

READ 

IOCC+1 

3 6 

L2 20*4 

L2 -291 

2 IOCC 

K292 

2 

10 

L IOCC+1. -1 

3 -1 
CMN3 
CMN4 



PICKUP CYL 2 ADRS 

SUB CYL I ADRS 

POSITION SEEK COUNT 

SAVE D1FF AS SEEK C7 

SEEK FORWORD IF Sw 

SKIP 

SEEK 

SEEK CMNO TO IUCC WD 



IF XFER SW » 
SACKWRD IF SW 1 



SEEK TO PROP WRK CYL 

PICKUP READ COK«AND 
SET IN IOCC WORD 
SET Xfc « NMBR SECTOR 
SET START XFtR AOORS 
UPDATE XFER ADDRESS 
SET ADDRESS IN IOCC 
PICKUP CONSTANT 292 
SET AS INPUT WORD CT 

GO INPUT 1 SECTOR 

UPOATE SECTOR BITS 
SKIP IF ALL SECT IN 
GO SETUP FOR NXT SCT 
SKIP OVER CONSTANTS 



CONSTANTS AND IOCC WORDS 



SNS 

SNSR 

IOCC 

SKHM 

SEEK2 

K321 

READ 

K0300 

WRITE 

XFRSW 

SEEK1 

MASKO 

MA SKI 

WKCY1 
WKCY2 
K292 



BSS E 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 





1 

/0700 

/87C0 

/0701 





202 

/0404 

321 

/0605 

/0300 

/0500 



/0400 

/FFFC 

/0480 

/FF80 

/0481 





292 



ALIGN TO EVEN ADDRESS 
SENSE DISK IUCC 

SENSE/RESET DISK IOCC 

COMMON IOCC WORDS 

SEEK HOME IOCC 
SEEK BACKWARD COMMAND 
CONSTANT 321 
DISK READ COMMAND 
CONSTANT 0300 HEX 
WRITE DISK COMMAND 
TRANSFER SWITCH 
SEEK FORWARD COMMAND 
MASK H-0 1NTRPT IOCC 

MASK L-0 INTRPT IOCC 

WORK CYLINDER 1 ADDRS 
WORK CYLINDER 2 ADDRS 
CONSTANT 292 
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80202050 

80202060 

80202070 

80202080 

80202090 

60202100 

80202110 

80202120 

80202130 

80202140 

60202150 

80202160 

80202170 

60202180 

80202190 

60202200 

80202210 

80202220 

80202230 

80202240 

80202250 

80202260 

802U2270 

80202280 

80202?90 

80202 300 

80202310 

80202 320 

80202330 

80202 340 

80202350 

80202360 

80202 370 

80202360 

80202390 

80202400 

80202410 

80202420 

60202430 

80202440 

80202450 

80202460 

80202470 

60202480 

80202490 

80202 500 

80202510 

80202 520 

80202530 

80202 540 

80202550 

80202560 

80202570 

80202580 

80202590 

80202600 

80202610 

80202620 

60202630 

60202640 

80202650 

80202660 

80202670 

80202680 

60202690 

80202700 

80202710 

60202720 
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00A3 

00A4 

00A5 

00A6 

00A7 

00 A 8 

OOAA 

OOAB 

OOAC 

OOAD 

OOAE 

OOAF 

008 1 

00B2 

00B3 

00B5 

O0B6 

00B7 



0000 

6814 

6303 

08E9 

1002 
00 4C1000AC 
3401 
70FA 
08E5 
06E0 
10C1 
00 4C1000A0 
08DE 
EODO 
00 4C1800B8 
73FF 
70EF 
3402 



* 
* 
10 



COMI ON DISK READ. WRITE. SEEK ROUTINi. 



W3401 
101 



00B8 00 67000000 
OOBA 00 4C8000A3 



OOBC 0000 
OOBO 0806 
OOBE 08CF 
OOBF 1001 
OOCO 00 4C1000BE 
00C2 08CD 
00C3 1004 
0OC4 00 4CA800BC 
00C6 3403 
00C7 70F5 



00C6 40F3 
00C9 CODO 
OOCA 00 4C 1801 83 
OOCC 1010 
OOCD DOCC 

OOCE C045 
OOCF 00 4C840124 

00D1 C043 
00D2 00 4C840123 

00D4 C044 
00D5 00 4C840118 



W3402 

* 
102 

* 

* 

* 

HOME 

H0ME1 



W3403 

* 

* 
* 

* 
* 

« 
CMN4 



DC 

STX 

LOX 

XIO 

SLA 

BSC 

DC 

MOX 

XIO 

XIO 

SLA 

BSC 

XIO 

AND 

BSC 

MDX 

MDX 

DC 




3 102+1 
3 3 
SNSR 
2 
L 101,- 
/3401 
10+3 
IOCC 
SNS 
1 
L 101+1,- 
SNSR 
SNSR 
L 102, ♦- 
3 -1 
10+3 
/3402 



LDX L3 
BSC I 10 



ENTRY POINT 

SAVE INDEX REG i 

SET RETRY INDEX 

SENSE DISK 5TAIJS 

POSITION READY BIT 

BRANCH IF READ* 

DISK NOT READY 

TRY AGAIN 

INITIATE DISK OPERATION 

SENSE DISK STATUS 

POSITION OP CMPLT BIT 

BRANCH TILL OP CMPLT 

RESET STATUS 

CHECK FOR ANY ERROR 

BRANCH IF NO ERRORS 

SKIP IF 3RD TRY 

TRY OPERATION AGAIN 

DSW INDICATES ERROR 

RESTORE INDEX REG 3 
RETURN TO USER 



SEEK DISK ARM TO HOME ROUTINE. 

DC ENTRY POINT 

XIO SKHM SEEK TO HOME 

XIO SNS SENSE DISK STATUS 

SLA 1 POSITION OP COMPLT SIT 

BSC L H0ME1+1.- BRANCH TILL OP COMPLT 

XIO SNSR SENSE/RESET STATUS 

SLA 4 POSITION HOMfc BIT 

BSC I HOMF.+Z RETUR TO USER IF HOME 

DC /3403 FAILED TO REACH HOME 

MOX HOME+1 TRY AGAIN 

THE FOLLOWING ROUTINE PERFORMS THE 
OPERATION REOUESTED BY THE PROGRAM WHICH 
CALLED ON THE INTERFACE SECTION OF D1MAL. 

THE INTERFACE SECTION IS ENTERED FOR 
THE FOLLOWING REASONS. 

1. DFT IS REOUESTING EDIT INFORMATION. 

2. OPERATOR INDICATES ALL DFT'S LOADED. 

3. THE NEXT DFT IS TO BE LOAOEDfcD. 

4. THE DFT'S HAVE TERMINATED OPERATION. 



BSI 
LD 

BSC L 
SLA 

STO 



LD EDSW 
BSC 1 MECD,E 



HOME RETURN ARM TO KOME 

XFRSW PICKUP TRANSFER SWITCH 

SE04.+- GO TO DISK MONITOR IF OFF 

16 CLEAR ACC 

XFRSW CLEAR TRANSFER SWITCH 

PICKUP EDIT SWITCH 
EXIT VIA VECTOR IF ON 



LD 
BSC 

LD 
BSC 



TRMSW 
I MLCD,E 



PICKUP LAST PROG SW 
EXIT VIA VECTOR IF UN 



I 



IMG PICKUP IMAGE INDICATOR 
XFER,E EXIT TO LOADED PROGRAM 



DIMAL WILL ENTER THE INTERFACE SECTION 
TO LOAD PROGRAMS STORED ON DISK IN CORE 
IMAGE. THE FOLLOWING ROUTINE PERFORMS THIS 
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80202730 

80202740 

M202750 

8O202760 

80202770 

SO2O2780 

8O2O2790 

80202600 

8O202S10 

80202820 

80202830 

80202340 

80202650 

80202860 

80202870 

80202880 

80202890 

80202900 

80202910 

80202920 

30202930 

80202940 

80202950 

80202960 

80202970 

80202980 

80202990 

80203000 

80203010 

8020302b 

80203030 

80203040 

6020 30 50 

60203060 

60203070 

8020 3080 

8020 3O90 

8O203100 

6O2O3I10 

80203120 

80203130 

80203140 

8O203150 

80203160 

80203170 

802031<i0 

80203190 

8O2O3200 

BO2U3210 

80203220 

80203230 

80203240 

80203250 

80203260 

80203270 

80203280 

80203290 

80203300 

80203310 

8O2O3320 

80203330 

80203340 

60203350 

60203360 

802O33T0 

60203380 

8020 3 3 VO 

8O2034OO 
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0007 
0006 
00U9 
OODA 
OODB 
OODC 
OODD 
OODF 
00E1 
O0E2 
00t3 
00E4 
00E5 
00 f: 6 
OOF: 7 
00 (8 



CMO 

0046 

C64C 

D845 

C03B 

OODF 
00 6700011B 
00 66800116 
C300 

0030 

1883 

0300 

S3FF 

00A8 

C0B3 

OOAA 



00E9 40B9 

OOFA COAC 

OOFb 1803 

OOEC 1083 

OOED D0A5 

OOEE 6AA3 

OOEF C0A6 

OOFO 0200 

00F1 40bl 

00F2 C020 

0GF3 F201 

00F4 00 4C1800F3 



00F6 





3404 


OOF 7 





7000 


00F8 


00 


65000140 


OOFA 





C202 


OOFB 





0200 


OOFC 





7201 


OOFO 





71FF 


OOFE 





70FB 


OOFF 


00 


74FF00BC 


0101 





7007 


0102 





40b9 


0103 





CO IB 


0104 





D020 


01 0'- 





C81A 


0106 





D81F 



0107 00 4C800118 

0109 00 74010113 
010B C087 



010C 
0100 
010E 



8081 
D085 
100D 



010F 00 4C2000EE 



0111 7301 

0112 70CE 



0113 0000 



CMN5 



CMN6 



* 
CMN7 



W3404 

* 

CMN8 

CMN9 



CMN11 



SIOCK 



LOAD. 

LD 

STO 

LOO 

STD 

LD 

STO 

LDX 

LDX 

LO. 

STO 

SRT 

STO 

S 

STO 

LD 

STO 

BS! 

LD 
SRA 
SLT 
STO 

STX 

LD 
STO 

BSI 

LD 

EOR 

BSC 

DC 
MOX 

LOX 

LD 

STO 

MOX 

MOX 

MOX 

MOX 

MOX 

BSI 

LD 

STO 

LDD 

STO 

BSC 

MOX 

LO 

A 

STO 

SLA 

BSC 

MOX 
MOX 

DC 

THE 



/0125 
/011F 
/0126 
/0120 
SECCT 
HUME 

L3 STCVL 

12 ORG 
i 
SIOCK 
3 

1 
3 -1 

IOCC 

SEEK1 

IOCC+1 

10 

READ 
3 

3 
IOCC+1 

2 IOCC 
K321 

2 

10 

SIDCK 
2 1 

L CWN8.+- 

/3404 
CMM4 



1 320 

2 2 
2 

2 1 

1 -1 
CMN9 
HOME i-l 
CMN11 

HOME 
/011F 
/0125 
/0120 
/0126 
i XFER 

SIOCK, 1 

IOCC+l 

SNS 

IOCC+l 

13 

CHN7.Z 

3 1 

CMN6 



SAVE CONSTANTS 

« 

* 

* 

PICKUP SECT COUNT 

SAVE IN WORK LOC 

SET XR = STARTING CYL 

SET XR * PROG ORG ACRS 

PICKUP STARTING CYL 

SAVE FOR SECTOR 10 CK 

SAVE SECTOR BITS 

SAVE SECTOR COUNT 

SUB PREVIOUS ADDRESS 

SET IN 10 COMMAND WO 

PICKUP SEEK FORWARD CMO 

SET IN IOCC WORD 

GO SEEK TO DFT CYL 

PICKUP READ CGMMANO 
POSITION TO ADD SECT BITS 
ADO SECTOR BITS 
SET COMMAND IN IOCC 

SET INPUT ADORS IN IOCC 
PICKUP CONSTANT 321 
STORE AS INPUT WORD CNT 

GO INPUT 1 SECTOR 

PICKUP EXPECTED SECT ID 
CHECK AGAINST ACTUAL 
BRANCH ON PROPER SID 

WRONG SECTOR READ 
TRY AGAIN 

SET MOVE INDEX 
PICKUP PROGRAM WORD 
REPOSITION TO PROP LOC 
1NCR POSITION INDEX 
SKIP WHEN ALL WDS MOVED 
GO MOVE NEXT fcORD 
SKIP IF ALL SECT *ED 
PREPARE FOR NEXT SECTOR 

RETURN DISK TO HOME 
RESTORE CONSTANTS 



GO TO PROGRAM 

INCR EXPECTED SID 
PICKUP READ COMMAND 
ADO 1 TO SECTOR BITS 
PLACE IN IOCC WORD 
SAVE ONLY SECTOR bITS 
BRANCH IF LAST SECT NOT 7 

INCR XR TO GET NEXT CYL 
GO INPUT NEXT SECTOR 



SECTOR ID CHECK LOC 

FOLLOWING LOCATIONS ARE LOADED BY 
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B0203410 

80203420 

60203430 

80203440 

80203450 

80203460 

80203470 

80203480 

80203490 

80203500 

80203510 

80203520 

80203530 

80203540 

80203550 

80203560 

80203570 

80203560 

80203590 

60203600 

80203610 

80203620 

80203*30 

80203640 

60203650 

80203660 

8020 3670 

80203660 

602036?0 

80203700 

80203710 

80203720 

60203730 

80203740 

80203750 

80203760 

80203770 

80203780 

80203790 

60203800 

80203810 

80203820 

80203930 

60203840 

80203650 

80203660 

80203670 

60203860 

80203890 

80203900 

80203910 

80203920 

80203930 

60203940 

80203950 

80203960 

80203970 

80203960 

80203990 

80204000 

80204010 

80204020 

80204030 

80204040 

80204050 

60204060 

80204070 

80204080 
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» 


THE 


DIMAL SELECT/EXECUTE SECTION. 


80204090 








* 










80204100 




0114 


0000 


EOSW 


DC 







EDIT SWITCH 


80204110 




0115 


0000 


TRMSW 

* 


DC 







LAST PROGRAM SWITCH 


80204120 
802041 30 




0116 


0000 


ORG 


DC 







OFT ORG ADDRESS 


60204140 




0117 


0000 


SECCT 


DC 







DFT SECTOR COUNT 


80204150 




0116 C 


0000 


XFER 


DC 







OFT XFER ADDRESS 


8020*160 




0119 


0000 


IMG 


DC 







DFT IMAGE ON DISK 


8020*1 70 




011A 


0000 




DC 









80204180 




•011B 


0000 


STCYL 


DC 







STARTING DISK LOC OF OFT 


80204190 




one o 


0000 




DC 







NEXT CYLINDER 


802»*200 




011D 


0000 




DC 







NEXT CYLINDER 


8020*210 




011E 






ORG 




/11F 




80204220 




011F C 


0000 




DC 







» RELOCATION FACTOR 


802042 30 




0120 


0000 




DC 







* AND CORE LIMIT 


80 2042-40 




0121 


0000 


* 


OC 







» SAVE LOCATIONS 


8020*2 50 
8020*260 




0122 




* 


ORG 




/123 




6020*2 70 
8020*280 








* 


THE 


FOLLOWING LOCATION ARE REFERENCED 


8020*290 








* 


BY DIMAL AND THE 


OFTS. 


8020*300 








• 










802O4 310 




0123 


0128 


MLCD 


DC 




W340B 


LAST PROG XFER VEC'.OR 


8020*320 




0124 


0129 


MECO 


DC 




W340C 


EDIT CARD XFfcR VcCTCR 


8020*330 




0125 


0000 


NLOC 


DC 







RELOCATION FACTOR 


8020*340 




0126 


0800 


ULIM 


DC 




/OSOO 


CORE LIMIT CONSTANT 


802O435O 




0127 


0000 


UPPER 


DC 







CORE LIMIT LOCATION 


8020*260 




0126 


340B 


W340B 


DC 




/340B 


NO LAST PROG VECTOR 


8020*370 




0129 


340C 


W340C 

• 


DC 




/340C 


NO EDIT CARD VECTOR 


8020*360 
8020*390 




012A 






OP.G 




300 




802O**00 
8020**10 










THIS 


IS 


THE MAIN 


PORTION OF THE DIMAL 


8020**2O 










SELECT/EXECUTE S 


:CTION IT WILL PERFORM 


8020**30 










THE 


NECESSARY HOUSEKFEP I NG, INPUT THE 


8020**40 










RELOCATABLE DFT«S,AND OPERATE THE 


8020**50 










CONTROL 


SWITCHES 


USED BY THE COMMUNICA- 


8020**60 










TION 


PORTION. 




8020**70 


















8020**80 




012C 


63F8 


SE01 


LDX 


3 


-8 


SET XR 3 = -7 


8020**90 




0120 00 


C700004F 




LO 


L3 


CYTBL+B 


PICKUP TABLE ENTRY 


8020*500 




012F 00 


D7O00173 




STO 


L3 


CYLTB+8 


XFER TO SAFE AREA 


8020*510 




0131 


7301 




MOX 


3 


1 


SKIP WHEN DONE 


80204520 




0132 


70FA 


* 


MOX 




SE01+1 


MOVE NEXT ENTRY 


8020*530 
8020*5*0 








* 


ADD 


AREA COOK TO 


DISK IOCC'S. 


8020*550 








* 










8020456O 




0133 00 


C4000000 




LD 


L 


/D 


GET AREA CODE FROM CALL 


8020*570 




0135 


E03F 




AND 




KF8 


REMOVE INSTRUCTION 


8020*580 




0136 


D03D 




STO 




AC 


SAVE AREA CODE 


8020*590 




0137 


6300 




LOX 


3 


13 


SET XR 3 = 13 


8020*300 




0138 


C03B 


SE02 


LD 




AC 


PICKUP AREA CODE 


6020*610 




0139 00 


EF00008E 




OR 


L3 


SNS 


OR IN DISK COMMAND 


8020*620 




013B 00 


0700008E 




STO 


L3 


SNS 


REPLACE COMMAND 


8020*o 30 




0130 


C036 




LO 




AC 


PICKUP AREA CODE 


8020*6*0 




013E 00 


EF00040C 




OR 


L3 


DSN 


OR IN OISK COMMAD 


8020*650 




0140 00 


0700040C 




STO 


L3 


OSN 


REPLACE COMMAND 


8020*660 




0142 C 


73FE 




MOX 


3 


-2 


SKIP WHEN DONE 


8020*670 




0143 


70F4 


» 


MOX 




SE02 


BUILO NEXT COMMANO 


8020*660 
8020*690 




0144 


C029 




LD 




CYLTB+3 


GET WORK CYL 1 AODRS 


6020*700 




0145 00 


D40000A0 




STO 


L 


WKCY1 


STORE IN INTERFACE SECT 


8020*T1C 




0147 


C027 




LD 




CYLTB+4 


GET WORK CYL 2 ADORS 


8020*720 




0148 00 


D40000A1 


* 


STO 


L 


WKCY2 


STORE IN INTERFACE SECT 


8020*730 
8020*7*0 








» 


DETERMINE CORE SIZE 


6020*750 








* 










8020*760 




OATE 


15MAY67 












PROG IO 


0802-1 


EC NO. 


411731 












PACE 


59A 



) > 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECT/EXECUTE SECTION (CARD) 



014A 
014B 
0140 
014F 
0150 
0151 
0152 
0153 
0155 
0157 
0158 
0159 
015A 
015B 
01 5C 
015fc 
015F 
0160 



1010 
00 D4000000 
00 04006000 
6104 
C0D5 
1001 
0003 
00 04800126 
00 74000000 
7002 
71FF 
70F7 
71FF 
7027 
00 74006000 
C002 
00C6 
7022 



0161 6000 



0162 
0)63 



61C5 
1010 



0164 00 05000175 

0166 71FF 

0167 70FC 

0168 00 440003B4 
016A 7018 



01 6B 





0000 


016C 





0000 


016D 





0000 


0161; 





0000 


016F 





0000 


0170 





0000 


0171 





0000 


0172 





0000 


0173 





6050 


0174 





0000 


0175 





F800 


0176 





0000 


0177 





0000 


0178 





0000 


0179 





0000 


017A 





0000 


017B 





0001 


017C 





FFFF 


0170 





07FF 


017E 




0000 


017E 





0000 


017F 





0740 


0180 





4C00 


0181 





0152 


0182 





009F 



SLA 
STO 
STO 
LOX 
ID 

SE03 SLA 
STO 
STO 
MOX 
MOX 
MOX 
MOX 

SE03B MDX 
MOX 
MDX 
LD 
STO 
MOX 



* 
K6000 

* 
» 
SE03A 

CLR 



DC 



16 



/6000 

4 

ULIM 

1 

ULIM 

ULIM 

0.0 

SE03B 

-1 

SE03 

-1 

SE04 

/6000.0 

K6000 

ULIM 

SE04 

/6000 



CLEAR ACC 

CLEAR LOCATION ZERO 

CLEAR LOC 6000 OR 4000 

SET 4-16K INDEX 

FETCH CORE SIZE CONST 

PUS TO NEXT CORE BLOCK 

UPOATE CORE SIZE 

STORE IN DEFINED LOC 

CHECK IF WRAP AROUND 

SIZE FOUNO - EXIT 

SKIP IF 4-16K CHECKED 

GO CHFCK NEXT BLOCK 

SKIP IF 24 OR 32K 

BRANCH 4,8 OK 16K 

SKIP IF 32K 

FETCH 24K SIZE CONSTANT 

SET PROPER SIZE 24 OR 32K 

UNCONDITIONAL BRANCH UUT 

24K CORE SIZE CONSTANT 



RESTART INSTRUCTIONS 

LDX 1 5 SET CLEAR INDEX 

SLA 16 CLEAR ACC 

STO LI KF8 CLEAR SWITCHES 

MDX 1 -1 SKIP WHEN DONE 

MOX CLR CLEAR NEXT LOCATION 

BSI L OHM INSURE DISK HOME 

MDX SE04 SKIP OVER CONSTANTS 

DIMAI CYLINDER ASSIGNMENT TABLE 



CYLTB 



0183 CCEF 

01 84 00 04000028 
0186 C8F9 



* 

BRANC 

AC 

KFR 

PIOSV 

LSTPG 

PIDRO 

MONSW 

EOTSW 

Kl 

KFFFF 

RLBA 

SNSW 

BRAN1 

K9F 

* 
« 

* 

SE04 



DC 
DC 
DC 
DC 
DC 
DC 
DC 

nc 



LOX 

DC 
DC 
DC 
UC 
Df. 
DC 
OC 
DC 
DC 
DC 

ess 

DC 
DC 
DC 
OC 
DC 



HEAOER/CS LDR CYL 

LOR/ORG CYLINDER 

SEL/EXC CYLINDER 

WORK CYLINDEK 1 

WORK CYLINDEK 2 

LOC DIR-EDT TBL CYL 

CE HISTORY CYLINDER 

OUTPUT OEVICt INOCTR 
CONSTANTS 

/50 BRANCH INSTRUCTION 

DRIVE AREA CODE 

/FBOO CONSTANT HEX FOOO 

PIO SAVE LOCATION 

TERMINATE LOAD 1NDC 

REOUESTED PRUG ID 

D1AG HON LOADED SH 

EDIT AVAILABLE INOCR 

1 CONSTANT 1 
/FFFF CONSTANT HEX FFFF 
2047 BASE RELOC FACTOR 


SENSE DATA SW IOCC 
/0740 

/4C00 RESTART INSTRUCTION 

SE03A * 

/009F CONSTANT HEX 009F 



LOCATION SE04 IS REFERENCED BY BOTH THE 
INTERFACE SECTION AND THE MAIN SELECT/ 
EXECUTE SECTION. 



LO BRANC 
STO L /28 
LOD BRAN1 



RESTORE NON MON PROG 
'RESTART INSTRUCTION 
GET RESTART INSTRUCTION 
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80204770 

80204780 

80204790 

80204800 

80204810 

80204820 

80204830 

80204840 

80204850 

80204860 

80204870 

B0204880 

80204890 

80204900 

80204910 

80204920 

80204930 

80204940 

80204950 

80204960 

80204970 

80204980 

6020*990 

80205000 

80205010 

80205020 

80205030 

80205040 

80205050 

802C5060 

80205070 

80205080 

80205090 

80205100 

80205110 

80205120 

80205130 

80205140 

80205150 

80205160 

80205170 

80205180 

80205190 

80205200 

80205210 

80205220 

80205230 

80205240 

80205250 

80205260 

80206270 

80205280 

80205290 

80205300 

80205310 

80206320 

80205330 

80205340 

80205350 

80205360 

80205370 

80205380 

80205390 

B0205400 

80205410 

80205420 

80205430 

80205440 



1 


) 




) 




) 




^> 




1 




') 




1 


) 


1 


> 


1 


"1 


1 


1 


1 



1 
1 
") 

) 
) 

■> 
■> 

") 
) 
1 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECT/EXECUTE SECTION (CARD) 



0187 00 DCOOOOOO 

0189 C0E5 
018A 1803 
018B 0004 

018C 00 440003AA 
016E 00 440003C6 

0190 0000 



0191 C0E8 

0192 00 4C1801B3 

0194 C0E6 

0195 00 04000114 



0197 00 
0199 
019A 
019B 
019C 
0190 00 
019F 
01A0 
01A1 
01A2 
01A3 
01A4 
01A5 



65000570 

C100 

1008 

1808 

D001 

66000000 

6300 

C101 

0300 

7301 

7101 

72FF 

70FA 



01A6 7101 
01A7 00 C4000001 
01A9 F002 
01AA 00 4C1801B0 
01AC 69EB 
01A0 00 7401009A 
01AF 6050 

01B0 1010 
01B1 D0C8 
01B2 7CFA 



01B3 1010 
01B4 00 04000114 
01B6 00 65000570 
01B8 69DF 

01B9 COBC 
01BA 00 4C1B01C1 



01BC 
01BD 
01BE 



D0B3 
1010 
DOB 7 



01BF 00 4C0001F7 



01C1 
01C2 
01C3 



C0B5 
F0B9 
1008 



01C4 00 4C2001CD 
01C6 00 D4000125 
01C8 OOAE 
01C9 DOAF 
01CA 00 74010115 
01CC 70E0 



STD 
LO 
SRA 
STO 

* 

BSI 

SE04A BSI 
OC 



SET IN LOCS AND 1 

CYLTB+4 WORK CYL 2 ADDRESS 

3 POSITION SEEK COUNT 

SE04A+2 SET IN SEEK CALL 

OROY CHECK DISK READY 

OSK SEEK TO WORK CYL 2 

SEEK COUNT 



* 
SE06 



SE07 
SE08 



CHECK IF EOIT INFORMATION IS BEING 
REQUESTED. 



LD 
BSC 
LO 
STO 

LDX 

LD 

SLA 

SRA 

STO 

LDX 

I.OX 

LO 

STO 

MDX 

MOX 

MDX 

MDX 



MDX 
LD 
EOR 
BSC 
STX 
SE08A MDX 
LDX 



L2 
3 
1 
3 
3 
1 
2 



SE09 



* 

* 
* 
SE10 



SLA 
STO 
MOX 



EOTSW 
SE10,*- 
Kl 
EDSW 

T=MP 





8 

SE07+1 





1 



1 
1 
-1 

SE08 

1 

/l 

KFFFF 

SE09,*- 

SE06+1 

XFRSW.l 

/50 

16 

CDTSW 

SE08A 



PICKUP EDIT AVAL 1»0 
PRANCH IF NO EOIT 
PICKUP CONSTANT 1 
SET INTERFACt EDIT 5W 

SET XR « INPUT AREA 
PICKUP DATA INO KWRD 
REMOVE PIO 
POSITION DATA COCfcT 
SET IN LOX INSTRUCT*! 
SET XR « EC-IT OAT* CT 
SET MOVE XR = O 
PICKUP EDIT ENTRY 
PLACE IN LDC AND Vi> 
INCR MOVE H.UEX 
INCR IN AREA INDEX 
SKIP WHEN ALL WOS MfjVfeP 
GO MOVE NEXT hORD 

ADJ INDEX FOK NXT CARD 
PICKUP LOCATION 1 
CHECK IF EOIT TER* 
BRANCH IF T'KH 
SAVc XR 1 Fr* NXT CO 
SET TRANSFER SWITCH 
GO TO INTERFACE SECT 



CLEAR ACC 
CLEAR EDIT 



AVAIL IND 



PREPARE TO EXIT 



CHECK IF PROGRAM TO BE LOAOEO.Ok 
LAST PROGRAM XFER SHOULD OCCUK. 



IF 



SLA 16 CLEAR ACC 

STO L EOSW CLEAR INTRFACE EOT SW 

LDX LI TEMP RESTORE EDIT HANDLING 

STX 1 SE06+1 » INDEX INSTRUCTION 

LO PIOSV PICKUP PIO fcOLD LOC 

BSC L SE11.+- BRANCH IF NO PIO WAIT 

STO PIDRO SET PIO IN RJOUEST LOC 

SLA 16 CLEAR ACC 

STO PIDSV CLEAR PID HOLD LOC 

BSC I SE19+2 GO INPUT PRCt»RAM 



* 
SE11 



LO LSTPG PICKUP LAST ?ROG IKD 

EOR KFFFF CHECK IF INDICATOR ON 

SLA 8 POSITION FOR CHECH 

BSC L SE12,Z BRANCH IF NOT LST PGM 

SE11A STO L NLOC CLEAR RELOCATION ADRS 

STO LSTPG CLEAR LAST PkCG S* 

STO MONSW CLEAR DM LOADED Sk 

MOX L TRMSWtl SET INTERFACE TEKK SW 

MOX SE08A PREPARE TO EXIT 

* 
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80205450 

80205460 

80205470 

60205480 

B0205490 

80205500 

80205510 

80205520 

80205530 

80205540 

80205550 

60206560 

80205570 

80206580 

80205590 

8020 5600 

80205610 

80205620 

60205630 

80205640 

80205650 

80205660 

80205670 

80205680 

80205690 

80206/00 

80i05710 

80205720 

80205730 

80205740 

80205750 

60205760 

80205770 

80205760 

80205790 

B02058OO 

60205bl0 

80205820 

80205830 

80205840 

80205650 

80205860 

£0205670 

80205860 

80205890 

80205900 

80205910 

80205920 

80205930 

80205940 

80205960 

80205960 

80205970 

80205960 

80205990 

80206000 

80206010 

80206020 

802060 30 

80206040 

80206060 

60206060 

60206070 

60206060 

80206090 

802061C0 

80206110 

80206120 



DATE 
EC NO. 



15MAY67 
411731 



PROG 10 
PAGE 



0302-1 
60 



OATE 

EC NO. 



15MAY67 
411731 



PROG 10 
PAGE 



0802-1 
60A 



t < c c c c <<<(<<<<< c <<< c < c < c c << c c < 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECT/EXECUTE SECTION (CARDI 

» RFOUEST PIO OF NEXT PROGRAM 



01CI) 





1010 


SE12 


SLA 




16 


CLEAR ACC 


01CE 


oo 


D4000115 


jf 


STO 


L 


TRMSW 


CLEAR INTERFACE SW 


0100 


00 


44000430 


SE13 


BSI 


L 


LOG 


PRINT ENTER PID 


01D2 





04FE 


* 


DC 




MSG01 


MESSAGE ADDRESS 


01D3 





3400 


W3400 

4 


OC 




/3400 


WAIT TO SELECT PID 


01D4 





08A9 




XIO 




SNSW 


SENSE DATA SWITCHES 


0105 





1888 




SRT 




8 


POSITION TERM SITS 


0106 





i)0AO 




STO 




LSTPG 


SAVE TERM BITS 


0107 





1010 




SLA 




16 


REMOVE TERM BITS 


01DB 





1068 




SLT 




e 


RETRIEVE PIO 


01D9 


00 


•.C1801C1 




BSC 


L 


SE11.+- 


BRANCH IF PID 


G1DB 





}0A6 




CMP 




K9F 


CHECK IF MONITOR PGM 


01DC 





7002 




MDX 




SE14 


NON MONITOR PROG 


01UI) 





700B 




MDX 




SE16 


MONITOR PROG 


010E 





7 00 A 


$ 


MDX 




SE16 


MONITOR PROG 








» 


NON 


MONITOR PROGRAM SELECTED 


010F 





1)098 


SE1A 


STO 




PIDRO 


SAVE PIO REQUEST 


01F0 





.010 




SLA 




16 


CLEAR ACC 


01E1 





1)097 


# 


STO 




MONSW 


CLEAR MON LOADED SW 


01E2 


00 


'.40002D2 


SE15 


BSI 


L 


DIRS 


GO SEARCH OIK FOR PI i 


01L4 


00 


'.4000327 




BSI 


L 


EDTS 


GO SEARCH EDIT TABLE 


01F6 


00 


"'401009A 




MDX 


L 


XFRSWtl 


SET TRANSFER SWITCH 


Clf 8 





(.050 




LDX 




/50 


GO TO INTERFACE SECT 



01F9 


00 


'4000179 


01F8 





'009 


01EC 





i)08E 


GIFD 





'004 


01FE 





'003 


01FF 





008ft 


Glf-0 





f.btifl 


01F1 





"'OFO 



01F2 1)083 
OIF 3 C087 
01 F4 "'OF A 



01F5 00 04000178 
01 F7 00 «-4000202 



SE16 



SE17 



» 
» 
» 
SE18 



# 
* 
* 
SE19 

* 
» 

« 

* 
* 
* 



MONITOR DFPENDENT PROGRAM REOUESTED. IF 
DIAG MONITOR HAS NOT BFEN PREVIOUSLY 
LOADED, DIMAL WILL LOAD IT BEFORE LOADING 
THE REOUESTED PROGRAM. 

MDX L MONSW.O SKIP IF MON NOT LOADED 

MDX SE19 MONITOR IN CONTINUE 

CMP Kl CHECK IF PID IS DM 

MDX SE18 NOT DIAG MON PID 

MDX SE18 NOT DIAG MON PID 

STO PIDRO SAVE DIAG MON PID 

STX MONSW SET MONITOR LOADED SW 

MDX SE15 GO INPUT DIAG MONITOR 

DIAG MONITOR NOT LOADED. SAVE REOUESTED 
PID AND INPUT DIAG MONITOR. 

STO PIDSV SAVE REOUESTED PID 
LD Kl PICKUP DIAG MON PID 

MDX SE17 SETUP TO INPUT OK 

DIAG MONITOR HAS BEFN LOADED. INPUT 
REQUESTED MONITOR OEPENDENT PROGRAM. 



STO 
BSI 



L PIDRO 
L DIRS 



SAVE REQUESTED PIO 
GO SEARCH D1R FOR PID 



THE FOLLOWING SECTION INPUTS THE MONITOR 
DEPENOFNT PROGRAM, POS IT IONS IT IN CORE 
ADDING RELOCATION FACTORS IF REQUIRED, 
AND CHECKS FOR EXCEEDING CORE LIMITS. 



COMPUTE RELOCATION FACTOR. 
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80206130 
80206140 
80206150 
80206160 
80206170 
80206180 
80206190 
80206200 
80206210 
8020622C 
80206230 
80206240 
80206250 
80206260 
80206270 
80206280 
80206290 
80206300 
80206310 
80206320 
80206330 
80206340 
80206S50 
80206360 
80206370 
8020638C 
80206390 
80206400 
80206410 
80206420 
80206430 
80206440 
80206450 
80206460 
80206470 
80206480 
80206490 
80206500 
80206510 
80206520 
80206530 
60206540 
80206550 
80206560 
80206570 
80206580 
80206590 
802066CO 
80206610 
80206620 
80206630 
80206640 
80206650 
80206660 
80206670 
80206680 
80206690 
80206700 
80206710 
60206720 
80206730 
80206740 
80206750 
60206760 
80206770 
80206780 
60206790 
80206800 



) 



> 



) ' 

t > 

") > 

) I 

) ' 

"> ""> 

) . ) 

) I 

I ' 

~> ' 

~) > 

~> ) 

") 1 



) 


") 
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"> 


") 


■> 
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01F9 00 C4000125 
01FB 00 9400017D 
01FD 00 D4000127 



PART NO. 
PAGE 



2242253 
61A 



01FF 


00 


440003B4 


0201 


00 


6700011B 


0203 





6B01 


0204 


00 


67000000 


0206 





C300 


0207 





DOOF 


0203 





1603 


0209 





1003 


020A 





D300 


020B 





93FF 


020C 





1803 


020D 





0004 



020E 00 74010205 



0210 00 440003C6 
0212 0000 



0213 00 440003D4 

0215 0141 

0216 057B 

0217 0000 



0218 C05F 

0219 D05C 
021A 00 65000570 
021C 6901 

02 ID 00 65000000 
021F 62P0 



0220 C100 

0221 D250 

0222 7101 

0223 7201 

0224 70FB 

0225 69F8 

0226 00 440002B1 

0228 00 C4000002 
022A E049 
0228 D049 
022C 00 4C 1802 79 



DATE 
EC NO. 



15MAY67 
411731 



PROG ID 
PAGE 



0802-1 
61 



022E 


6209 


022F 


6100 


0230 


6A08 


0231 


C100 


0232 00 


84000127 


0234 


D100 


DATE 


15MAY67 


EC NO. 


411731 



* 










80206810 






LD 


L 


NLOC 


PICKUP NEXT LOCATION 


80206620 






S 


L 


RLBA 


SUB BASE CONSTANT 2047 


80206830 






STO 


L 


UPPER 


SAVE IN RELOCTE CONST 


80206840 




» 










60206850 






BSI 


L 


DHM 


SEEK DISK TO HOME 


80206860 






LDX 


L3 


STCYL 


SET XR - CYL WORD 1 


80206870 






STX 


3 


SF20+1 


SAVE INDEX REG 3 


80206880 




* 










60206890 




SE20 


LDX 


L3 





SET XR TO PROP CYL WD 


80206900 






LD 


3 





PICKUP CYLINDER ADRS 


80206910 






STO 




SE22+4 


SAVE FOR READ CALL 


80206920 






SRA 




3 


REMOVE SECTOR BITS 


80206930 






SLA 




3 


REPOSITION CYL NMBR 


80206940 






STO 


3 





SAVE NMBR FOR FOL CKS 


80206950 






S 


3 


-1 


SUBTRACT PREVIOUS CYL 


80206960 






SRA 




3 


POSITION SEEK COUNT 


80206970 






STO 




SE21+2 


SET IN SEEK CALL 


80206980 






MDX 


L 


SE20+1,1 


ADJ FOR NEXT CYLINDER 


80206990 















80207000 




* 


SEEK 


TO 


CYLINDER 


CONTAINING DFT. 


80207010 




* 










80207020 




SE21 


BSI 


L 


DSK 


DISK SEEK CALL 


8020 7030 




* 


DC 







SEEK COUNT 


80207040 
80207050 




* 


READ 


1 SECTOR CONTAING OFT 


602070oO 




• 










80207070 




SE22 


BSI 


L 


DRD 


READ DISK CALL 


80207080 






DC 




321 


WORD COUNT 


80207090 






DC 




TEMP-2 


INPUT AREA 


80207100 






DC 







SECTOR ADDRFSS 


80207110 




» 










80207120 




* 


CONVERT 


DATA AND 


PLACE IN PROPER CORE 


80207130 




* 


LOCATIONS. 




80207140 




* 










80207150 






LD 




K4 


PICKUP CONSTANT 4 


60207160 






STO 




COCT 


SET AS CARD COUNT 


80207170 






LDX 


LI 


TEMP 


INITIALIZE INPUT 


80207180 






STX 


1 


SE23+1 


* AREA INDEX INSTRN 


80207190 




* 










80207200 




SE23 


LDX 


LI 





SET XR = PROP IN AREA 


80207210 






I.OX 


2 


-80 


INITIALIZE MOVE XR 


80207220 




* 










802072 30 




* 


TRANSFER 1 CARD 


10 CONVERSION AREA 


80207240 




» 










80207250 




SE24 


LD 


1 





GET WRD FROM IN AREA 


80207260 






STO 


2 


60 


SET IN CONVERT AREA 


802072 70 






MDX 


1 


1 


INCREMENT INPUT INDEX 


80207280 






MDX 


2 


1 


SKIP WHEN 1 CD MOVED 


80207290 






MDX 




SE24 


MOVE NEXT WORD 


80207300 




» 










60207310 






STX 


1 


SE23+1 


SAVE INDEX REG 1 


80207320 




* 










80207330 






BSI 


L 


CV12 


CONVERT CD TO BINARY 


80207340 




« 










80207350 






LD 


L 


2 


PICKUP WORD COUNT LOC 


80207360 






AND 




KOOFF 


SAVE WORD COUNT 


80207370 






STO 




WDCT 


STORE WORD CUUNT 


80207380 






BSC 


L 


XFRCD.+- 


BRANCH IF XFER CARD 


80207390 




* 










80207400 




« 


MOVE 


CARD TO PROPER LOCATION. 


60207410 




• 










80207420 






LDX 


2 


9 


INITIALIZE XR 2 


80207430 






LDX 


1 





INITIALIZE XR 1 


80207440 






STX 


2 


SE25+1 


SAVE INDEX REG 2 


80207450 






LD 


1 





PICKUP CARD ADDRESS 


80207460 






A 


L 


UPPER 


ADD IN RELOCATION 


60207470 






STO 


1 





SAVE ADDRESS 


80207480 

PROG ID 
PAGE 


0802-1 
61A 



N 
E 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECT/EXECUTE SECTION (CARDI 



0235 00 66800000 
0237 6A15 
023b 00 C5000000 
023A 0200 
0231! 6A3B 
023C C03A 
0230 00 F4000126 
023F 00 4C200247 



0241 00 44000430 
02'-3 0527 

0244 1010 

0245 00 4C0001C6 



024 7 7201 

0248 7101 

0249 00 74FF0275 
024B 70EC 



024C 00 
024E 
024F 
0250 



0251 
02*2 



0253 00 



0255 

0256 

0257 

0258 

0259 



67000000 

62FA 

6108 

C209 

1002 

0209 

4C02026F 

7301 

71FF 

70F8 

7201 

70F5 



025A 00 74FF0276 
025C 70C0 



0250 00 74FF0117 
025F 7008 



0260 00 44000430 

0262 0537 

0263 1010 

0264 00 04000177 
0266 00 4C0001B3 

0268 00 74010217 

026A COAC 

0266 1000 

026C 00 4C 180204 

026E 70A4 



SE25 



LOX 12 SET XR 2 = ADDRESS 

STX 2 SE27+1 SAVE INDEX REG 2 

LO LI LOAO DATA WORD 

STO 2 PLACE IN PROPER LOC 

STX 2 CRLMT MAKE AVAIL XR 2 

LD CRLMT GET XR 2 SETTING 

EOR L ULIM CHECK FOR EXCEED CORE 

BSC L SE26.Z BRANCH IF AOORS OK 

EXCEEDED CORE. GO TO P1AG MON TO RUN 
PREVIOUSLY LOAOED DH'S. 



* 
* 
* 
SE26 



SE27 



SE28 



SE29 



BSI 
DC 



SLA 
BSC 



L LOG PRINT EXCEEDED CORE 

MSG06 MESSAGE ADDRESS 

16 CLEAR ACC 

L SF11A EXIT 



CONTINUE DATA POSITIONING. 



MDX 2 1 

MOX 1 1 

MDX L WOCT.-l 

MOX SE25 



INCR OATA XR 
INCR POSITION XR 
SKIP IF ALL WDS MOVED 
GO MOVE NEXT OATA WD 



CARD POSITIONED IN CORE. ADD IN RELOCA- 
TION FACTOR AS REQUIRED. 

LDX L3 SET XR « RELOCATE ADRS 

LOX 2 -6 SET FOR 6 CTRL WORDS 

LOX 1 8 8 LOCATIONS PER WORD 

LD 2 9 PICKUP CONTRUL WURO 

SLA 2 POSITION RFLOCATE BIT 

STO 2 9 SAVE REMAINDbk OF WORD 

BSC L SE31.C BRANCH IF RELOCTE REOD 

MDX 3 1 ADD 1 TO ORG ADDRESS 

MDX 1 -1 SKIP IF CTRL WRO CKD 

MDX SE28 CONTINUE CTRL WRD CK 

MDX 2 1 SKIP IF ALL CTRL WRD CKD 

MDX SE28-1 GO CHFCK NXT CONTL WORD 

1 CARO OF DATA TRANSFEREO TO PROPER 
LOCATION. CHECK IF 4 DATA CARDS ON THIS 
SECTOR TRANSFERED. 



MDX L C0CT»-1 
MDX SE23 



SKIP IF 4 CROS XFERD 
GO MOVE NEXT CARD. 



1 SECTOR OF DATA MOVED. SET UP FOR NEXT 
SECTOR. 

MDX L SECCT.-l OECR SECTOR COUNTER 
MDX SE30 NOT LAST SECTOR GO 

ALL SECTORS READtNO END CARD FOUNO. 



8SI 
DC 



L LOG 
MSG07 



SLA 16 
STO L LSTPG 
BSC L SE10 



SE30 


MDX 


L 


SE22+4tl 




LD 




SE22+4 




SLA 




13 




BSC 


L 


SE20.+- 




MOX 




SE22 



PRINT PROG LOAD ERR 
MESSAGE ADDRESS 

CLEAR A REG 

CLEAR LAST PROG SW 

GO TO RESELECT P1D 

ADD 1 TO SECTOR BITS 
PICKUP SECTOR ADDRS 
POSITION SECTOR BITS 
GO SETUP FOR NXT CYL 
GO READ NEXT SECTOR 
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80207490 

80207500 

80207510 

80207520 

80207530 

80207540 

80207550 

80207560 

80207570 

80207580 

80207590 

80207600 

80207610 

80207620 

80207630 

80207640 

80207650 

80207660 

80207670 

80207680 

80207690 

80207700 

80207710 

80207720 

80207730 

80207740 

80207750 

802077oO 

80207770 

80207780 

80207790 

80207800 

80207B10 

80207820 

80207830 

80207840 

80207850 

80207360 

80207870 

80207880 

80207890 

80207900 

80207910 

80207920 

80207930 

80207940 

80207950 

80207960 

80207970 

80207980 

80207990 

80208000 

80208010 

80208020 

80208030 

80208040 

80208050 

80208060 

80208070 

80208080 

80208090 

80208100 

80208110 

80208120 

80208130 

80208140 

80208150 

80208160 



) 
) 


) 
) 


) 




) 

) 


) 


") 


) 



•> ) 



') 


~> 


) 


) 


"t 


1 

) 


") 


) 


) 


) 


) 


) 


') 


1 


) 


} 


1 . 


1 


t 


•» 


") 


1 


} 


1 




) 


'■ : 


■> 


i 


") 


""i 


^ 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECT/EXECUTE SECTION (CARD) 



026F C300 
0270 00 84000127 
C272 D300 
0273 70E1 



0274 

0275 

0276 

0277 

0278 



OOFF 
0000 
0000 
0000 
0004 



0279 00 C4000000 
0278 00 8400017B 
027D 00 84000127 
027F 00 D4000125 

0281 00 C 4000003 
0283 00 84000127 
0285 00 D4000118 



0287 00 44000327 
0289 00 C4000116 
028B 00 84000127 
028D D001 
028E 00 67000000 



0290 
029i 
0292 00 

0294 

0295 

0296 

0297 00 
0299 
029A 
029B 
02 9C 
029D 00 
029F 
02A0 00 
02A2 00 



02A4 
02A5 
02A6 
02A7 
02A8 
02A9 
02AA 
02AB 
02AC 



7301 

C300 

F400017C 

4820 

70FA 

7307 

65000570 

C100 

1008 

1808 

D001 

66000000 

C102 

F400017C 

4C1802AD 



72FD 
7104 
C100 
D300 
7101 
7301 
72FF 
70FA 
70EC 



* 

* 
SE31 



ADD RELOCATION FACTOR TO POSITIONED 
PROGRAM. 



LD 
A 

STO 
MOX 



3 PICKUP RELOCTABLE *0 

L UPPER ADD RELOCATION FACTOR 

3 REPLACE WORO 

SE29 CONTINUE 



* 

* 

KOOFF 

WOCT 

CDCT 

CPLMT 

K4 

* 

* 

* 

XFRCO 



CONSTANTS 



SE32 

* 
e 
* 
* 
SE33 



SE34 



SE35 



SE36 



DC 
OC 
DC 
DC 
DC 



/OOFF 





4 



CONSTANT HEX OOFF 
CARD WORD COUNT 
SECTOR CARD COUNT 
CORE LIMIT CK LOC 
CONSTANT 4 



FOLLOWING SECTION SERVICES THE END CARD 



LD 
A 
A 
STO 



L 

L Kl 

L UPPER 

L NLOC 



LD L 3 

A L UPPER 

STO L XFER 



PICKUP CARD ADDRESS 
ADD 1 

ADD RELOCATION FACTOR 
SET AS NEXT PROG LOC 

PICKUP XFER ADDRESS 
ADD RELOCATION FACTOR 
SET IN XFER VECTOR 



FDIT THE PROGRAM JUST LOADED. 

BSI L EDTS GO SEARCH EDIT TA9LE 

LD L ORG GET PROGRAM URG ADDRESS 

A L UPPER ADD RELOCATION FACTOR 

STO SE32+1 SET IN LOAO XR COMMAND 

LDX L3 SET XR 3 ' ORG AOORESS 

FIND EDIT INPUT AREA FOR PROGRAM JUST 
LOADED. 

MDX 3 1 INCREMENT TO SEARCH MLSCF 

LD 3 GET MLSCF TAdLE tNTRY 

EOR L KFFFF CHECK IF TABLE TEP.M WORD 

BSC Z SKIP IF TERM WORD FOUKD 

MOX SE33 GO CHECK NEXT LUCaTION 

MDX 3 7 SKIP DM NO-<K LOCATIONS 

LDX LI TEMP SET XR = LOC OF EDIT OATA 

LD 10 PICKUP INDICATOR liORD 

SLA 8 REMOVE P1U 

SRA 8 REPOSITION DATA COUNT 

STO SE35+1 SET IN LOAO XR COMMAND 

LDX L2 C SET XR = EDIT COUfcT 

LO 12 GET EOIT CARD SEC fcORD 

EOR L KFFFF CHECK IF TERMINATOR 

BSC L SE37t+- BRANCH IF TERMINATOR 

STORE EDIT DATA IN PROGRAM. 

MDX 2 -3 ADJUST DATA COUNT 

MDX 1 4 SKIP EOIT CONTROL WORDS 

LD 10 GET EOIT WORO 

STO 3 SET IN PROGRAM 

MDX 1 1 ADJUST LOAO INDEX 

MDX 3 1 ADJUST STORE INDEX 

MDX 2 -1 SKIP WHEN ALL DATA MOVED 

MOX SE36 GO MOVE NEXT WORO 

MDX SE34 GO CHECK NEXT CAKO 

PROGRAM EDITED. SETUP FOR OM XFfcR 
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80*08170 

80206180 

80208190 

60208200 

60208210 

60*08220 

60208230 

6O2O6240 

60*08250 

8020b 260 

80*08270 

80208280 

80208290 

00208300 

60208310 

60*08320 

60208330 

80*06340 

8O208350 

60208360 

6O20837O 

6O2G63S0 

60.06390 

80206400 

(■0208410 

602Ce420 

80*08430 

60206440 

80208450 

60 208 460 

80203470 

60208460 

802G S 490 

60208500 

BO2O6510 

60208520 

80208530 

60206 540 

8C20S550 

60 20 o 560 

60*06 570 

60208580 

60208590 

60*08600 

80*08610 

6O208620 

6C208630 

80208640 

80208650 

80206660 

60206670 

60*06680 

6O206690 

80208700 

60208710 

80206720 

6O20H730 

60208740 

60206750 

6C20o760 

6O208770 

80208780 

80208790 

60206600 

eO208810 

80208820 

80208830 

6O20B640 



DATE 
EC NO. 



15MAY67 
411731 



PROG ID 
PAGE 



0602-1 
62 



DATE 
EC NO. 



15MAY67 
411731 



PROS 10 
PAGE 



0802-1 
62A 



N 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOX THE 1800 SYSTEM 



SELECT/EXECUTE SECTION (CARD) 



ON EDIT TERM CARD 



02A0 


10 


6D000198 


* 
SE37 


STX 


LI 


SE06+1 


SAVE LOC OF TERM CARD 


02AF 


CO 


4C0001AD 




BSC 


L 


SE08A 


GO DO PROG ENO XFER 








# 


THIS 


ROUTINE CONVERTS THE 12/4 FORMAT 






" 


* 


CARD 


IMAGES ON DISK, TO CORE IMAGE. 


02H1 


C 


0000 


CV12 


DC 







ENTRY POINT 


0262 


I 


6915 




STX 


1 


CV12D+1 


SAVE XR 1 


0263 


C 


6A16 




STX 


2 


CV12D+3 


SAVE XR 2 


0264 


C 


6617 




STX 


3 


CV12D+5 


SAVE XR 3 


02B5 


C 


6168 




LDX 


1 


-72 


SETUP WOKO INDEX 


0266 


c 


6300 




LDX 


3 





SETUP STORE INDEX 


0267 


c 


62FD 


CV12A 


LDX 


2 


-3 


SETUP SHIFT INDEX 


0260 


CO 


C60002D2 


CV12B 


CD 


L2 


SH1FT+3 


GET SHIFT INSTRUCTION 


02BA 


c 


D004 




STO 




CV12C 


SET IN ROUTINE 


C?BB 


c 


C149 




LD 


1 


73 


PICKUP 2ND HALF WORD 


02BC 


c 


18D0 




RTE 




16 


SET IN REG 


0260 


c 


C148 




LD 


1 


72 


PICKUP 1ST HALF WORD 


026E 


c 


1804 




SRA 




4 


POSITION 


026F 


c 


1000 


CV12C 


SLA 







PACK A AND 


02C0 


c 


0300 




STO 


3 





STORE CONVERTED WORD 


02C) 


I 


7301 




MDX 


3 


1 


MODIFY STORE INDEX 


02C2 


c 


7101 




MDX 


I 


1 


MODIFY WORD INDEX 


02C3 


c 


7201 




MDX 


2 


1 


MODIFY SHIFT INDEX 


02C4 


c 


70F3 




MDX 




CVl?fi 


GO CONVERT NXT WO*D 


02C5 


c 


7101 




MDX 


1 


1 


MODIFY FOR NXT GROUP 


02C6 


c 


70F0 


Jft 


MDX 




CV12A 


GO CONVERT NXT G*OUP 








« 

CV12D 


CONVERSION COMPLETE 


02C7 


CO 


65000000 


LDX 


LI 





RESTORE XR 1 


02C9 


oo 


660000CO 




LDX 


L2 





RESTORE XR 2 


02C6 


00 


67000000 




LDX 


L3 





RESTORE XR 3 


02CD 


00 


4C8002B1 


$ 


BSC 


I 


CV12 


RETURN TO USER 


02CF 





1064 


SHIFT 


SLT 




4 


SHIFT LEFT 4 CONSTANT 


0200 


IJ 


1068 




SLT 




8 


SHIFT LEFT 6 CONSTANT 


0201 





108C 


g 


SLT 




12 


SHIFT LEFT 12 CONSTAN 








* 


ROUTINE 


DIRS IS USED TO INPUT THE 








* 


LOCATION DIRECTORY, SEARCH IT FOR THE 








* 


REQUESTED PI!) Af.D 


PLACE THE CONTROL 








* 


WORDS FOUND .*N THE INTERFACE SECTION. IF 








* 


THE 


PID 


IS NUT FOUND IN THE DIRtCTORY, 








« 


AN ERROR MESSAGE 


WILL OCCUR, AND THE 








* 


ROUTINE 


RETURNS TO ALLOW ANOTHER PID TO 








* 
* 
DIRS 

* 
» 


BE SELECTED 




02D2 





0000 


DC 







ENTRY POINT 








SEEK 


TO 


LOCATION 


DIRECTORY CYLINOER 


02D3 


00 


C4000170 




LD 


L 


CYLTB+5 


DIRECTORY CYLINDER 


02D5 


c 


DOOC 




STO 




DIRS2+4 


SET IN READ CALL 


0206 


00 


9400016F 




S 


L 


CYLTB+4 


SUBTRACT WRK CYL 2 


02D8 





1803 




SRA 




3 


POSITION SEEK COUNT 


0209 


c 


0003 




STO 




DIRS1+2 


SET IN SEEK CALL 


0?DA 





DOOC 




STO 




DIRS3+2 


SET IN SEEK CALL 


02D6 


CO 


4400C3C6 


0IRS1 


BSI 


L 


OSK 


GO SEEK DISK 


02DD 


c 


0000 


4 


DC 







SEEK COUNT 


02DE 


CO 


4400:304 


DIRS2 


BSI 


L 


ORD 


GO INPUT DIRECTORY 


02E0 


c 


0141 




DC 




321 


WORD COUNT 


02E1 


c 


OS78 




DC 




TEMP-2 


INPUT AREA 


02E2 


c 


0000 




DC 







SECTOR ADDRESS 



DATE 
EC NO. 



15MAY67 
411731 
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80208850 
8020B660 
80208870 
80208880 
80208890 
80208900 
80206910 
80208920 
80208930 
80208940 
80208950 
80208960 
80208970 
80208980 
80208990 
80209000 
80209010 
80209020 
80209030 
80209040 
80209050 
80209060 
8020070 
80209080 
80209090 
80209100 
80209110 
80209120 
80209130 
80209140 
80209150 
80209160 
80209170 
80209180 
80209190 
80209200 
80209210 
60209220 
80209230 
80209240 
80209250 
60209260 
80209270 
80209260 
80209290 
802C9300 
80209310 
80209320 
80209330 
80209340 
80209350 
80209360 
80209370 
60209380 
80209390 
80209400 
80209410 
80209420 
80209430 
80209440 
80209450 
80209460 
80209470 
80209480 
80209490 
80209500 
80209510 
80209520 



PROG ID 
PAGE 



0802-1 
63 



) 

") 

> 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECT/EXECUTE SECTION [CARD) 



02E3 00 74040413 



02E5 00 440003C6 
02E7 0000 



02E8 00 74FC0413 



02EA 
02EB 
02ED 
02EE 
02EF 
02FO 
02F1 
02F2 





00 















6101 

C500057D 

18D3 

180E 

D008 

D-"8 

1010 

1086 



02F3 00 F4000178 
02F5 00 4C200318 



02F7 
02F9 
02FA 
02FC 
02FD 
02FE 
0300 
0301 
0302 
0304 
0305 
0307 
0309 
030A 
030C 
030E 
030F 
0310 
0311 
0312 
0314 



00 66000000 

6300 

00 C500057D 

18D1 

180F 
00 D4000119 
18C7 

180B 
00 D400O117 
7101 
00 C500057D 
00 D4000116 

7101 

00 C500057D 

00 D70001 IB 

7301 

72FF 

70F8 

7101 

00 C500057D 

00 D4000U8 



0316 00 4C8002D2 



0318 00 75000000 
031A 7103 
0316 690A 
031C C009 
031D 00 F400057D 
031F 00 4C2002EB 



0321 00 44000430 

0323 0541 

0324 00 4C0001DO 
0326 0000 



DATE 
EC NO. 



15MAY67 
411731 



RETURN ARM TO WORK CYLINDER 2 



DIRS3 

* 



MDX L SK+1,4 SET IOCC TO SEEK BACK 

BSI L DSK GO SEEK DISK 
DC SEEK COUNT 



DIRS4 



MDX L SK+1,-4 RESTORE IOCC 

SEARCH DIRECTORY FOR REOUESTEO PID. 

LDX 1 1 INITIALIZE INDEX 1 

LD LI TEMP GET DIRECTORY ENTRY 

RTE 19 CYL COUNT TO A REG 

SRA 14 POSITION CYL COUNT 

STO DIRS5+1 SAVE FOR INDEXING 

STO D1RS7+1 SAVE FOR INDEXING 

SLA 15 CLEAR ACC 

SLT 11 REPOSITION PID 

EOR L PIDRO CHECK IF PID FOUND 

BSC L DIRS7.Z BRANCH IF NOT REO PID 

REOUESTED PID FOUND. TRANSFER CONTROL 
WORDS TO INTERFACE SECTION. 



DIRS5 



DIRS6 



LDX 

LDX 

LD 

RTE 

SRA 

STO 

RTE 

SRA 

STO 

MDX 

LD 

STO 

MDX 

LD 

STO 

MDX 

MDX 

MDX 

MDX 

LD 

STO 



L2 
3 
LI TEMP 

17 

15 
L IMG 

7 

n 

L SECCT 

1 1 

LI TEMP 
L ORG 

1 1 

LI TEMP 
L3 STCYL 
3 1 

2 -1 
DIRS6 

1 1 
LI TEMP 
L XFER 



BSC I DIRS 



SET XR = CYLINDER CT 
INITIALIZE MOVE X* 
PICKUP WORD 1 
IMAGE INDICATOR TO A 
POSITION INDICATOR 
SAVE IN INTERFACE SECT 
SECTOR COUNT TO A 
POSITION COUNT 
SAVE IN INTERFACE SECT 
INCR FOR NEXT WORD 
PICKUP ORG AUDRESS 
SAVE IN INTERFACE SECT 
INCR FOR NEXT WORD 
PICKUP CYLINDER. ADDR 
SAVE IN INTERFACE SECT 
INCR MOVE XR 

SKIP IF ALL CYL ADRS MVD 
MOVE NEXT CYL ADDRS 
INCR FOR NEXT WORD 
PICKUP TRANSFER ADRS 
SAVE IN INTERFACE SECT 

RETURN TO USER 



* 
* 
* 
01RS7 



PREPARE TO LOOK AT NEXT ENTRY. 



MDX LI 

MDX 1 3 

STX 1 CNT 

LD CNT 

EOR L TEMP 

BSC L DIRS4.Z 



ADJUST XR FOR CYL CT 
ADJUST XR FOR CTL WDS 
SfORE XR 1 StTTING 
PICKUP XR 1 SETTING 
CHECK IF SEARCH END 
BRANCH IF NOT OONE 



* 
CNT 

* 
* 



REOUESTED PID IS NOT ON DISK. 



BSI L LOG 
DC MSG08 



PRINT PID NUT ON DISK 
MESSAGE ADDRESS 



BSC L SE13 GO REOUEST NtXT PID 
DC WORK LOCATION 

ROUTINE EOTS IS USED TO INPUT THE EDIT 
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802095 3G 
802O954O 
80209 55© 
8020956© 
80209570 
80209560 
80209 593 
80209600 
802096 I O 
80209620 
80209630 
80209640 
80209*50 
80209660 
80209670 
80209660 
80209690 
80209700 
80209710 
80209 720 
80209 7 30 
80209 740 
80209750 
80209760 

802097 70 
80209 780 
80209790 
80209800 
80*09810 
802U9820 

802098 3O 
80209840 
602098 50 
80209860 
80209870 
80209880 
80209890 
60209900 
80209910 
80209920 
802O993O 
8020994O 
8020995O 
8Q20996O 
80209970 
80209980 
80209990 
80210000 
80210010 
80210020 
80210030 
80210040 
802100SO 
802 1006G 
80210070 
8Q21O08O 
80210090 
8O2101DO 
80210110 
80210120 
80210130 
80210140 
802101 50 
80210160 
80210170 
802101 BO 
80210190 
80210200 
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» 


TABLE 


.SEARCH IT FOR EDIT PERTAINING TO 


80210210 






« 


THE SELECTED PID, 


4ND IF EDIT IS FOUHO 


80210220 






« 


SAVE 


IN 


TEMPORARY 


LOCATION. 


80210230 






6 










80210240 




C327 0000 


EOTS 


DC 







ENTRY POINT 


80210250 
80210260 






* 


SEEK 


TO 


WORK CYL1N0ER 2. 


802102.0 






g 










80210280 




032a 00 440003B4 




BSI 


L 


DHM 


RETURN ARM TO HOKE 


80210290 




022A 00 C400016F 




LD 


L 


CYLTB+4 


WORK CYL 2 AUDRESS 


80210300 




032C DOOO 




STO 




EDT2+4 


SET IN READ CALL 


£0210310 




0320 00 D40003A2 




STO 


L 


EDTS9+3 


SET IN READ CALL 


80210320 




CivF 1803 
0330 0002 


# 


SRA 
STO 




3 
EDT1+2 


POSITION SEEK CCtNI 
SET IN SEEK CALL 


80210330 
80210340 
80210350 




0331 00 440003C6 
0333 0000 


EDTl 


BSI 
DC 


L 


DSK 



SEEK TO WORK CYL 2 
SEEK COUNT 


80210360 
80210370 
80210380 




0334 00 7407033A 


£ 


MDX 


L 


EDT2+4.7 


SET READ SECTOR 7 


80210390 
80210400 




0336 DO 440003D4 
0336 3 0001 
033"* 3 07rO 
G33A 3 OOCO 


E0T2 


BSI 
OC 


L 


DRD 
1 


READ SECTOR 7 
WORD COUNT 


80210410 
80210420 




$ 


DC 
DC 




/07FD 



INPUT AREA 

SECTOR ADDRESS <=■ 


80210430 
80210440 
80210450 






* 


WRITE 321 LOCATIONS, STARTING AT 07FF ON 


80210460 






a 


WORK 


CYLINDER 2 SECTOR 7. 


80210470 






$ 










80210480 




033 3 JO 6700014) 




LOX 


L3 


321 


WRITE WORD COUNT 


80210490 




03-C- 30 6F0007FO 




STX 


L3 


/07FO 


SET IN OUTPUT AREA 


80210600 




033- 30 0C000416 




XIO 


L 


WRT 


ISSUE WRITE COMMAND 


80210510 




03-1 30 OCOC040C 


EDT3 


X10 


L 


DSN 


SENSE STATUS 


80210520 




03--3 3 1001 




SLA 




1 


POSITION OP COI'P dlT 


80210530 




0:-~4 30 4C100341 




3SC 


L 


EDT3,- 


BRANCH IF NOT OP COMP 


80210640 




03^.6 30 OC00040E 




XIO 


L 


OSNR 


RESET STATUS 


80210550 




03-t 30 E400040E 




AND 


L 


DSNR 


CHECK FOR ERROR 


80210560 




034A 30 4C180351 


# 


BSC 


L 


EDT4.+- 


BRANCH IF NO ER^C-i. 


80210570 
80210580 




O'i'-C 30 44000430 




BSI 


L 


LOG 


60 PRINT WRITE EnROR 


80210590 




Oi-c 3 0661 


$ 


DC 




MSG09 


MESSAGE ADDRESS 


80210600 
80210610 




034F 3 3400 


H3400 OC 




/340D 


DISK WRITE ERROR 


80210620 




0350 3 7007 




MDX 




EDTS+l 


TRY AGAIN 


80210630 
80210640 






* 


INPUT EDIT TABLE 


m 


80210650 






$ 










80210660 




0351 30 C4000170 


EDT4 


LD 


L 


CYLTB+5 


EDIT TABLE CYLlUlcR 


80210670 




0353 3 0010 




STO 




EDTS2+3 


SET IN READ CALL 


80210680 




0354 30 9400016F 




S 


L 


CYLTB+4 


SUB WORK CYL 2 ADCRS 


80210690 




0356 3 1803 

0357 3 D002 




SRA 
STO 




3 
EDTS1+1 


POSITION SEEK CGlmT 
SET IN SEEK CALL 


80210700 
80210710 




v»3;e 3 0014 


« 


STO 




EDTS4+1 


SET IN SEEK CALL 


80210720 
80210730 




0359 3 406C 
035A 0000 


EOTSl BSI 
DC 




DSK 



SEEK TO EDIT CYL 
SEEK COUNT 


80210740 
80210760 
80210760 




0356 00 74030364 




MDX 


L 


EDTS2+3, 


3 SET FOR READ SECT 3 


80210770 




03 50 63F0 




LDX 




3 -3 


SET READ COUNT 


80210760 




035E 00 C70003AA 


EDT5 


LD 


L3 EOADR+3 


GET INPUT ADDRESS 


80210790 




03tO 0002 


* 


STO 




EDTS2+2 


SET IN READ CALL 


80210800 
80210810 




0361 4072 
03i2 0141 


EDTS2 BSI 
DC 




DRD 
321 


READ 1 SECTOR 
WORD COUNT 


80210620 
80210630 




0363 0000 

0364 0000 


* 


OC 
DC 








INPUT AREA 
SECTOR 10 


80210840 
80210850 
80210860 




0365 00 74FF0364 
0367 1000 




MDX 

NOP 


L 


EDTS2+3i 


,-1 ADJUST FOR NEXT READ 


80210870 
80210880 

PROG ID 
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DATE 15MAY67 
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0368 7301 

0369 70F4 



036A 00 74040413 

036C 4059 
036D 0000 

036E 00 74FC0413 



MDX 
MDX 



3 1 
i EDT5 



SKIP IF 3 READS 
READ NEXT SECTOR 



RETURN BISK TO WORK CYLINDER 2. 

MDX L SK+lt4 SET IOCC TC SEEK BACK 



EDTS4 



BSI DSK GO SEEK DISK 
DC SEEK COUNT 

MDX L SK+1,-4 RESTORE SEEK IOCC 

SEARCH TABLE FOR REQUESTED PIO EOIT. 



0370 
0371 
0372 
0374 
0375 
0377 
0378 
0379 
037A 
037C 
0370 
037F 



61C1 

6200 

00 <"00057D 

D030 

00 F400017B 

4818 

7024 

10A0 

00 C5000570 

18CB 

00 F4000178 

00 4C200392 



EDTS5 



LDX 

LOX 

LD 

STO 

EOR 

BSC 

MDX 

SLT 

LD 

RTE 

EOR 

BSC 



1 1 

2 

L TEMP 

ECT 
L Kl 

•+- 

EOTSA 

32 
LI TEMP 

8 
L PIDRO 
L EDTS7.2 



INITIALIZE XR 1 
INITIALIZE XR 2 
PICKUP TBL ENTRY CT 
SAVE COUNT 

CK FOR NO EDIT ENTRY 
SKIP IF ENTRIES 
GO TO EXIT 
CLEAR A AND U 
PICKUP TABLE ENTRY 
POSITION PIO SAVE CT 
CHECK IF EDIT = PIO 
BRANCH IF NOT PROP °I0 



EDIT FOR REQUESTED PID FOUNO.SAVE EDIT 
ENTRIES 



0381 

0382 

0383 

0384 00 

0386 

0387 00 
0389 CO 
038B 
038C 
03BD 
038E 



1010 

1088 

000 1 

67000000 

7301 

C5O0057D 

D600057D 

7201 

7101 

73FF 

70F8 



ED T S6 



038F 00 6C00017A 
0391 7006 



SLA 

SLT 

STO 

LDX 

MDX 

LD 

STO 

MDX 

MDX 

MDX 

MDX 

STX 

MOX 



16 CLEAR ACC 

6 RETRIEVE CARD ENTRY CT 

EDTS6+1 SAVE FOR INDEXING 

SET XR = NMR CARD ENT 

1 ADJUST FOR CNTRL WRO 
LI TEMP PICKUP EDIT WORD 

L2 TEMP SAVE EOIT WORD 

2 1 INCR XR FOR NXT WORD 
11 INCR XR FOR NXT WORD 

3 -1 SKIP IF ALL WDS MOVED 
EDTS6+3 GO HOVE NEXT WORO 

L EOTSW SET EDIT SWITCH 

EOTS8+3 GO CHECK IF DONE 



L3 

3 



0392 


1010 


EDTS7 


SLA 




16 


0393 


1088 




SLT 




6 


0394 


D001 




STO 




EDTS8+1 


0395 00 


75000000 


EDTS8 


MDX 


LI 





0397 


7101 




MDX 


1 


1 


0398 


690D 




STX 


1 


XRSV 


0399 


COOC 




LO 




XRSV 


039A 


FOOA 




EOR 




ECT 


039B 00 


4C20O379 


* 


BSC 


L 


E0TS5iZ 


039D 00 


740703A2 


EDTSA 


MDX 


L 


EDTS9+3.7 


039F 


4034 


EDTS9 


BSI 




ORD 


03A0 


0141 




DC 




321 


03A1 


07FD 




DC 




/07FD 


03A2 


0000 


£ 


DC 







03A3 00 


4C800327 


* 


BSC 


I 


EDTS 


03A5 


0000 


ECT 


DC 







OATE 


15MAY67 










EC NO. 


411731 











EDIT JUST CHECKED WAS NOT FOR REQUESTED 
PID. SET UP TO LOOK AT NEXT TABLE ENTRY 



CLEAR ACC 

RETRIEVE CARO ENTRY CT 
SAVE FOR INDEXING 
MOD XR 1 BY CARD COUNT 
ADJUST XR FOR CTRL WRD 
MAKE AVAILABLE XR DATA 
PICKUP XR SETTING 
CHECK IF ALL ENTklES 
BRANCH IF NOT DONE 

SET TO READ SECTOR 7 

GO INPUT SECTOR 7 
WORD COUNT 
INPUT AREA 
SECTOR ID 

RETURN TO USER 

TABLE ENTRY COUNT 



PARI MO. 
PA&E 



22*2253 

64A 



8021089C 

8021090O 

80210910 

8O21092G 

80210930 

80210940 

8021095© 

8021096O 

8021097O 

802109e>0 

80210990 

80211 tWO 

80211010 

00211020 

80211030 

8021 104O 

8021 1050 

8021 1060 

8021107© 

802110M) 

80211O9O 

802 lllOO 

80211 I lO 

80211120 

80211130 

80211140 

80211150 

80211160 

80211170 

80211 ISO 

8021 119* 

80211200 

80211210 

80211220 

80211230 

80211240 

80211250 

80211260 

802U2TO 

8021 12H© 

8021129© 

802113OO 

80211310 

80211320 

8021 133© 

80211340 

8021135O 

8021136O 

80211370 

80211380 

80211390 

b02H4O0 

80211410 

80211420 

80211430 

80211440 

80211450 

8021 14O0 

80211470 

B02114W) 

80211490 

80211500 

80211510 

80211520 

80211530 

802115*0 

80211550 

80211560 
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03A6 C 0000 

03A7 07FB 

03A8 06BB 

03A9 057B 



XRSV DC XR STORAGE 

* 

EDAOR DC TEMP+638 SECTOR 3 10 AREA 
DC TEMP+318 SECTOR 2 10 AREA 
DC TEMP-2 SECTOR 1 10 AREA 

* 

* THIS ROUTINE CHECKS THE DISK DRIVE FOR 

* A READY CONDITION. 



03AA 





0000 


03AB 





0862 


03AC 





1002 


03.' D 


00 


4C9003AA 


03AF 





1001 


03130 


00 


4C2603AB 


03B2 





3405 


03B3 





70F7 



03B4 
03B5 
03B6 
03137 
03B8 
03BV 
03Bb 
03BC 
03BD 
03BE 
03BF 
03CO 
03C1 
03C2 
03C4 
03C5 



0000 

6304 

0857 

DOOD 

10U4 
00 4C A803B4 
72FF 

7002 

C007 

3406 

0850 

Oe4B 

1001 
00 4C1003C0 
70F1 
0000 



DRDY 



W3405 



OHM 
DHM1 



W3406 
DHM2 



SKST 



DC ENTRY POINT 

X10 DSNR SENSE OISK STATUS 

SLA 2 POSITION READY BIT 

8SC I DRDY,- RETURN TO USER IF READY 

SLA 1 POSITION BUSY BI T 

BSC L DRDY+1,+2 BRANCH IF BUSY 

DC /3405 DISK NOT READY 

MOX DRDY+1 CHECK AGAIN 

THIS ROUTINE SEEKS THE 2310 TO ITS HOME 
POSITION. 

DC ENTRY POINT 

LDX 3 4 SET RJTRY INDEX 

XIO DSNR SENSE/RESET STATUS 

STO SKST SAVE STATUS 

SLA 4 POSITION HC'Mi BIT 

BSC I DHMt+Z EXIT IF DISK HUME 

MDX 3 -1 SKIP IF 3k0 TRY 

MDX DHM2 GO ISSUE SEEK COMMAND 

LO SKST RETRIEVE LAST OSW 

DC /3406 DISK DID NOT INDICATE HOME 

XIO HM SEEK TO HOKE 

XIO DSN SENSE DISK STATUS 

SLA 1 POSITION OP COMPL BIT 

BSC L DHM2+1,- BRANCH IF NOT COMPLETE 

MOX 0HM1 GO CHECK HOKt BIT 

DC OSW HOLD LOCATION 

THIS ROUTINE SEEKS THE DISK TO THE 
DESIREO CYLINDER. 



03C6 





0000 


DSK 


DC 







ENTRY POINT 


03C7 


00 


C48003C6 




LD 


1 


DSK 


PICKUP SEEK COUNT 


03C9 





0048 




STO 




SK 


PLACE IN SEEK CCMMAND 


03CA 





0847 




XIO 




SK 


ISSUE SK 


03CB 





0840 


DSK1 


XIO 




DSN 


SENSE OISK STATUS 


03CC 





1001 




SLA 




1 


POSITION OP CMPL BIT 


03CD 


00 


4C1003CB 




BSC 


L 


DSK1,- 


BRANCH IF NOT OP CMPL 


03CF 





083E 




XIO 




DSNR 


SENSE/RESET STATUS 


O^DO 


00 


740103C6 




MDX 


L 


DSK.l 


MODIFY RETURN 


03D2 


00 


4C8003C6 


* 
* 


BSC 


I 


DSK 


RETURN TO USER 








THIS 


ROUTINE READS THE DISK AND CHECKS 








* 
« 
DRO 


FOR 


THE 


PROPER 


SECTOR ID. 


03D4 





0000 


OC 







ENTRY POINT 


03D5 





692C 




STX 


1 


DRD3+1 


SAVE INDEX REG 1 


03D6 





6/.2F 




STX 


2 


0RD3+5 


SAVE INDEX REG 2 


03D7 





6B2E 




STX 


3 


DRD3+5 


SAVE INDEX REG 3 


03D8 





6303 




LDX 


3 


3 


SET RETRY INDEX 


03D9 


00 


668003D4 




LDX 


12 


DRD 


SET XR = CALL ADORS 


03DB 





C201 




LD 


2 


1 


GET INPUT AREA 


03DC 


(J 


D037 




STO 




RD 


SET IN READ COMMAND 


03D0 





D002 




STO 




*+2 


SET IN STORE INSTR 


03DE 





C200 




LD 


2 





GET SCAN CTL ♦ WD CT 


03DF 


00 


04000000 




sm 


L 





SET IN INPUT TABLE 


03E1 





C202 




LD 


2 


2 


PICKUP SECTOR. ID 


03E2 





1883 




SRT 




3 


SAVE SECTOR BITS 


DATE 




15MAY67 












EC NO. 


411731 













80211570 

80211580 

80211590 

80211600 

80211610 

80211620 

80211630 

80211640 

80211650 

80211660 

80211670 

80211680 

80211690 

80211700 

80211710 

80211720 

80211730 

80211740 

80211750 

80211760 

80211770 

80211780 

80211790 

80211600 

80211810 

80211820 

80211830 

80211b40 

80211850 

80211860 

80211870 

80211880 

80211890 

80211900 

80211910 

80211920 

80211930 

80211940 

80211950 

80211960 

80211970 

80211980 

80211990 

80212000 

80212010 

80212020 

80212030 

80212040 

80212050 

80212060 

80212070 

80212080 

80212090 

80212100 

80212110 

80212120 

80212130 

80212140 

80212150 

80212160 

80212170 

80212180 

80212190 

80212200 

80212210 

60212220 

80212230 

80212240 
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03E3 


C031 




LD 




RD+1 


PICKUP READ COMMAND 


80212250 




03E4 


1803 




SRA 




3 


REMOVE OLD SECTR BIT 


80212260 




03E5 


1083 




SLT 




3 


ADD NEW SECTOR BITS 


80212270 




03E6 


D02E 




STO 




RD+1 


UPDATE READ IOCC 


80212280 




03E7 


082C 


DRD1 


XIO 




RD 


READ OISK 


80212290 




03E8 


0823 




XIO 




DSN 


SENSE OISK STATUS 


80212300 




03E9 


1001 




SLA 




1 


POSITION OP CMP BIT 


80212310 




03EA 00 


4C1003E8 




BSC 


L 


DRD1+1,- 


BRANCH IF NOT OP CMP 


80212320 




03EC 


0821 




XIO 




DSNR 


SENSE/RESET STATUS 


80212 330 




03E0 


E020 




AND 




DSNR 


CHECK FOR ERROR BITS 


80212340 




03EE 00 


4C1803F6 




BSC 


L 


DRD2.+- 


BRANCH IF NO ERRORS 


80212 350 




03F0 


73FF 




MDX 


3 


-1 


SKIP !F 3RD TRY 


80212360 




03F1 


70F5 




MDX 




DRD1 


TRY AGAIN 


80212 370 




03F2 


403D 




BSI 




LOG 


PRINT READ ERROR 


80212380 




03F3 


050F 




OC 




MSG02 


MESSAGE ADDRESS 


80212390 




03F4 00 


4C00041A 




BSC 


L 


cRR 


GO TO ERROR SECTION 


80212400 




03F6 00 


65800414 


DRD2 


LDX 


11 


RD 


SET XR = INPUT AREA 


80212410 




03F8 


C*02 




LD 


2 


2 


GET EXPECTED SID 


80212420 




03F9 


F101 




EOR 


1 


1 


CHECK AGAINST ACTUAL 


80212430 




03FA 00 


4C180401 




BSC 


L 


DRD3,+- 


BRANCH IF PROPER SID 


80212440 




03FC 


73FF 




HDX 


3 


-1 


SKIP IF 3RD TRY 


80212450 




03FO 


70E9 




MDX 




DR01 


REREAD SECTOR 


80212460 




03FE 


4031 




BSI 




LOG 


PRINT WRONG SECTOR 


80212470 




03FF 


0519 




DC 




MSG03 


MESSAGE ADORESS 


80212480 




0400 


7019 




MDX 




ERR 


GO 10 ERROR SECTION 


80212490 




0401 00 


65000000 


DRD3 


LOX 


LI 





RESTORE XR 1 


80212500 




0403 00 


66000000 




LDX 


L2 





RESTORE XR 2 


80212510 




0405 00 


67000000 




LDX 


L3 





RESTORE XR 3 


80212520 




0407 00 


740303D4 




MDX 


L 


0R0.3 


MODIFY RETURN 


80212530 




0409 00 


4C8003D4 


« 


BSC 


I 


DRO 


RETURN TO USER 


80212540 
80212550 








* 


THE 


FOLLOWING WORDS ARE THE DISK IOCC'S 


80212 560 








« 










80212570 




040C 


0000 


* 


BSS 


E 





ALIGN TO EVEN ADDRESS 


80212580 
80212 5VO 




040C 


0000 


DSN 


DC 







DISK SENSE IUCC 


80212600 




040D 


0700 




DC 




/0700 




80212610 




040E 


87C0 


DSNR 


OC 




/87CO 


DISK SENSE/RESET ICCC 


80212620 




040F 


0701 




DC 




/0701 




80212630 




0410 


OOCA 


HM 


DC 




202 


SEEK HOME IOCC 


80212640 




0411 


0-.04 




DC 




/0404 




80212650 




0412 


0000 


SK 


DC 







SEEK OUT IOCC 


80212660 




0413 


0400 




DC 




/0400 




80212670 




0414 


0000 


RD 


DC 







OISK READ IOCC 


80212680 




0415 


0600 




DC 




/0600 




80212690 




0416 


07F0 


WRT 


DC 




/07FD 


OISK WRITE COMMAND 


80212700 




0417 


0507 




DC 




/0507 


COMMAND - SECTOR 7 


80212710 




0418 


0000 


M0D4 


DC 







MOD 4 CHECK IOCC 


80212720 




0419 


0680 


* 


DC 




/0680 




802127 30 
802127*0 








* 


THIS 


ROUTINE IS 


ENTERED ON A DliK READ, 


8021275O 








* 


OR WRON 


G SFCTOR 


ERROR. THE ERROR WILL 


60212760 








* 


HAVE 


BEEN PRINTFO ON DETECTION. THIS 


80212770 








* 


ROUTINE 


REINITIALIZES AND SETS UP TO 


80212780 








* 


SELECT 


THE SAME 


OR A NEW PID. IF IT IS 


80212790 








* 


DESIRED 


TO RUN THOSE PROGRAMS ALREADY 


80212600 








* 


LOADFD, 


SET DATA 


SWS TO FFOO. 


80212810 








* 










80212820 




041A 


1010 


ERR 


SLA 




16 


CLEAR ACC 


80212830 




041B 00 


0400009A 




STO 


L 


XFRSW 


CLEAR XFER Sw 


80212840 




041D 00 


D400017A 




STO 


L 


EDTSW 


CLEAR EDIT AVAIL SW 


80212650 




041F 00 


D4000177 




STO 


L 


LSTPG 


CLEAR LAST PROG SW 


80212860 




0421 00 


D4000115 




STO 


L 


TRMSW 


CLEAR TERM INDICATOR 


80212870 




0423 


340A 


W340A DC 




/340A 


INDICATE ERR PROCEDURE 


83212860 




0424 00 


0C00017E 




XIO 


L 


SNSW 


SENSE BIT SWITCHES 


80212890 




0426 


1888 




SRT 




8 


POSITION TERM BITS 


80212900 




0427 00 


D4000177 




STO 


L 


LSTPG 


SAVE IN LAST PROG SW 


80212910 




0429 


1088 




SLT 




8 


REPOSITION 


80212920 




DATE 


15MAY67 












PROG 10 


0802-1 


EC NO. 


411731 












PAGE 


65A 



N 
E 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 
SELECT/EXECUTf SECTION (CARD) 



042A F004 
04?b 00 4C1801C6 
0420 OU 4C0001CD 

042F FFOO 



0430 C' 0000 

0431 C 6B1A 

0432 C 6A1B 

0433 CO C4000172 
0435 CO 4C1B0453 

0437 00 C4800430 

0439 DO 54 

043A 084F 
043B CO 4C040441 
0430 1801 
043H 00 4C040443 

0440 7004 



0441 

0442 



3407 
70F7 



0443 3408 

0444 70F$ 

0445 0848 

0446 0845 

0447 1002 

0448 4810 

0449 70FC 
044A 083F 



044B 3 67000000 
0441) 03 66000000 
044F 0') 740104 30 

0451 00 4C800430 



0453 





1010 


0454 





0032 


0455 





083A 


0456 





1005 


0457 





180F 


0458 


00 


4C18 


045A 





3409 


045B 





70F9 


045C 





C029 


0450 





002A 



045E 0833 



045F 

0460 

0461 

0462 



0830 
1K0B 
4804 
70FC 



EOP. KFFOO CHECK IF RUN LOADED PROG 
BSC L SE11A,+- BRANCH IF SWS FFOO 
BSC L SE12 GO REOUEST NXT SELECTN 

« 

KFFOO DC /FFOO CONSTANT 

* 

♦a*********************************"********* 

» LOG ROUTINE * 

*«****»*»**»***»*»****»**»»*«*«■»*****»**»**»» 

* 



LOG 



OC 



LOG01 


STX 


3 


L0G06+1 




STX 


2 


L0G06+3 




LD 


L 


CYLTB+7 


* 


BSC 


L 


TWRTR»+- 


LD 


I 


LOG 




STO 




PRWRT 


* 








LOGO 2 


X10 




PRSNS 




BSC 


L 


W3407.E 




SRA 




1 




BSC 


L 


H3408.E 


* 
M3407 


MDX 




LUGO 5 


nc 




/3407 


* 
W3403 


MDX 




L0G02 


OC 




/3408 




MDX 




L0G02 


L0w05 


xin 




PRWRT 


* 










XIO 




PRSN 




SLA 




2 




BSC 




- 




MDX 




*-4 




XIO 




PRSNS 


* 








* 






PR 


» 








L0G06 


LOX 


L3 







LOX 


L2 







MDX 


L 


LOG.l 


* 










BSC 


1 


LOG 


TWRTR 


SLA 




16 




STO 




WRDSW 




XIO 




THSNS 




SLA 




5 




SRA 




15 


« 
W3409 


BSC 


L 


TWR01t+ 


DC 




/3409 




MDX 




TWRTR+2 


* 








TWR01 


LD 




TWRTO 




STO 




10ARA 


* 










XIO 




TMWRT 


* 










xm 




TWSNS 




SRA 




11 




BSC 




E 




MDX 




*-4 



SE 

SAVE IX 3 

SAVE INDEX 2 

GET OUTPUT DfcV INDICATOR 

BRANCH IF TYPEWRITER 

GET MESSAGE ADDRESS 
SET IN IOCC 

CHECK PRINTER READY 
BRANCH IF NOT READY 

BRANCH IF BUSY 
READY AND NOT BUSY 

1443 NOT READY 
CHECK AGAIN 

1443 BUSY 
CHECK AGAIN 

OUTPUT MESSAGE 

CHECK FOR OP COMPLT 



RESET DSW 

PRINTING COMPLETE 

RESTORE IX 3 
RESTORE INCEX 2 
BUMP RETURN 

RETURN TO USER SX 



CHECK IF TYPEWRITER 
READY 



1053/1816 NOT READY 

CARRAIGE RETURN AND 
LINE SPACE TU 10 ARA 

CARG RETURN/LINE SP 

HANG TILL NOT BUSY 



PART NO. 2242253 
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80212930 

80212940 

80212950 

80212960 

80212970 

80212980 

80212990 

80213000 

80213010 

80213020 

80213030 

80213040 

80213050 

80213060 

80213070 

80213080 

80213090 

80213100 

80213110 

60213120 

80213130 

8C213140 

8021 31 5C 

80213160 

80213170 

80213160 

80213190 

80213200 

60213210 

80213220 

80213230 

80213240 

80213250 

80213260 

80213270 

80213260 

80213290 

60213300 

80213310 

80213320 

60213330 

80213340 

80213350 

80213360 

80213370 

80213380 

80213390 

80213400 

80213410 

80213420 

80213430 

80213440 

80213450 

80213460 

80213470 

80213480 

80213490 

80213500 

80213510 

80213520 

80213530 

80213540 

80213550 

80213560 

80213570 

80213580 

80213590 

60213600 



1 

') 

T 

> 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYS16M 
SELECT/EXECUTE SECTION (CARD) 



046F 4024 



0470 

0471 



C055 
D016 



0472 081F 



0473 
0474 
0475 
0476 



081C 
180B 
4804 
70FC 



0477 COOF 

0478 4804 

0479 7006 



047A COOO 
047B 1008 
047C OOOB 
0470 00 74010487 
047F 70F2 



0480 7301 

0481 00 74010487 

0483 72FF 

0484 70E7 

0485 70C5 



0486 





8103 


0487 





0000 


0488 





0000 


048A 




0000 


048A 





0000 


0488 





3701 


048C 





0000 


0480 





3700 


048 E 





0000 


048F 





3500 


0490 





0000 


0491 





0F03 


0492 





0488 


0493 





0902 



GET WORO COUNT LOC 
SET IN LOX INSTRUCT; 
SET XR 2 TO WORD C •' 
BYPASS 1443 WORD CC INT 
GET MESSAGE ADDRESS 



GET WORD TO PRINT 
SET IN CONVERSION If 

BS1 CODCV GO CONVERT 43 TO TV. 

* 



0463 00 

0465 

0466 00 

0468 

0469 00 
046B 


C4800430 

D001 

66800000 

6301 

C4800430 

0001 


4 


LO 

STO 

LOX 

LDX 

LD 

STO 


I 

12 

3 
I 


LOG 

**1 



1 

LOG 

TWR02+1 


046C 00 
046E 


C7000000 
D057 


TWR02 


LD 
STO 


L3 




CODWO 



LD 
STO 

X10WR XIO 

* 

XIOSN XIO 
SRA 
BSC 
MDX 



LD 

BSC 

MDX 



LD 

SLA 

STO 

MDX 

MOX 

* 

* 

« 

TWR03 MDX 
MDX 
MDX 
MDX 
MDX 

* 

» 

« 

TWRTO DC 

WROSW OC 

IOARA DC 

* 

BSS 



CODWD 
IOARA 



TWWRT 

TWSNS 
11 
E 
XIOSN 



WRDSW 

E 

TWR03 



FETCH CONVERTED WORD 

OUTPUT A CHARACTER 
WRITE CHARACTER 
HANG ON BUSY 

BUSY 

CHECK IF 1ST 1/2 WURD 

GET 1/2 WORO SWITCH 
GO SET UP NEXT WORD 

SET UP FOR 2ND 1/2 WORD 



IOARA 

8 

IOARA 

WROSW, 1 
X10WR 



POSITION 2ND 1/2 WD 

HUMP WORD SWITCH 
GO WRITE 2ND 1/2 WD 



SET UP FOR NEXT WORD 



3 1 
L WRDSWtl 

2 -1 
TWR02 
L0G06 



/8103 






NEXT WORO INDEX 
BUMP WORO SWITCH 
SKIP IF MESSAGE CMPL 
GO GET NEXT WORO 
EXIT 

LOG CONSTANTS 

LINE SP/CARRA1GE RTN 
1/2 WORD SWITCH 
OUTPUT AREA 



PRSNS DC /OOOO 

OC /3701 

PRSN OC 

DC /3700 

PRWRT DC /OOOO 

DC /3500 

TWSNS DC /OOOO 

DC /0F03 

TWWRT OC IOARA 

DC /0902 
* 
********************************************* 



PRINTER SENSE IOCC 
NON RESET SENSE 
PRINTER WRITE IOCC 
TYPEWTR SENSE IOCC 
TYPEWTR WRITE IOCC 



PART NO. 
PAGE 



60213610 

6021 3t>20 

60213630 

60213640 

80213650 

C02 13660 

80213670 

80213680 

80213690 

60213700 

60213710 

60213720 

60213730 

60213740 

60213750 

80213760 

80213770 

80213760 

60213790 

60213800 

e0213810 

60213620 

802138 30 

60213640 

60213650 

80213660 

80213670 

80213660 

60213690 

60213900 

80213910 

60213920 

80213930 

60213940 

80213950 

80213960 

60213970 

60213960 

60213990 

60214000 

60214010 

60214020 

60214030 

60214040 

60214050 

80214060 

60214070 

80214080 

60214090 

80214100 

60214110 

60214120 

80214130 

60214140 

60214150 

80214160 

60214170 

S02 14180 

60214190 

60214200 

60214210 

60214220 

602142 30 

60214240 

60214250 

60214260 

60214270 

60214260 



2242253 
66A 



DATE 
EC NO. 



15MAY67 
411731 



PROG ID 
PAGE 



0802-1 
66 



DATE 
EC NO. 



15MAY67 
411731 



PROG 10 
PAGE 



O602-1 
66A 



u 



<< 1 <<<<<<<<<<<<((< I ((<<<((< < 



< ( ( 



IBM MAINTENANCE DIAGNOSTIC PkOGRAH FOR THE 1800 SYSTEM 
SELbCT/fiXECUT: SkCTlON (CARDI 



* 1443 CODE TO 1816/1053 * 

* COOE CONVERSION ROUTINE * 



0494 0000 

049* 6928 

0496 6A29 

0497 6B2A 
0491. D833 

0499 1010 

049A C D02C 

04?l 6300 



0<.9C 





C029 


0490 





1B90 


049t 





C028 


049r 





4820 


04A0 





1088 


04AL 





1010 


04A2 





1084 


04A3 


C 


0024 


04A4 


oo 


656004CK 



0<-A6 )01" 

04A7 i 84 

04AH 00) F 

04A9 00 66H004C8 

O'tAt. 00 C50004CE 
04AD 0001 

04AS: 00 C 6000000 
04BO 00 070004C9 

04B2 C014 

04 B 3 00 4C2004B9 

048') 00 740104C7 

0487 7301 

0488 70E3 

0489 COOF 
048A 1008 
04bB F80E 
04BC 0009 

04BD 00 65000000 
04BF 00 66000000 
OsCl 00 67000000 
04C3 C308 

04C4 00 4C800494 



04C6 





0090 


04C7 





oooo 


04C8 





0000 


0'.C9 





0000 


04CA 





0000 


04CC 




0000 


04CC 





oooo 


04C0 





oooo 



CODCV DC 
STX 
STX 
STX 
STO 

SLA 
STO 
LDX 

* 

C0DC1 1.0 
SkT 
LD 
BSC 
SLT 

* 

SLA 
SLT 
STO 
LDX 

v 

SLA 
SLT 
STO 
LOX 

* 

LD 
STO 

* 

C0DC2 LO 
STO 

* 

LO 

BSC 

MDX 

MDX 

MOX 

* 

C00C3 LD 
SLA 
OR 
STO 



LDX 
LDX 
LDD 



* 

» 

* 

COOWD DC 

LHIND DC 

COOOO nc 

C0001 DC 

C0002 DC 

BSS 
A02 DC 

DC 
* 
* 
» 



1 C00C4+1 

2 C00C4+3 

3 C0DC4+5 
A02 

16 

LHIND 
3 

CODWO 
16 

LHIND 
2 

8 

16 

4 

CODOO 

11 COOOO 

16 

CODOO 

12 COOOO 

LI ZONE 

C0DC2+1 



L2 

L3 COD01 

LHIND 
L C0DC3.Z 
L LHIND, 1 
3 1 

C0DC1 



C0D02 
COOWD 



C0DC4 LDX LI 



L2 
L3 
A02 



BSC I CODCV 



SAVE INDEX REGS 



SAVE A AND 

CLEAR LEFT HALF WORD 
*INDICATOR 



GET WORD TO CONVERT 
SET IN 

SKIP IF LEFT HALF 
POSITION RIGHT HALF 



ZONE TO ACCUM 
IX 1 = ZONE 

DIGIT TO ACCUM 

IX 2 = DIGIT 

GET ZONE TABLE ADDRS 
SET IN CONVERSION WD 

GET CONVERTED CODE 

BRNCH IF RIGHT HALF 

GO CONVERT RIGHT HLF 
C0D01 PACK CONVERTED CODES 



RESTORE INDEX REGS 

RESTORE A AND 
RETURN TO USER 

CONSTANTS 

WORD LOCATION 

LEFT HALF INDICATOR 

WORK AREA 

CONVERTED LH CHARACT 

CONVERTED RH CHARACT 

A AND STORAGE 



1443 TO 1816/1053 CODE 
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DATE 
EC NO. 



I5MAV67 
411731 



80214290 
80214300 
80214310 
80214320 

SE 80214330 
80214340 
80214350 
80214360 
80214370 
80214380 
80214390 
80214 00 
80214410 
80214420 
80214430 
80214440 
80214450 
80214460 
80214470 
80214480 
80214490 
8021*500 
80214510 
80214520 
80214530 
80214540 
80214550 
60214560 
80214570 
80214580 
80214590 
80214600 
80214610 
80214620 
80214630 
80214640 
80214650 
80214660 
80214670 
80214680 
80214690 
80214700 
80214710 
80214720 
80214730 
80214740 
80214750 
80214760 
80214770 
80214780 
80214790 
80214800 

SX 80214810 
80214820 
80214830 
80214840 
80214850 
80214860 
80214870 
80214880 
80214890 
80214900 
80214910 
80214920 
80214930 
80214940 
80214950 
80214960 



PROG ID 
PAGE 



) 
) 

1 
) 



0802-1 
67 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



SELECT/EXECUTE SECTION (CARD) 



04CE 





C4D2 


04CF 





04DD 


04D0 





04E8 


04D1 





04F2 


04D2 





0021 


04 D 3 





OOFC 


04D4 





O0D8 


04D5 





OODC 


04D6 





OOFO 


04D7 





00F4 


0408 





OODO 


04 D9 





00D4 


04DA 





O0E4 


04DB 





OOEO 


04DC 





O0C4 


04DD 





OPf'O 


04DE 





OOOO 


04DF 





009A 


04E0 





009E 


04E1 





00B2 


04E2 





0086 


04E3 





0092 


04E4 





0096 


04E5 





00A6 


04E6 





00A2 


04E7 





0021 


04E8 





OOOO 


04E9 





007E 


04EA 





005A 


04EB 





005E 


04EC 





0072 


04ED 





0076 


04EE 





0052 


04EF 





0056 


04F0 





0066 


04F1 





0062 


04F2 





OOOO 


04F3 





0C3E 


04F4 





001A 


04F5 





001E 


04F6 





0032 


04F7 





0036 


04F8 





0012 


04F9 





0016 


04FA 





0026 


04FB 





0022 


04FC 





0086 


04FD 





OOOO 



* 
* 
ZONE 



* 
ZONEN 



Z0NE1 



ZONE? 



ZC1NE3 



DC 
DC 
CC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



CONVERSION TABLES 

ZONEN NO ZONE 

20NE1 ZONF 

Z0NE2 11 ZONE 

ZCNE3 12 ZONE 



/0021 

/OOFC 

/00D8 

/OODC 

/OOFO 

/00F4 

/OODO 

/00D4 

/00E4 

/OOEO 

/00C4 





/0C9A 

/009E 

/00B2 

/OOBo 

/0G92 

/0096 

/0OA6 

/00A2 

/0021 



/007E 

/005A 

/005E 

/0072 

/0076 

/0052 

/0056 

/0066 

/0062 



/003E 

/001A 

/001E 

/0032 

/0036 

/0012 

/0016 

/0026 

/0022 

/0086 

/OOOO 



SPACE 

1 
2 
3 
4 
S 
6 
7 
8 
9 




S 

T 
U 
V 

w 

X 
Y 

z 

SPACE 

J 
K 
L 
M 
N 

P 

R 

A 

B 

C 

D 

E 

F 

G 

H 

I 

ERROR 

PERIOD 



04FE 





0010 


04FF 





330A 


0500 





0A06 


0501 





C012 


0502 





3523 


0503 





3533 


0504 





1300 


0505 





2739 


0506 





3400 


0507 





3925 


0508 





0034 


0509 





3113 


OATE 




15MAY67 


EC NO. 


411731 



* 
* 
* 
* 
* 
MSG01 



PRINT MESSAGES. 1442 CODED. 
C006 SELECT 9ID IN DATA SWS OOXX 



DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
OC 
DC 



16 

/330A 

/0A06 

/0012 

/3523 

/3533 

/1300 

/2739 

/3400 

/3925 

/0034 

/3113 



WORD COUNT 

CO 

06 

S 
EL 
EC 
T 

PI 
D 
IN 

D 
AT 
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802l*-#70 
8021*980 
8021*990 
80215000 
80215410 
80215020 
8021 5O30 
80215040 
80215050 
80215060 
80215OT0 
80215060 
80215090 
80215100 
80215UO 
8021512O 
80215130 
80215140 
80215150 
80215160 
8021517C 
80215180 
80215190 
802152(30 
802152:10 
80215220 
602152 30 
802152*0 
80215250 
80215260 
802152 70 
80215260 
80215290 
80215300 
6021S310 
80215320 
80215330 
802153*0 
80215350 
80215360 
80215370 
80215380 
80215390 
80215400 
80215*10 
80215420 
802154 30 
60215*40 
80215450 
60215460 
80215*70 
80215480 
80215*90 
80215500 
80215510 
80215520 
80215530 
80215540 
80215550 
802155*0 
80215570 
80215560 
80215590 
802 1 5600 
60215610 
80215620 
80215630 
802156*0 



PROG ID 
PACE 



08O2-1 
67A 



N 

E 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECT/EXECUTE SECTION (CARD) 



050A 3100 


DC 


/3100 


A 


050b 1216 


DC 


/1216 


SW 


050C 1200 


DC 


/1200 


S 


0500 OAOA 


DC 


/OAOA 


00 


050E 1717 


OC 
* 
* EOOfl 


/1717 


XX 




DISK READ ERR 




050F 0009 


« 

MSG02 DC 


9 


WORD COUNT 


0510 350A 


DC 


/350A 


EO 


0511 0A08 


OC 


/0A08 


08 


0512 0034 


DC 


/0034 


D 


0513 3912 


DC 


/3912 


IS 


0514 2200 


DC 


/2200 


K 


0515 2935 


DC 


/2935 


RE 


0516 3134 


DC 


/3134 


AD 


0517 0035 


DC 


/0035 


E 


0518 2929 


DC 
* 
* E009 


/2929 


RR 




WRONG SECTOR 


ID READ 


0519 0000 


MSG03 DC 


13 


WORD COUNT 


051A 350A 


DC 


/350A 


EO 


0518 OA09 


OC 


/0A09 


09 


051C 0016 


DC 


/0016 


W 


0510 2926 


DC 


/2926 


RO 


051fc 2537 


DC 


/2537 


NG 


051F 0012 


DC 


/0012 


S 


0520 3533 


DC 


/3533 


EC 


0521 1326 


DC 


/1326 


TO 


0522 2900 


UC 


/2900 


R 


0523 C 3934 


DC 


/3934 


ID 


0524 C029 


DC 


/0029 


R 


0525 3531 


DC 


/3531 


EA 


0526 C 3400 


DC 
* 
* EOOA 


/3400 


D 




PROG EXCEEDED CORE LIMIT 


0527 OOOF 


* 

MSG06 DC 


15 


WORO COUNT 


0526 350A 


DC 


/350A 


EO 


0529 0A31 


DC 


/0A31 


OA 


052A 0027 


DC 


/0027 


P 


0528 2926 


DC 


/2926 


RO 


052C 3700 


DC 


/3700 


G 


0520 3517 


DC 


/3517 


EX 


052t 3335 


DC 


/3335 


CE 


052F 3534 


DC 


/3534 


EO 


0530 3534 


DC 


/3534 


EO 


0531 0033 


DC 


/0033 


C 


0532 2629 


DC 


/2629 


OR 


T533 3500 


OC 


/3500 


E 


0534 2339 


DC 


/2339 


LI 


0535 2439 


DC 


/2439 


Ml 


0536 1300 


OC 

* 

« EOOE 


/1300 


T 




PROG LOAD ERR 


0537 0009 


* 

MSG07 OC 


9 


WORD COUNT 


0538 350A 


DC 
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CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 


AC 


0174 


0136,0138,0130 


A02 
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BRANi 
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1. PURPOSE 

THE DIMAL SYSTEM IS DESIGNED TO GENERATE A MAINTENANCE LIBRARY flF 1 snc 

KiSSS KK'SrTffiU SS KS.S SSKM."™ ™ f "«'* ~-» 

2. REQUIREMENTS 

2.1 PROGRAM REQUIREMENTS 
A 



B. 
C. 

D. 



OIMAL IS A SELF CONTAINED SYSTEM AND IS LOADED ON THE DISK PACK 
BY THE DIMAL INITIAL LOADER (PID 8B7). 

THE INITIAL LOADER MUST BE EDITED IN ORDER TO WRITE DIMAL ON THE 
DISK PACK. REFER TU APPENDIX SECTION 6.1 FOR EDIT PROCEDURE. 

DIMAL USES 4096 WORDS OF CORE DURING INITIAL DISK PACK GENERATION. 

AND DURING EXISTING DISK PACK MODIFICATION. DURING DFT SELECT I.lNANn 

A«n C £«°£ ,°n!! AL R£SIDES lN C ° RE ^CATIONS 80 THR^GH299 E DECIMAL ^ 

300 DECIMAL! ° F C0RE HITH THE ° FT ' S ' STARTIN G AT LOCATION 

DIMAL IS CALLED FROM THE DISK PACK BY COLD START CALL CARDS 
«,52« I ? ED BY DIMAL, » 0R BY A CALL ROUTINE ENTERED VIA THE DATA 
S E wTc Y H S C W A I L T L CH R E S UTIN R E E S F ! R T ° ^^ *«»*6. 2 FOR THE^T^TRY 

2.2 EQUIPMENT REQUIREMENTS 

A. 1801 OR 1802 PROCESS CONTROLLER 

4K CORE STORAGE 

1442 CARD READER/PUNCH 

1053/1816 PRINTER OR 1443 PRINTER 

2310 DISK DRIVE **NOTE*» MODEL C CANNOT BE USED 

2315 C.E. DISK PACK 



B. 
C. 
D. 
E. 
F. 



3. USE PROCEDURE 
3.1 INITIAL DISK PACK GENERATION ( LOAOER/ORG. SECTION) 

THE FOLLOWING PROCEDURE SHOULO BE FOLLOWED TO LOAD DIMAL AND THE 
DIAGNOSTIC FUNCTION TESTS ON THE C.E. DISK PACK. 

1. LOAD AND EXECUTE PROGRAM PID 0808 (2315 DISK INITIALIZATION 

f£n G ?u?T 12J^ R . ™ AT ™ E DISK SEC TORS ARE PROPERLY ADDRESSED, 
AND THAT ANY BAD CYLINDERS ARE DEFINED. 

0PERATING°PR0CEDURES I ! 0NIT0R ^ " 15 PR0GRAM DOCUMENTATION FOR 

2. LOAD AND EXECUTE PROGRAM PID 809 (2310 DISK FUNCTION TEST) TO 
INSURE THAT THE DISK DRIVE IS OPERATING CORRECTLY. REFER TO 
OIAG.NOSTIC MONITOR AND 2310 PROGRAM DOCUMENTATION FOR OPERATING 
PROCEDURES. '* 
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3. CLEAR CORE STORAGE TO ZERU 

A. SET DATA ENTRY SWITCHES TO 0000 

B. SET CHECK STOP SWITCH TO OFF 

C. SET WRITE STORAGt PROTECT SWITCH TO YES. 

L). DfcPRtSS AlMD HOLU 1 Ht CLtAR STURAGE BUTTON, THfcN PKESS START 

BUTTON. CPU SHOULD NOW Bb CLEARING STORAGE.' 
E. PRESS STOP THEN RESET BUTTONS TO TERMINATE CLEAR STORAGE 

OPERATION. 

4. SET CHECK STOP SWITCH TO ON. 

SET WRITE STORAGE PRUTECT SWITCH TO NO. 

5. SET ALL SENSE/PROGRAM SWITCHES TO OFF. 

6. SWITCH SETTINGS INDICATED IN STEP 5 ABOVE SHOULD REMAIN AS 
INDICATED FOR THE DURATION OF THE DISK PACK GENERATION. 

7. OBTAIN PROGRAM DECK 8B7, DIMAL INITIAL LOADER. 

OPERATION AND USE OF THE INITIAL LOADER IS DESCRIBED IN THIS 
DOCUMENT. THERE IS NU SEPARATE DOCUMENTATION FOR THE INITIAL LOADER. 

8. PUNCH TWO (21 EDIT CARDS ACCORDING TO APPENDIX SECTION 6.1 EDIT 
PROCEDURE, AND PLACE THESE EDIT CARDS BEHIND THE DIMAL INITIAL 
LOADER DECK. 

* NOTE * 
REFER TO FIGURE 1, APPENDIX SECTION 6.4 FOR A PICTORIAL REPRESENTATION 
OF THE OBJECT DECK MAKEUP DESCRIBED BELOW. 

9. OBTAIN PROGRAM DECK 0802 DIMAL SYSTEM AND PLACE THIS DECK BEHIND 
THE EDIT CARDS DESCRIBED IN STEP 8. 

10. AT THE 1442 CARD READ PUNCH 

A. INSURE THAT THE HUPPER IS EMPTY 

B. DEPRESS THE NPRU PUSH BUTTON TO INSURE THE 1442 IS CLEAR UF 
CARDS. 

C. PLACE THE CARD DECK, OBTAINED BY PERFORMING STEPS 7, 8. AND 9 
ABOVE, IN THE 1442 HOPPER. 

0. DEPRESS THE 1442 START BUTTON. THE 1442 SHOULD FEED 1 CARD 
AND BECOME READY. 

11. OBTAIN THE PROGRAM DECKS FOR THE DIAGNOSTIC FUNCTION TESTS TO BE 
LOADED ON THE DISK. 

A. THE FOLLOWING PROGRAMS SHOULD NOT BE LOADED ON THE DISK. 

1. PID 0800 DIAGNOSTIC MgNITOR HEADER PROGRAM. (DIMAL 
CONTAINS ITS OWN HEADER). 

2. PID 08B0 RELOCATABLE DIAGNOSTIC LOADER 

3. PID 08BC BASIC DIAGNOSTIC LOADER (OIMAL CONTAINS ITS UWN 
LOADERS) 

4. ALL AUX PROGRAMS WITH THE EXCEPTION OF PIDS OBAC AND 08AU 
AUX PROGRAM GENERA TUR UTILITY PROGRAMS. 

5. PIDS 08C2, 08C3, 08C4 AND 08C5 EDIT UTILITY PROGRAMS. 

6. PID 08C8 SCOPE LUOPS 

7. PID 08C9 CE UTILITY PROGRAMS 

8. PID 080C MONITOR ENGLISH MESSAGE DECK 



12. IF PID 08AC IS TO Bfc LOAULD ON THE DISK, PERFORM THt FOLLOWING 

1. REMOVE THE 1ST 16 CARDS OF THIS DECK, DO NUT INCLUDE THt 
bl 4NK. CAKO FULLUW1NG THfc IbTH CAl-'.O. 

2. THE 16 CARDS RtMOVfcD CONSTITUTE THE PRUGRAM DtCK TU BE 
LOADED ON THE DISK. 

13. PLACE THE DFT PROGRAM DECKS IN THE 1442 HOPPER BEHIND THE DIMAL DECK. 
INSURE THAT THE EDIT CARDS FOLLOW THE PROGRAM FOR WHICH THEY 

ARE INTENDED, AND THAT THEY ARE IN CORRECT SEQUENCE. DO NOT 
LOAD PROGRAMS WHICH ARE TEMPORARILY CORRECTED WITH PATCH CARDS. 
PATCH CARDS CANNOT BE LOADED ON THE DISK. 

14. THE OFT PROGRAM DECKS MAY BE LOADED IN ANY ORDER. 12-4 DECKS AND 
8-8 DECKS MAY BE INTERMIXED. DO NOT PLACE BLANK CARDS AT THE 

END OF THE DECKS. IT IS HOWEVER, SUGGESTED THAT THE DECK SEQUENCE 
BE AS FOLLOWS, TO MINIMIZE. DISK SEEK TIME DURING PRUGRAM SELECTION. 

A. PID 0801 DIAGNOSTIC MUNI TOR 

B. ALL DIAGNOSTIC MONITOR PROGRAMS IN PID SEQUENCE 

C. ALL NON MONITOR PROGRAMS IN PID SEQUENCE. 

D. UTILITY PROGRAMS 

15. AT THE 1800 CPO, PRESS THfc RESET BUTTON, THEN PRESS PROGRAM LOAD. 
THE INITIAL LOADER SHOULD START READING IN. 

16. THE INITIAL LOADER WILL WRITE DIMAL ON DISK THEN BRING DIMAL INTO 
THE PROPER CORE OPERATING AREA. DIMAL WILL THEN TAKE CONTROL 
AND INPUT THE DFTS. 

17. COMMUNICATION OF ERRORS AND OPERATOR ACTIONS IS VIA PRINTOUTS 

AND PROGRAM WAITS. REFER TO SfcCTION 4.0 PRINTOUTS, AND SECTION 3.4 
PROGRAM HALTS TO DETERMINb WHAT ACTION MOST BE TAKEN FOLLOWING A 
PRINTOUT OR PROGRAM WAIT. 

18. DFT'S WILL CONTINUE TU LOAD UNTIL THE 1442 HOPPER BECOMES EMPTY. 
DIMAL WILL COME TO WAIT 305, B REG = 3305. 

19. AT THE 1442 PRESS THE START BUTTON. THE 1442 SHOULD GO READY FOR 
THE LAST CARD. 

20. AT THE 1800 C.P.U. PRESS THE START BOTTON. THE LAST CARD SHOOLD 
READ IN. 

21. DIMAL THEN PRINTS MESSAGE C001 REQUESTING THE OPERATOR TO INDICATE IF 
LOADING IS COMPLETE. 

A. IF IT IS DESIRED TO LOAD MORE OFT'S READY THE 1442 WITH THE 

OFT DECKS AND PRESS THE 1800 C.P.U. START BUTTON. DFT LOADING 
WILL CONTINUE AS BEFORE. 

22. IF DFT LOADING IS COMPLETED, SET DATA ENTRY SWITCHES TO FFOO AND 
PRESS START BUTTON. 

23. DIMAL WILL COMPLETE THE GENERATION FUNCTION AND THEN LIST ALL 
PROGRAMS ON THE DISK ALONG WITH THEIR LOCATION, AND ALL EDIT 
INFORMATION NOW CONTAINED ON THE DISK. 

24. DIMAL THEN PRINTS MESSAGE C005. READY THE 1442 WITH AT LEAST 8 
BLANK CARDS. 

25. DIMAL THEN PUNCHES 6 COLD START CALL CARDS. SAVE THESE CARDS. 
THEY ARE USED TO INPUT OIMAL ONCE THE LIBRARY HAS BfcEN GENfcRATtU. 
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26. MESSAGE D003 IS THElM PRINTED. THIS MESSAGE INDICATES A SEEK 
COUNT WHICH IS REQUIRED BY THE BIT SWITCH ENTERED COLD START 
CALL ROUTINE. IT IS SUGGESTED THAT THIS PRINTOUT BE TAPED 
TO THE C.E. DISK PACK TO AVOID LOSS. 

27. PROGRAM THEN COMES TO WAIT 300, B REG = 3300, WHICH INDICATES THAT 
DISK PACK GENERATION HAS BEEN COMPLETED, AND MAY NOW BE USED 

FOR PROGRAM SELECTION AND EXECUTION. 

** IMPORTANT NOTE ** 

RUNNING OF THE 2315 DISK INITIALIZATION PROGRAM ON THE 
MAINTENANCE LIBRARY PACK WILL CAUSE THE LIBRARY TO BE 
DESTROYED. 

3.2 EXISTING DIMAL DISK PACK MODIFICATION (LOADER/ORG SEC) 

1. GENERAL OPERATING INSTRUCTIONS 

A. PLACE THE C.E. DISK PACK CONTAINING THE MAINTENANCE LIBRARY 
ON THE DESIRED DISK DRIVE AND MAKE THE DRIVE READY. 

IF THE C.E. LIBRARY PACK IS ALREADY MOUNTED, INSURE THAT THE 
ACCESS ARM IS IN ITS HOME POSITION. 

THE ACCESS ARM MAY BE RETURNED TO HOME BY PERFORMING THE 
FOLLOWING - 



1. 

2. 
3. 



PRESS CONSOLE RESET BUTTON. 

SET MODE SWITCH TU LOAD POSITION. 

ENTER FOLLOWING PROGRAM IN THE DATA ENTRY SWITCHES 

PRESSING START AFTER EACH ENTRY. 



DRIVE Al 

0801 
3000 
OOCA 
2404 



DRIVE A2 

0801 
3000 
OOCA 
4404 



DRIVE A3 

0801 
3000 
OOCA 
4C04 



6. 



ARM WILL BE RETURNED 



SET MODE SWITCH TO RUN 

PRESS RESET AND START. ,,_ 

TO HOME AND THE SYSTEM WILL STOP WITH I 

REG. = 2 

PRESS RESET BUTTON AND PROCEED TO NEXT STEP. 



AT THE 1800 C.P.U., CLEAR CORE STORAGE AS DESCRIBED IN SECTIUN 
3.1.3. 

SET CHECK STUP SWITCH TO ON. 

SET WRITE STORAGE PROTECT SWITCH TO NO. 

SET ALL DATA ENTRY SWITCHES, SENSE/PROGRAM SWITCHES AND 
C.E. SWITCHES TO THE OFF POSITION. 

OBTAIN THE COLD START CALL CARDS PROVIDED BY DIMAL DURING 
INITIAL DISK LIBRARY GENERATION. 

IF IT IS DESIRED TU CALL DIMAL VIA DATA ENTRY SWITCH CALL 
ROUTINE, REFER TU APPENDIX SECTION 6.2. 

REFER TO COLUMNS 41 THROUGH 80 ON THE CALL CARDS FOR THE CARD 
IDENTIFICATION. 



H. SELECT 1 OF THE FULLOWING 3 CALL CARDS ACCORDING TO THE DISK 
DRIVE BEING USED. 

1. AIL FOR DISK DRIVE Al 

2. A2L FOR DISK DRIVE A2 

3. A3L FOR DISK DRIVE A3 

Jul III AN ° 2N ° 0IGITS Uf - THE ID INDICATE THE DISK DRIVE. 

™, DlGIT 1L> INDICATES THAT THIS CARD WILL CALL THE LOADER/ 

0RGANI20R SECTION OF THE DIMAL SYSTEM. LOADER/ 

I. AT THE 1442 CARD HEAD PUNCH 

1. CLEAR THE 1442 UF ALL, CARDS. 

2. PLACE THE CALL CARD IN THE HOPPER. 

3. PRESS THE START BUTTON. THE CARD SHOULD FEED IN. 

4. PRESS THE START BUTTUN TO MAKE THE 1442 READY 

J. AT THE 1800 C.P.U. 

1. PRESS THE RESET BUTTON 

2. PRESS THE PROGRAM LUAD BUTTON. THE CALL CARD SHOULD 
READIN. - 

K. THE COLD START CALL WILL 1ST LOAD THE DIMAL HEADER TESTS IF 

THE HEADER TESTS RUN SUCCESSFULLY! RUN TIME APPROXIMATELY 1 SEC ) 

THE COLD START LOADER WILL BE BROUGHT INTO CORE AND IT IN TURN 
WILL LOAD THE DIMAL LUAUEK/ORGANI ZOR SECTION. 

IF AN ERROR IS DETECTED BY THE HEADER TEST ( INDICATED BY WAITS 
4 THROUGH 126) , REFER TO SECTION 3.6 FOR ERROR PROCEDURE. 

L. THE LOADER/ORGANIZUR THEN PRINTS MESSAGE C004 SELECT OPTIONS. 

TABLE 1 SUMMERIZES THE OPTIONS AVAILABLE WITH THE LOADER/ 
ORGANIZOR SECTION. 

PROCEED TO THE APPROPRIATE SECTION AS CALLED OUT IN THE TABLE 
OF CONTENTS, FOR OPERATING PROCEDURES OF THE OPTION DESIRED. 



TABLE 1 
LOAOER/URGANIZOR OPTION SWITCHES 



* SENSE/PROGRAM * 
*01234567* 



DESCRIPTION 



* . 

* . 

* . 

* . 

* . 

* . 

* 1, 
* 



* 1 !r IST THE C0I -U START SEEK COUNT REQUIRED BY THE DATA ENTRY 

SWITCH CALL ROUTINES. 

1 PUNCH CULD START CALL CARDS. 

.LIST CONTENTS OF EDIT TABLE. 
..LIST CONTENTS OF LOCATION DIRECTORY. 
.CHANGE EDIT. 
..DELETE PROGRAM. 
.ADD PRUGRAM. 



* SWUCH HOOTCH 7. IME "^ " PE * F0KMtD - 0PTI0N PRIORITY IS FROM 

* . 



* 

* 

* 

* 
* 

* 



2. ADD PROGRAM TO DIMAL PACK 
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A. PERFORM THE GENERAL OPERATING PROCEDURES 
SECTION 3.2.1 IF DIMAL IS NOT IN CORE. 

B. READY THE 1442 CRP WITH THE PROGRAM OR PROGRAMS 
TO BE ADDED. INSURE THE EDIT CARDS IF REQUIRED, 
FULLOW THE APPROPRIATE PROGRAM DECK. 

C. AT THE C.P.U. SET SENSE/PROGRAM SWITCH 0, CLEAR ALL 
OTHERS, AND PRESS START PUSHBUTTON. PROGRAMS SHOULD 
READ IN TILL 1442 HOPPER BECOMES EMPTY -(INDICATED BY 
WAIT 305, (B REG = 3305). 

D. PRESS THE 1442 START BUTTON TO READY IT FOR THE LAST CARD. 

E. PRESS THE 1800 C.P.U. START BUTTON, LAST CARD SHOULO READ IN 

F. MESSAGE C002 IS THEN PRINTED, SET DATA ENTRY SWITCHES 
TO FFOO .AND PRESS START BUTTON. 

G. A NEW LISTING OF THE DISK LOCATION DIRECTORY AND EDIT 
TABLE WILL BE PROVIDED. 

H. MESSAGE C004 IS THEN PRINTED AND THE PROGRAM STOPS AT 

WAIT 300 B REG = 3300 INDICATING THE OPERATION HAS BEEN 
COMPLETED. 

3. DELETE PROGRAM FROM DIMAL PACK 

A. PERFORM THE GENERAL OPERATING PROCEDURES, SECTION 3.2.1, 
IF DIMAL IS NOT IN CORE. 

B. SET SENSE/PROGRAM SWITCH 1, CLEAR ALL OTHERS, AND PRESS THE 
START BUTTON. 

C. DIMAL PRINTS MESSAGE C002 AND STOPS AT WAIT 309, B REG = 3309. 

D. ENTER THE PID OF THE PROGRAM TO DELETE IN DATA ENTRY 
SWITCHES 8 THROUGH 15 AND PRESS START BUTTON. 

E. DIMAL WILL DELETE THE PROGRAM SPECIFIED AND ALL EDIT 
INFORMATION ASSOCIATED WITH IT. IF A PROGRAM HAD BEEN 
LOADED ON THE DISK MORE THAN ONCE, THEN ALL SUCH PROGRAMS 
BEARING THE SPECIFIED PID WILL BE DELETED. 

F. OPERATION COMPLETED IS INDICATED BY MESSAGE C004 AND 
WAIT 300 (B REG = 3300). 

4. CHANGE EDIT ON DIMAL PACK 

A. PERFORM THE GENERAL OPERATING PROCEDURES, SECTION 3.2.1, 
IF DIMAL IS NOT IN CORE. 

B. SET SENSE/PROGRAM SWITCH 2, CLEAR ALL OTHERS, AND PRESS 
THE START BUTTON. 

C. DIMAL WILL PRINT MESSAGE C003 AND STOP AT WAIT 30A, B REG 
= 330A. 

D. OBTAIN A COMPLETE SET OF EDIT CARDS FOR THE PROGRAM 
TO WHICH THE CHANGE IS TO BE MADE. 

E PUNCH NEW EDIT CARDS WITH THE DESIRED CHANGES AND INSERT 
THEM IN THE EDIT DECK IN PLACE OF THE OLD CARDS. INSURE 
THAT THE EDIT CARDS ARE IN CORRECT SEQUENCE. 



F. PLACE THE NEW SET OF EDIT CARDS- IN THE 1442 HOPPER AND 
MAKE IT READY. 

MORE THAN 1 SET OF EDIT CARDS MAY BE ENTERED (PRUVIDING 
THEY ARE NOT FUR THE SAME PROGRAM) BY STACKING THE EDIT 
DECK IN THE 1442 HOPPER. 

EDIT CARDS FOR PROGRAMS LOADED ON THE DISK BUT NOT 
PREVIOUSLY EDITED WILL ALSO BE ACCEPTED. THESE EDIT 
DECKS MAY BE STACKED WITH THOSE BEING CHANGED. 

G. AT THE 1800 C.P.U. PRESS THE START BUTTON. 

H. EDIT CARDS WILL READ IN UNTIL THE 1442 HOPPER BECOMES 
EMPTY. DIMAL WILL STOP AT WAIT 305, B REG = 3305. 

I. DEPRESS THE 1442 START BUTTON TO READY IT FOR THE LAST CARD. 

J. DEPRESS THE 1800 C.P.U. START BUTTON. 

K. THE NEW CONTENTS UF THE EDIT TABLE WILL NOW BE LISTED. 

L. OPERATION COMPLETED IS INDICATED BY MESSAGE C004 AND WAIT 
300. (B REG = 3300). 

5. LIST CONTENTS OF DIMAL LOCATION DIRECTORY 

A 



PERFORM THE GENERAL OPERATING PROCEDURES, SECTION 3.2.1, 
IF DIMAL IS NOT IN CORE. 

B. SET SENSE/PROGRAM SWITCH 3, CLEAR ALL OTHERS, AND PRESS 
THE START BUTTON. 

C. DIMAL WILL LIST THE LOCATION DIRECTORY, MESSAGE D001. 

D. OPERATION COMPLETE IS INDICATED BY MESSAGE C004 AND WAIT 
300. B REG = 3300). 

6. LIST CONTENTS OF DIMAL EDIT TABLE 

A. PERFORM THE GENERAL OPERATING PROCEDURES SECTION 3.2.1 
IF DIMAL IS NOT IN CORE. 

B. SET SENSE/PROGRAM SWITCH 4, CLEAR ALL OTHERS, AND PRESS 
THE START BUTTON. 

C. DIMAL WILL LIST THE EDIT TABLE, MESSAGE D002. 

D. OPERATION COMPLETE IS INDICATED BY MESSAGE C004 AND WAIT 
300. (B REG = 3 300). 

7. PUNCH COLD START CALL CARDS. 

A. PERFORM THE GENERAL OPERATING PROCEDURES, SECTION 3.2.1, 
IF DIMAL IS NOT IN CORE. 

B. SET SENSE/PROGRAM SWITCH 5, CLEAR ALL OTHERS, AND PRESS THE 
START BUTTON. 

C. MESSAGE C002 WILL BE PRINTED AND THE PROGRAM WAITS AT 
WAIT 308. (B REG = 3308). 

D. READY THE 1442 WITH AT LEAST 8 BLANK CARDS. 

E. AT THE 1800 C.P.U., PRESS THE START BUTTON. DIMAL SHOULD 
START PUNCHING THE CALL CARDS. 
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F. UPtRATION CUMPLhTt IS INDICATED BY MESSAGE C004 AND WAIT 
300 (B REG - 3300) . 

G. AT THE 1442 CARD READ PUNCH. 

1. REMOVE ANY BLANK CARDS FROM THE HOPPER. 

2. PRESS THE NPRO BUTTUN TO CLEAR THE 1442. 

3. REMOVE AND SAVE THE 6 PUNCHED CALL CARDS. 
8. LIST COLD START CALL SEEK COUNT. 

A. PERFORM THE GENERAL OPERATING PROCEDURES, SECTION 3.2.1, 
IF DIMAL IS NOT IN CORE. 

B. SET SENSE/PROGRAM SWITCH 6, CLEAR ALL OTHERS, AND PRESS 
THE START BUTTON. 

C. MESSAGE D003 WILL BE PRINTED. SAVE THE MESSAGE FOR FUTURE 
US c« 

D. OPERATION COMPLETE IS INDICATED BY MESSAGE C004 AND WAIT 
300 (B REG = 3300). 

3.3 DIAGNOSTIC PROGRAM SELECTION AND EXECUTION (SELECT/EXECUTE SECTION) 
1. GENERAL OPERATING INSTRUCTIONS 

A. PLACE THE C.E. DISK PACK CONTAINING THE MAINTENANCE 

LIBRARY ON THE DESIRED DISK DRIVE AND MAKE THE DRIVE READY. 

IF THE C.E. LIBRARY PACK IS ALREADY MOUNTED, INSURE THAT 
THE ACCESS ARM IS IN ITS HOME POSITION. 

THE ACCESS ARM MAY BE RETURNED TO HOME BY 
PERFORMING THE FOLLOWING, 

1. PRESS CONSOLE RESET BUTTON. 

2. SET MODE SWITCH TO LOAD POSITION. 

3. ENTER FOLLOWING PROGRAM IN THE DATA ENTRY 
SWITCHES, PRESSING START AFTER EACH ENTRY. 



DRIVE Al 

0801 

3000 

OOCA 

2404 



DRIVE A2 
0801 
3000 
OOCA 

4404 



DRIVE A3 

0801 

3000 

OOCA 

4C04 



B. 



4. SET MODE SWITCH TO RUN. 

5. PRESS RESET AND START. ARM WILL BE RETURNED 
TO HOME AND MACHINE WILL STOP WITH I REG. = 2. 

6. PRESS RESET BUTTON AND PROCEED TO NEXT 
STEP. 



AT THE 1800 C.P.U., CLEAR CORE STORAGE AS DESCRIBED IN 
SECTION 3.1.3. 



C. SET CHECK STOP SWITCH TO ON. 

D. SET WRITE STORAGE PROTECT SWITCH TO NO. 



E * r fc J A c L i,T, ATA ENTKY SWITChEi " SENSE/PROGRAM SWITCHES AND 
C.E. SWITCHES TU THE OFF POSITION. 

F * ?m!t! a, T nf c^ UL ° iTART CALL CARDS PROVIDED BY OIMAL DURING 
INITIAL DISK LIBRARY GENERATION. IF IT IS DESIRED 1Nb 

TO APPEND I IX AL SEC I TI^ AT 6 :2 fc . N TRY S " ,TCH CALL R ° UTINES ' *^* 
G * ^NTIF'KA'no'N^ " ^^ 8 ° ™ ™ E CALL CARDS F0R THfc "RD 

H * DRIVE T BEING USEd!^"" 1 ^ ° ALL " R0S ACC0RD ^ TO THE DISK 

1. A1S FOR DISK DRIVE Al. 

2. A2S FOR DISK DRIVE A2. 

3. A3S FOR DISK DRIVE A3. 

THE 1ST AND 2ND DIGITS OF THE ID INDICATE THE DISK ORIVF 
THE 3RD DIGIT (S ) INDICATES THAT THIS TAPE WILL CALL THE 
SELECT/EXECUTE SECTION OF THE DIMAL SYSTEM. 

I. AT THE 1442 CARD READ PUNCH. 

1. CLEAR THE 1442 OF ALL CARDS. 

2. PLACE THE CALL CARD IN THE HOPPER. 

?' n R !.o J HE START BUTT 0N. THE CARD SHOULD FEED IN. 
4. PRESS THE START BUTTON TO MAKE THE 1442 READY. 

J. AT THE 1800 C.P.U. 

1. PRESS THE RESET BUTTON 

2. PRESS THE PROGRAM LOAD BUTTON. THE CARD SHOULD READ IN. 

K. THE COLD START CALL WILL 1ST LOAD THE DIMAL HEADER TESTS 

SEcf ?HF°rmn fc ^ D T RUN SUCCESFULLY <*"" TIMe'app'ro^mItely 
1 SEC) THE COLD START LOADER WILL BE BROUGHT INTO CORE AND 
IT IN TURN WILL LOAD THE OIMAL SELECT/EXECUTE SECTION. 

IF AN ERROR IS DETECTED BY THE HEADER TEST (INDICATED BY 
WAITS 4 THROUGH 126) REFER TO SECTION 3.6 FOR ERROR PROCEDURE. 

L ' ^MESSAGE COM." 6 ° F THE SEL£CT/EXECUTE ACTION IS INDICATED 
REFER TO SECTIONS 3.3.2 DIAGNOSTIC MONITOR PROGRAMS SELECTION 
R F 3 TH^OP^T^ N G IT pR a ScE PR DU G RE^ S ^^ ™ ™ *™™ 

2. DIAGNOSTIC MONITOR PROGRAMS SELECTION 

A * SECTION ™Ll ENERAL ° PERATING INSTRUCTIONS AS DESCRIBED IN 

U 21 'DEGRESS' ?HE T fTA D R E T S ^TON P r R D^Arw?fL T \^TO M Ay^A! L Y H = » 
THE DIAGNOSTIC MONITOR ON THE 1ST PROGRAM SELECTION; 

D - c2 E 02 D rN G D^0p C ArwAlT R 2 W !^RlL3S02 T ! AL,ZED ' ^^ '"" *«*« 
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E. SELECT MONITOR PROGRAM LOAD OPTIONS. 

REFER TO THE EXPLANATION OF MESSAGE C001 IN THE DIAGNOSTIC MONITOR 
(PID 0801 > DOCUMENTATION FOR THE SWITCH SETTINGS. 

F. DEPRESS CONSOLE START. THE PROGRAM SELECTED IN STEP C WILL bt LOADED. 

G. IF OVERLAP OPERATION HAS BEEN SPECIFIED, PROCEED TO STEP K. 

BOOTSTRAP MODE (SELECTED BY BIT SWITCH 8 = 1 AT DIAGNOSTIC 
MONITOR WAIT 2) ALLOWS ONLY 1 PROGRAM TO OPERATE IN CORE. WHEN THE 
DESIRED PROGRAM HAS BEEN LOADED, THE DIAGNOSTIC MONITOR WILL 
PRINT MESSAGE D001. 

H. EXECUTE THE SELECTED PROGRAM. REFER TO DIAGNOSTIC MONITOR 

DOCUMENTATION, AND THE DOCUMENTATION FOR THE SELECTED FUNCTION 
TEST FOR THE AVAILABLE OPTIONS AND OPERATING PROCEDURES. 

I. UPON COMPLETION OF THE SELECTED PROGRAM RUN, THE DIAGNOSTIC MONITOR 
WILL RETURN TO DIMAL. DIMAL WILL PRINT MESSAGE C006 AND STOP AT 
WAIT 400, B REG ■ 3400. THE NEXT PROGRAM MAY NOW BE SELECTED. 

J. TO RETURN TO DIMAL DURING THE OPERATION OF DIAGNOSTIC PROGRAM, PRESS 
THE STOP AND RESET BUTTONS. SET THE 1 COUNTER TO 0050 HEX AND PRESS 
START, DIMAL WILL LOAD, PRINT MESSAGE C006 AND STOP AT WAIT 400. 

K. OVERLAP MODE (SELECTED BY BIT SWITCH 8 = AT DIAGNOSTIC MONITOR WAIT 2 
ALLOWS MORE THAN 1 PROGRAM TO BE LOADED AND EXECUTED. 

L. AFTER EACH PROGRAM HAS BEEN LOADED, THE DIAGNOSTIC MONITOR WILL PRINT 
MESSAGE D001 AND RETURN TO DIMAL. DIMAL PRINTS MESSAGE C006 
AND STOP AT WAIT 400 FOR THE NEXT PROGRAM SELECTION. 

M. THE LAST PROGRAM TO BE LOADED IS COMMUNICATED TO DIMAL BY SETTING DATA 
SWITCHES THROUGH 7 ALL ON AND SETTING THE PID OF THE DESIRED 
PROGRAM IN DATA SWITCHES 8 THROUGH 15. PROGRAM LOAD COMPLETED CAN ALSO 
BE INDICATED BY SETTING THE D.E. SWITCHES TO FFOO AT WAIT 400. 

N. WHEN THE FINAL PROGRAM HAS BEEN LOADED, CONTROL IS GIVEN TO THE 
DIAGNOSTIC MONITOR. 

0. EXECUTE THE SELECTED PROGRAMS. REFER TO DIAGNOSTIC MONITOR 

DOCUMENTATION AND THE DOCUMENTATION FOR THE SELECTED PROGRAMS FOR 
AVAILABLE OPTIONS AND OPERATING PROCEDURES. 

P. TO LOAD A NEW SET OF DIAGNOSTIC TESTS, DE-EXECUTE ANY D.T. WHICH 

MAY BE RUNNING. PRESS THE STOP AND RESET BUTTONS. SET THE I COUNTER 
TO 0050 HEX AND PRESS START. DIMAL WILL LOAD, PRINT MESSAGE C006 
AND STOP AT WAIT 400. PROGRAMS MAY NOW BE SELECTED. 

I. NON MONITOK PROGRAMS SELECTION 

A. PERFORM THE GENERAL OPERATING INSTRUCTIONS AS DESCRIBED IN SECTION 
3.3.1. 

B. MESSAGE C006 SELECT PID IN DATA SWS OOXX IS PRINTED UPON SUCCESSFUL 
LOADING OF THE DIMAL SELECT/EXECUTE SECTION. 

C. SET THE PID OF THE DESIRED PROGRAM IN DATA SWITCHES 8 THROUGH 15 
AND PRESS START. 



D. DIMAL WILL LOAD THE SPECIFIED PROGRAM AND GIVE CONTROL TO IT. 

E. RE.FER TO THE DOCUMENTATION FOR THE SELECT PROGRAM FOR AVAILABLE OPTIONS 
AND PROGRAM EXECUTION. 

F. IF A NON MONITOR PRUGKAM RETURNS TO THE LOADER UPON COMPLETION, THEN 
DIMAL WILL BE RELOADED, PRINT MESSAGE C006 AND STOP AT WAIT 400. 
THE NEXT PROGRAM MAY NOW BE SELECTED. 

G. IF A NON MONITOR PROGRAM TERMINATES WITHIN THE PROGRAM ITSELF, 

THEN DIMAL MAY BE RECALLED BY PRESSING THE RESET BUTTON, SETTING THE 
I COUNTER TO 0050 HEX AND PRESSING START. DIMAL WILL BE RELOADED,'. 
PRINT MESSAGE C006 AND STOP AT WAIT 400. THE NEXT PROGRAM MAY NOW 
BE SELECTED. 

3.4 PROGRAM HALTS (IN LISTING) 

AN INTERNAL ERROR (OP CODE VIOLATE, PARITY ERROR, STORAGE PROTECT VIOLATE 
OR C.A.R CHECK) CONSTITUTES A CATASTROPHIC FAILURE AND REQUIRES RELOADING 
OF THE PROGRAM. 

PROGRAM WAITS ARE USED IN THIS PROGRAM AND ARE IDENTIFIED BY REFERENCING 
THE B REG AND I REG. 

A PROGRAM WAIT IS OF THE FORM, 

3XYY, (B REG). 

WHERE XYY REPRESENTS THE WAIT NUMBER. IN THE DIMAL SYSTEM, THE WAIT 

NUMBERS ARE ASSIGNED IN BLOCKS TO VARIOUS SECTIONS OF THE PROGRAM AS FOLLOWS. 

X = OR 1, THE WAIT IS IN THE HEADER TESTS. 

X = 2, THE WAIT IS IN THE COLO START LOADER. 

X = 3, THE WAIT IS IN THE LOAOER/ORGANIZOR SECTION. 

X = 4, THE WAIT IS IN THE SELtCT/EXECUTE SECTION. 

X = 5, THE WAIT IS IN THE INITIAL LOADER. 

A DESCRIPTION OF THE INDIVIDUAL PROGRAM WAIT CAN BE FOUND AT THE 
BEGINNING OF THE APPROPRIATE PROGRAM LISTING. THE FORMAT OF THE WAIT 
DESCRIPTION FOLLOWS 

3001 01ED DC WAIT1+1 WAIT 1 

* DESCRIPTION OF WAIT 

a*********************************************************** 

B REG, (FIRST 4 DIGIT GROUP) CORRESPONDS TO B REG READING. 
I REG, (SECOND 4 DIGIT GROUP) CORRESPONDS TO I REG READING. 
3.5 RESTART PROCEDURE 
1. INITIAL LOADER 

THERE IS NO RESTART PROCEDURE DURING THE IPL OPERATION. RESTART IS 
AVAILABLE ONCE THE INITIAL LOADER IS IN CORE. THE DIMAL PROGRAM DECK 
MUST BE RELOADED IN THE 1442 HOPPER AND THE 1442 MADE READY. PRESS 
STOP, RESET AND START BUTTONS. DIMAL SHOULD BEGIN READING IN. 
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2. COLD START LOADER 

DEPRESS STOP, RESET AND START BUTTONS. THE COLD START LOADER WILL 
ATTEMPT A RELOAD OF THE SPECIFIED DIMAL SECTION. 

3. DIMAL LOADER/ORGANIZUR SECTION 

A. INITIAL DISK PACK GENERATION 

IF A PROGRAM WAS BEING READ IN VIA THE 1442 AT THE TIME THIS RESTART 
PROCEDURE IS INITIATED, THEN THAT PROGRAM MUST BE RELOADED. PRESS 
STOP, RESET AND START BUTTONS. THE NORMAL DISK LOADING OPERATIONS 
SHOULD CONTINUE. 

B. DISK PACK MODIFICATION 

PRESS STOP, RESET AND START BUTTONS. MESSAGE C004 SHOULD BE PRINTED 
AND THE PROGRAM SHOULD STOP AT WAIT 300, B REG = 3300. OPTIONS 
MAY NOW BE SELECTED. 

4. DIMAL SELECT/EXECUTE SECTION 

PRESS STOP, RESET AND START BUTTONS. MESSAGE C006 SHOULD BE PRIN1E0 
AND THE PROGRAM SHOULD STOP AT WAIT 400, B REG. = 3400. PROGRAMS MUST 
BE RESELECTED FOR EXECUTION. RESTART MAY ALSO BE ACCOMPLISHED BY 
PRESSING STOP, RESET, SETTING THE I COUNTER TO 0050 HEX AND THEN 
PRESS START. 

5. DIMAL HEADER SECTION 

TO RESTART THE HEADER FROM TEST 1, RE-ENTER THE COLD START CALL CARD. 
REFER TO SECTION 3.2.1 OR 3.3.1.. 

IF THE RESTART PROCEDURES FAIL TO PROVIDE THE OESCRIBEO RESULTS, RELOADING 
WILL BE NECESSARY. 



1. 


WAITS 


3004 


THROUGH 


3063 


2. 


WAITS 


3064 


THROUGH 


3085 


3. 


WAITS 


3086 


THROUGH 


30A6 


4. 


WAITS 


30A7 


THROUGH 


30C8 


5. 


WAITS 


30C9 


THROUGH 


30E8 


6. 


WAITS 


30E9 


THROUGH 


3108 


7. 


WAITS 


310C 


THROUGH 


3126 



3.6 DIMAL HEADER TEST EKKUR PRUCEDURE 

THE HEADER TEST IS DIVIDED INTO 7 TEST SECTIONS (TESTS THROUGH 6). EACH 
TEST SECTION HAS ITS OWN PROGRAM LISTING. REFER TO THE APPROPRIATE PROGRAM 
LISTING, WHEN AN ERROR WAIT OCCURS, ACCORDING TO THE FOLLOWING SCHEDULE. 

HEADER SECTION 1 
HEADER SECTION 2. 
HEADER SECTION 3. 
HEADER SECTION 4. 
HEADER SECTION 5. 
HEADER SECTION 6. 
HEADER SECTION 7. 

ALL ERRORS SHOULD BE CORRECTED BEFORE CONTINUING. 

THE ERRORS ARE DIVIDED INTO 2 GROUPS. GROUP 1 FOR ERRORS 3004 THROUGH 306D, 
AND GROUP 2 FOR ERRORS 306E THROUGH 3126. AN ERROR PROCEDURE FOR EACH OF 
THESE GROUPS FOLLOWS. 

GROUP 1 

THE ERRORS IN GROUP 1 ARE THOSE WHICH OCCUR BEFORE SUFFICIENT CHECKS ARE MADE 
TO ALLOW USE OF THE COMMON ERROR CONTROL ROUTINE. THE ERROR WAITS ARE IN 
HEADER TEST SECTIONS AND 1. THE I COUNTER WILL CONTAIN THE LOCATION OF THE 
WAIT +1. REFER TO THE APPROPRIATE LISTING TO FIND THE ERROR WAIT. SET THE 1 
COUNTER TO THE BEGINNING OF THE TEST IN WHICH THE FAILING OPERATION WAS 
OETECTED, AND THEN SINGLE INSTRUCTION THROUGH THE TEST TU DETERMINE THE CAUSE 
OF THE ERROR. 

GROUP 2 

THE ERRORS IN GROUP 2 ARE THOSE WHICH USE A COMMON ERROR CONTROL ROUTINE. THE 
I COUNTER CONTAINS THE LOCATION OF THE ERROR WAIT +1. REFER TO THE APPROPRIAT 
LISTING TO FIND THE WAIT. 

TABLE 2 SHOWS THE FUNCTIONS OF DATA ENTRY SWITCHES ANO 1 IN PROVIDING ERROR 
ROUTINE CONTROL. SET THE SWITCHES AS DESIRED WHEN AN ERROR WAIT IS 
ENCOUNTERED. 



TABLE 2 
+CADER TEST ERROR PROCEDURE OPTIONS 



* DATA ENTRY SWITCH * 
♦0 123456789* DESCRIPTION 

* . . 

* • 1 LOOP INSTRUCTION 

* 1 BYPASS ERROR WAIT 

* 

* . . 

* . . 

* ° ° RETRY FAILING INSTRUCTION AND HALT IF ERROR OCCURS. 

* PROGRAM WILL PROCEED IF FAILURE DOES NOT REOCCUR. 

* • • 

* 1 ° RETRY FAILING INSTRUCTION AND BYPASS HALT IF ERROR 

* OCCURS. PROGRAM WILL PROCEED IF FAILURE DOES NOT REOCCUR 

* . • 

* ° 1 CONTINUOUS LOOP ON INSTRUCTION. HALT AT ERROR WAIT !F 

* FAILURE OCCURS. USE THIS SETTING TO DfcTtCT INTERHITTANT 

* ERRORS, AND FOR STEPPING THROUGH A FAILING ROUTINE IN 

* SINGLE INSTRUCTION MODE. 

* . . 

* * 1 - CONTINUOUS LOOP ON INSTRUCT ION. BYPASS WAIT ON ERROR. USE 

* SETTING TO SCOPE A FAILING INSTRUCTION. 



* 

* 

* 

* 

* 
* 
* 
* 

* 
* 

* 
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AFTER THE FAILURE IS CORRECTED, AND IF CORE HAS NOT BEEN ALTERED, SET ALL 
S*TA SMITCHES TO 0000 AND PRESS THE START BUTTON TO CONTINUE THE PROGRAM. IF 
CORE HAS BEEN ALTERED UR DESTROYED, INSURE THAT THE 2310 ACCESS ARM IS IN 
ITS HOMfc POSITION, AND THEN RE-fcNTfck THE COLD START CARD. 

4. PRINTOUTS 
4.1 STATUS MESSAGES 

A001 NO AVAIL CYLS 

THIS PRINTOUT INDICATES THAT THERE ARE NO MORE AVAILABLE CYLINDER ON WHICH TO 
STORE THE DIAGNOSTIC FUNCTION TESTS. 

if THERE HAS BEEN A LARGE AMOUNT OF 'DELETE PROGRAM" ACTIVITY ON THE DIMAL 
PACK? rIlSaDIn! ALL SfT-I WRL BE NECESSARY TO MAKE MORE CYLINDERS AVAILABLE. 

4.2 DATA MESSAGES 



D001 LOCATION 


DIRECTORY 




PID 


CYL 


SECT 


TStC 




02 


XXX 





07 


(1) 


02 


XXX 


7 


01 


(2) 


02 


XXX 





OB 


(3) 


02 


XXX 





06 


(4) 


XX 


XXX 


X 


XX 


(5) 




XXX 







(6) 



MESSAGE D001 IS THE LISTING OF THE LOCATION DIRECTORY 

rl? - THE 1ST CYLINDER! IN DECIMAL) ON WHICH THE PROGRAM IS STORED. 
SECT -THE 1ST SECTOR ON THE DESIGNATED CYLINDER USED BY THE PROGRAM. 
t!eC = TOTAL NUMBER OF SECTORS (IN DECIMAL! REQUIRED TO STORE THE PROGRAM. 

LINES 1,2,3 AND 4 ( L 1NE NUMBERS ARE NOT PRINTED ) DEFINE THE LOCATION OF THE 

DIMAL SYSTEM ON THE DISK 

LINE 1 IS THE HEADER TEST LOCATION 

LINE 2 IS THE COLD START LOADER LOCATION 

LINE 3 IS THE LOADER/ ORGAN I ZOR SECTION LOCATION. 

LINE 4 IS THE SELECT/EXECUTE SECTION LOCATION. 

LINE 5 WILL DEFINE THE. LOCATION OF THE 1ST DFT LOADED. 

LINE 6 WILL BE PRINTED WHEN MORE THAN 1 CYLINDER IS REQUIRED TO STORE THE 
PROGRAM. SECTOR WILL ALWAYS BE THE FIRST SECTOR USED. 

ALL DFT-S WILL BE LISTED IN THE FORMAT OF LINES 5 AND 6. SAVE PRINTOUT 
FOR RfcFERENCE. 

D002 EDIT TABLE 

EXXOO EDXX OOOX XXXX XXXX 

MESSAGE D002 IS THE LISTING OF ALL EDIT CONTAINED ON THE DISK PACK. THE 
FORMA? FOR THE PRINTOUT IS THE HEXIDECIMAL CONTENT OF EACH EDIT CARD READ. 
SAVE PRINTOUT FOR REFERENCE. 
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0003 DATA SW CALL SEEK COUNT IS XX 

MESSAGE D003 INFORMS THE OPERATOR OF THE SEEK COUNT REQUIRED IN THE UATA 
ENTRY SW^CH CALL ROUTINE SEEK IOCC. THIS NUMBER IS IN HEX, AND SHUULD BE 
INSERTED AS OOXX. 

THIS MESSAGE IS REFERED TO BY NOTE 1 IN THE DATA ENTRY SWITCH CALL LISTING IN 
THE APPENDIX SECTION 6.2. SAVE THIS PRINTOUT. 

4.3 COMMAND MESSAGES 

C001 SET DATA SWS TO FFOO IF DONE 

THIS MESSAGE IS PRINTED BY THE LOADER/ORGANUOR SECTION WHEN THE LAST CARD 
IeQUENCE HA! BEEN PERFORMED ON INITIAL DISK PACK GENERATION OR WHEN USING 
THE ADD PROGRAM FEATURE. 

IF ALL DESIRED PROGRAMS HAVE BEEN LOADED ON DISK, SET DATA SWITCHES TO FFOO 
AND PRESS START. 

IF MORE PROGRAMS ARE TU BE LOADED, READY THE 1442 WITH THE DFT PROGRAM DECKS 
AND PRESS START. 
C002 ENTER PID TO DELETE IN DATA SWS OOXX 

THIS PRINTOUT OCCURS AS A RESULT OF SELECTING THE DELETE PROGRAM OPTION- 
ENTER THE PID OF THE PROGRAM TO DELETE IN DATA SWITCHES 8 THROUGH 15. ALL 
PROGRAMS AND ALL EDIT CONTAINING THE INDICATED PID «I>-L BE DELETED. A 
NEW LOCATION DIRECTORY, AND EDIT TABLE LISTING IS NOT AN AUTOMATIC 
FUNCTION OF THE DELETE PROGRAM OPTION. TO OBTAIN NEW LISTINGS, SELECT THE 
APPROPRIATE OPTION. 

C003 RDY 1442 WITH NEW EDIT CARDS 

THIS PRINTOUT OCCURS WHEN THE CHANGE EDIT OPTION HAS BEtN SELECTED. PLACE 
the NFy EDIT DECK (AS DESCRIBED IN SECTION 3.2.4 CHANGE EDIT ON °IKAL#ACK) 
In THE 1442 HOPPER AND MAKE THE 1442 READY. AT THE 1800 C.P.U., PRESS THE 
START BUTTON. 

C004 SELECT OPTIONS 

OPERATING INSTRUCTIONS) AND PRESS THE START BUTTON. 
C005 RDY 1442 WITH BLANK CARDS 

tuic Mtcarf nrrilRS DURING INITIAL DISK GENERATION AND DURING THE PUNCH 
loll START "CARD OPTION "upIrAtIoN. READY THE 1442 WITH AT LEAST 8 BLANK 
rAons *Nn PRESS THE 1800 CPU START BUTTON. THE SIX CARDS PUNCHED ARE THE 
"CARD COLD S S TART H CALL CARDS FOR THE DIMAL SYSTEM. SAVE THESE CARDS. 

C006 SELECT PID IN DATA SWS OOXX 

4.4 ERROR MESSAGES 

LOADER/ORGINIZOR SECTION 
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E001 DISK RL> ERR 

Tui S C ?rrno" IN °i CATES THAT A DSW ERR0R EXISTED ON EACH OF 3 ATTEMPTS TO READ 
THE SECTOR ID. THE PROGRAM WHICH WAS BEING LOADED AT THE TIME OF THE ERROR 

wTll b 8 e b\ E p L a°s A s D e E d D : THt CYLIN ° eR ° N WHICH ™ E ATTEMPTE0 ^ad'was^eIng made" 

E002 WRONG SECTOR ID READ 

THIS MESSAGE INDICATES THAT THE WRONG SECTOR ID WAS READ ON 3 CONSECUTIVE 
TRIES. THE PROGRAM WHICH WAS BEING LOADED AT THE TIME THE ERROR OCCURRED 
WILL I! BYPASSED: '* ^^ ° N WHICH ™ E ATTEMPTE ° «*D IS BeSg MaSe 

IF MODIFYING AN EXISTING PACK (EXCEPT FOR ADD PROGRAM) PERFORM THE 
RESTART PROCEDURE. FOR ADD PROGRAM, PARAGRAPH 1 APPLIES. 

E003 DISK WRT ERR 

iTnfiz s^,r«; L r .r.r!?E„. ,ME c,l,nm " ° b " hich ™" ««"» 

E004 MODULO 4 ERR 

THIS MES.SAGE INDICATES THE DATA ERROR BIT WAS ON IN THE DSW ON EACH OF 
?n^ SECUTIVE WR ITE-MUDULO 4 READ OPERATIONS. THE PROGRAM WH^CH WAS 
LOADING AT THE TIME OF THE ERROR MUST BE RELOADED* THE CYLINDER ON WHICH 
THE MODULO 4 CHECK WAS BEING PERFORMED WILL BE BYPASSED. 

E005 EDIT CARD ERR 

^oLErfn^nnpc^n^V™ 7 ™ E EDIT CARD JUST READ HA S EITHER OUT OF 

Hn Uf T U C n ?° T BEL ° NG T ° ™ E PR0GRAH BEHIND WHICH IT WAS PLACED. 
REMOVE THE EDIT CARDS FROM THE 1442. CORRECT THE CAUSE OF THE FAI1I.RF 
(PLACE CARDS IN CORRECT SEQUENCE OR OBTAIN THE PROPER SET OF ED IT CARDS) 
l^r/^J AU EDIT CARDS F0R THE PR0GRAM ^ST LOADED IN THE 1442 HOPPER. 
MA A p E T»p t ,rf, MA i^ ER ° F PR0GRA «S TO BE LOADED BEHIND THE EDIT CARDS AND 
SHOULD CONTINUE! ^ PR " S ™ E 18 °° "" START BUTT ° N * 0"" GENERATION 

AS AN ALTERNATE PROCEDURE TO THE ABOVE, THE EDIT CARDS MAY BE REENTERFn AT 
DIMAlTySTeJT ° F ° 1SK GENERATI0N BY USING THE CHANGEeSiT F E a?URE OF THE 

E006 NOT EDIT CARD 

OPTI S ON E !h FfTPn PR TuI E r. B n ^ HE L0A DER /ORGAN I ZOR SECTION WITH THE CHANGE EDIT 
OPTION SELECTED. THE CARD JUST READ BY THE PROGRAM WAS NOT AN EDIT fARn 

r E D M n V c E c THE " R0 IN ERR0R AND INSERT THE PROPER CARD. INSURE THAT CORRECT 

* E ° UENCING IS MAINTAINED. EDIT CAROS WHICH HAVE ALREADY BEEN ACCEPTED 

START N bJt?0N REENTERED * REA0Y ™ E ^ READER AND ^ESS THE 1800 CPU ° 
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E007 CHECKSUM ERROR 

R T EAD OPERATIONS?'"^ 5 ™ AT A CHECK$UM ERR ° R HAS BEE * DETECTED DURING CARD 

CAUSE CHECKSUM ERRORS). IF CARDS WERE oSt O D L r^f SEQUENCE WILL 

USE THE ADD PROGRAM FEATURE TO ADD THE Pr'oGRAM^n'aT A^ATErM^ ^^ ° R 

SELECT/EXECUTE SECTION 
E008 DISK RD ERR 

E009 WRONG SECTOR ID READ 

EOOA PROG EXCEEDED CORE LIMIT 

EXECUTION Of THOSE MOOMHS «H,Ch H.VE BEeTIuCCe""™ lS.OEO. 

EOOB PROG LOAD ERR 

su ^ s ssvssii? js'jifti.ffi'sg js'ss,™ !,a!r. I rssj M 

EOOC SELECTEO PID NOT ON DISK 

THE PROGRAM PID ENTERED IN THE DATA ENTRY SWTTrHFS at uait , r,n ,r .„,- 
SELECTION. " ™ E ° IMAL PACK ' ""**» ' «™«to"aK 4^0 'foTa %?* 
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5. COMMENTS 
THE DIMAL SYSTEM IS DIVIDED INTO 5 MAJOR SECTIONS 

1. DIMAL INITIAL LOADER 

2. DIMAL HEADER SECTION 

3. DIMAL COLD START LOADER 

4. DIMAL LOADER/ORGANIZOR SECTION 

5. DIMAL SELECT/EXECUTE SECTION 

EACH SECTION HAS A DEFINITE FUNCTION AS DESCRIBED IN THE FOLLOWING PARAGRAPHS. 
DIMAL I/O OPERATIONS ARE PERFORMED WITH MASKED INTERRUPTS IN AN EFFORT TO 
MINIMIZE THE AMOUNT OF HARDWARE REQUIRED TO USE THIS PROGRAM. A LAYOUT OF THE 
DISK PACK CONTAINING DIMAL IS SHOWN IN THE APPENDIX SECTION 6.3. 

5.1 INITIAL LOADER 

THE INITIAL LOADERS FUNCTION IS TO INPUT THE DIMAL OBJECT DECK, WRITE IT ON 
THE DISK AND THEN CALL IN THE COLD START LOADER WHICH IN TURN INPUTS 
THE LOADER/ORGANIZOR SECTION. THE LOADER/ORGANIZOR SECTION IS THEN 
USED TO INPUT THE DFT'S FOR INCLUSION ON THE DISK PACK. 

THE INITIAL LOADER DECK IS PUNCHED IN 8-8 FORMAT. THE 1ST CARD IS THE I PL 
CARD AND IS USED TO INPUT THE REST OF THE INITIAL LOADER, AND TRANSFER 
CONTROL TO IT. 

THE INITIAL LOADER WILL FIRST READ THE LOADER EDIT CARDS. THE EDIT DEFINES 
THE DISK DRIVE TO BE USED, THE ADDRESS OF THE CE HISTORY TRACK AND THE OUTPUT 
DEVICE TO BE USED BY THE DIMAL SYSTEM. A CHECK IS MADE TO ENSURE THAT THE 
CE. PACK HAS BEEN PLACED ON THE SPECIFIED DRIVE. THIS IS DUNE BY READING 
SECTOR 3 OF THE HISTORY TRACK AND CHECKING WORD 2 FOR /CEDC. 

THE LOADE-R WILL THEN DEFINE THE FIRST SIX USABLE CYLINDERS, STARTING AT 
CYLINDER 6, AS THE DIMAL CYLINDERS. THESE 6 CYLINDERS ARE USED AS FOLLOWS 

1ST CYLINDER - HEADER TEST AND COLD START LOADER. 

2ND CYLINDER - LOADER/ORGANIZOR SECTION 

3RD CYLINGER - SELECT/EXECUTE SECTION 

4TH CYLINDER - WORK CYLINDER 1 

5TH CYLINDER - WORK CYLINDER 2 

6TH CYLINDER - LOCATION DIRECTORY AND EDIT TABLE 

THE ADDRESSES FOR THESE CYLINDERS WILL BE PLACED IN A USE TABLE ALONG WITH 
THE EDIT INFORMATION. THIS TABLE WILL BE INCLUDED IN THE COLD START LOADER, 
LOADER/ORGANIZOR SECTION AND THE SELECT/EXECUTE SECTION PRIOR TO WRITING 
THESE SECTIONS ON THE DISK. 

THE DIMAL DECK IS THEN READ IN AND STORED ON THE DISK AT THE ASSIGNED 
CYLINDERS. UPON COMPLETION OF THE LOADER OPERATION THE INITIAL LOADER WILL 
WRITE THE WORD /ABCD ON SECTOR OF THE HISTORY WORK TO DEFINE THE DISK 
PACK AS CONTAINING DIMAL. THE LOADER THEN CALLS INTO CORE, THE COLD START 
LOADER AND SETS UP THE NECESSARY' CONTROL TO BRING IN THE LOAOER/ORGANIZOR 
SECTION. THE INITIAL LOADER THEN BRANCHES TO THE COLD START LOADER WHICH 
INPUTS THE LOADER/ORGANIZOR SECTION AND GIVES CONTROL OT IT. 

5.2 DIMAL HEADER SECTION 

THE HEADER SECTION IS RUN WHENEVER DIMAL IS CALLED BY THE COLD START CARDS 
OR THE DATA ENTRY SWITCH CALL ROUTINES. IT'S PURPOSE IS TO CHECK OUT THE 
1800 INSTRUCTIONS USED BY THE DIMAL SYSTEM. 

THE FOLLOWING INSTRUCTIONS ARE NOT CHECKED BY THE HEADER SECTION. 



DOUBLE COMPARE (DCM) 
DOUBLE ADD (AD) 
DOUBLE SUBTRACT ( SD) 



MULTIPLY (M) 
DIVIDE (D) 
EXECUTE I/O (XIO) 



THE HEADER SECTION IS DIVIDED INTO 7 TESTS. EACH TEST OCCUPIES 1 SECTOR OF 
THE 1ST DIMAL CYLINDER. THE FUNCTIONS OF EACH TEST FOLLOW. 

TEST 1 

CHECKS OPERATION OF MDX, BSC AND EOR SHORT FORM. CHECKS THE ABILITY OF THE 
A REG TO HOLD l'S, TO LOAD l'S ON TOP OF l'S AND TO LOAD O'S ON TOP OF l'S. 
ALSO CHECKED IS THE FLAG BIT AND INDIRECT ADDRESSING. 

TEST 2 

CHECKS THE READ AND SENSE OF SENSE/PROGRAM, CE AND DATA ENTRY SWITCHES. ". 
CHECKS INSTRUCTIONS BSI , SRA, AND, OR, MDX LONG, RTE AND SRT. 

TEST 3 

CHECKS INSTRUCTIONS RTE, SLA, SLT, STO AND STS. 

TEST 4 

CHECKS INSTRUCTIONS BSC, BSI AND LDX. 

TEST 5 

CHECKS INSTRUCTIONS LDX, STX AND A. 

TEST 6 

CHECKS MACHINE INDEXING AND INSTRUCTIONS BSC INDEXED, S AND MDX. 

TEST 7 

CHECKS INSTRUCTIONS SLC, SLCA, LDD, STD AND CMP. 

THE HEADER SECTION CONTAINS THE CONTROL NECESSARY FOR LOOPING ERRORS 
LOOPING INSTRUCTIONS, AND BYPASSING ERROR WAITS DURING TROUBLE SHOOTING. 
REFER TO SECTION 3.6 FOR HEADER TEST ERROR PROCEDURES. 

5.3 COLD START LOADER 

IT IS THE FUNCTION OF THE COLD START LOADER TO INPUT THE DIMAL SECTION 
SPECIFIED BY THE COLO START CALL CARD. 

DURING INITIAL 01MAL DISK PACK GENERATION, THE INITIAL LOADER CALLS ON THE 
COLD START LOADER TO INPUT THE LOADER/ORGANIZOR SECTION OF DIMAL. 

ON COLD START CARD OR DATA ENTRY SWITCH COLD START CALLS, THE COLD START 
LOADER IS BROUGHT INTO CORE BY HEADER TEST 6 AFTER SUCCESSFUL OPERATION OF 
THE HEADER SECTION. THE COLD START LOADER THEN REFERENCES A CONSTANT 
IN THE CALL (WILL BE AT LOCATION OOOC) TO DETERMINE WHICH DIMAL SECTION TO 
LOAD, WILL LOAD THAT SECTION AND BRANCH TO IT. 

THE COLD START LOADER IS STORED ON SECTOR 7 OF THE 1ST DIMAL CYLINDER AND 
IS LOADED INTO CORE AT LOCATION 3500 DECIMAL. 

5.4 DIMAL LOADER/ORGANIZOR SECTION 

IT IS THE FUNCTION OF THE LOADER/ORGANIZOR SECTION TO INPUT THE DIAGNOSTIC 
PROGRAM DECKS AND WRITE THEM ON THE DISK PACK. THIS SECTION IS ALSO USED 
TO MODIFY A PREVIOUSLY GENERATED DIMAL PACK. 

THE LOADER/ORGANIZOR SECTION IS CALLED FROM DISK BY THE INITIAL LOADER 
WHEN GENERATING A NEW DIMAL PACK, AND BY A COLD START CARD WHEN MODIFYING 
AN EXISTING DIMAL PACK. 
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WHEN GENERATING A NEW PACK, THIS SECTION WILL FIRST UP DATE THE LOCATION 
DIRECTORY TO INCLUDE THE LOCATION OF THE DIMAL SYSTEM ON THE DISK PACK. 
THE SECTION THEN PREPARES TO INPUT THE PROGRAM DECKS. PRIOR TO USING ANY 
CYLINDER FOR PROGRAM STORAGE, THE CYLINDER IS CHECKED FOR A USABLE 
CONDITION. ALL BAD CYLINDERS ARE BYPASSED. 

THE PROGRAMS ARE STORED ON DISK ACCORDING TO THE FOLLOWING SCHEME. 

A) 8-8 FORMAT CARDS ARE NON MONITOR DEPENDENT PROGRAMS AND ARE STORED 
ON DISK IN CORE IMAGE, 320 WORDS PER SECTOR. 

B) 12-4 FORMAT CARDS FOR ABSOLUTE ASSEMBLIES, ARE NON MONITOR DEPENDENT 
PROGRAMS, OR THE DIAGNOSTIC MONITOR ITSELF. THESE PROGRAMS ARE 
ALSO STORED ON DISK IN CORE IMAGE, 320 WORDS PER SECTOR. 

C) 12-4 FORMAT CARDS REPRESENTING RELOCATABLE PROGRAM ASSEMBLIES, 
ARE DIAGNOSTIC MONITOR DEPENDENT PROGRAMS AND ARE STORED ON 
DISK IN CARD IMAGE, 4 CARDS PER SECTOR. 

THE IMAGE USED IS ENTERED IN THE IMAGE INDICATOR (0=CORE IMAGE, 1 - CARD IMAG 
WHICH IS CONTAINED IN THE LOCATION DIRECTORY ENTRIES FOR EACH PROGRAM. 

CARD 1 (HEADER CARD) OF THE 12-4 DECKS IS NOT STORED ON THE DISK NOR ARE THE 
CARDS WHICH CONTAIN THE WAIT OR TRAP CONSTANTS USED IN THE WAIT DESCRIPTION 
AT THE FRONT OF THE PROGRAM LISTING. THESE CARDS ARE IDENTIFIED BY ADDRESS 
STARTING AT 3001 OR 7001. 

WHEN WRITING PROGRAMS ON DISK IN CORE IMAGE, ALL BLOCKS OF STORAGE RESERVED 
BY THE PROGRAM (DEFINED BY BSS STATEMENTS) ARE WRITTEN AS ZEROS ON DISK. 

THE TOTAL NUMBER OF SECTORS USED, THE ADDRESSES OF ALL CYLINDERS USED, THE 
PROGRAM ORG ADDRESS AND THE PROGRAM TRANSFER ADDRESS ARE SAVED FOR INCLUSION 
IN THE LOCATION DIRECTORY. 

THE LOCATION DIRECTORY IS UPDATED FOR EACH PROGRAM UPON DETECTION OF THAT 
PROGRAMS END RECORD. THE FORMAT OF THE LOCATION DIRECTORY FOLLOWS 



7 8 



12 



13 



15 



*** **************** ******* ***** ***** 

* PROGRAM PID*TOTAL SECT.*TOTAL *I * 

* * *CLYS. * * 

************************************ 

* PROGRAM ORG. ADDRESS * 

****************.******************** 

♦ADDRESS OF STARTING DISK LOC. * 
************************************ 

♦NEXT CYL ADDRESS (IF REQUIRED) ♦ 

************************************ 

♦NEXT CYL ADDRESS (IF REQUIRED) * 
************************************ 

* PROGRAM XFER ADDRESS ♦ 
************************************ 



THE 'I' IN BIT 15 OF THE 1ST ENTRY IS THE IMAGE INDICATOR DESCRIBED 
PREVIOUSLY. 

IF A PROGRAM DOES NOT REQUIRE 3 CYLINDERS FOR STORAGE, THEN THE TRANSFER 
ADDRESS ENTRY WILL FOLLOW THE LAST USED CYLINDER ADDRESS ENTRY. 

AFTER EACH PROGRAM IS WRITTEN ON DISK A CHECK IS MADE TO SEE IF EDIT CARDS 
FOLLOW THAT PROGRAM. IF EDIT CARDS ARE PRESENT AND CORRECT, THEY WILL BE 
INCLUDED IN THE EDIT TABLE. THE FORMAT OF THE EDIT TABLE FOLLOWS. 



7fa 15 

****** ************************** 

♦ ♦ PROGRAM ID ♦TOTAL NUMBER OF * 

♦ ♦HEX ENTRIES ♦ 

******************************** 

♦ EDIT CARD ID ♦ 
******* ************************* 

♦ EDIT CARD SEQUENCE NUMBER * 

******************************** 

♦ NUMBER OF EDIT ENTRIES * 

************************* ******* 

♦ EDIT DATA ENTRY 1 ♦ 

****************** ************** 

♦ EDIT DATA ENTRY 2 * 

******************************** 

♦ EDIT DATA ENTRY N * 

******************************** 

♦ ♦ PROGRAM ID ♦TOTAL NUMBER 0F« 

♦ ♦HEX ENTRIES ♦ 

*************** ***************** 

THE ENTRIES INDICATED BY (») ARE CONTROL WORDS WHICH PRECEED EVERY 
CARD ENTERED IN THE TABLE. THIS WORD IS USED BY THE DIMAL SYSTEM AND 
IS NOT INCLUDED WHEN THE EDIT DATA IS TRANSFERED TO THE USER PROGRAM. 

AS EACH NEW PROGRAM IS READ IN, IT WILL BE WRITTEN ON THE NEXT AVAILABLE 
SECTOR. THEREFORE A PROGRAM MAY START ON ANY SECTOR OF THE CYLINDER 
PRESENTLY BEING USED. AFTER SECTOR 7 HAS BEEN WRITTEN, PROGRAM STORAGE WILL 
CONTINUE ON THE NEXT SEQUENTIAL AVAILABLE CYLINDER, SECTOR 0. THOSE 
CYLINDERS DEFINED BY THE 2310 FUNCTION TEST ARE NOT USED AS PROGRAM 
STORAGE CYLINDERS. 

WHEN ALL PROGRAMS HAVE BEEN WRITTEN ON THE DISK, THE LOADER/ORGANIZOR SECTION 
WILL SAVE THE NEXT AVAILABLE STORAGE SECTOR BY WRITING ITS ADDRESS ON 
SECTOR 0, WORD 3 OF THE CE HISTORY TRACK. THE SECTION THEN LISTS THE CONTENT 
OF THE LOCATION DIRECTORY AND EDIT TABLE, PUNCHES 6 COLD START CARDS AND 
PRINTS A SEEK COUNT TO BE USED WHEN ENTERING THE COLD START CALL VIA THE 
DATA ENTRY SWITCHES. 

WHEN DISK PACK MODIFICATION IS BEING PERFORMED, THE OPTIONS OF ADD PROGRAM, 
LIST LOCATION DIRECTORY, LIST EDIT TABLE, PUNCH COLD START CALL CARDS AND 
LIST DATA ENTRY SWITCH COLD START SEEK COUNT USE THE SAME SUBROUTINES AS ARE 
USED DURING INITIAL DISK PACK GENERATION. TO PERFORM THE OPTIONS OF 
DELETE PROGRAM AND CHANGE EDIT, TWO SPECIAL SUBROUTINES HAVE BEEN INCLUDED. 

SUBROUTINE DLPGM IS USED TO DELETE PROGRAMS. THIS SUBROUTINE REMOVES ALL 
ENTRIES FROM THE LOCATION DIRECTORY WHICH PERTAIN TO THE PID SPECIFIED TO 
BE DELETED. IF THE PROGRAM HAD BEEN STORED MORE THAN ONCE, THEN ALL 
PROGRAMS WITH THE SAME PID ARE DELETED. ( THE PROGRAM ITSELF IS NOT ERASED 
FROM THE DISK, ONLY THE LOCATION DIRECTORY ENTRIES). FURTHER THE DLPGM 
SUBROUTINE CALLS ON THE DELETE EDIT SUBROUTINE WHICH REMOVES ALL EDIT 
DATA WHICH PERTAINS TO THE PROGRAM BEING DELETED, FROM THE EDIT TABLE. 

THE CHGED SUBROUTINE IS USED TO ACCOMPLISH THE OPTION OF CHANGING EDIT. THIS 
SUBROUTINE INPUTS EDIT CARDS, CHECKS THEIR CORRECTNESS, CAUSES OLD EDIT 
WITH THE SAME PID TO BE DELETED FROM THE EDIT TABLE, AND THEN CALLS ON 
THE EDIT SUBROUTINE WHICH UPDATES THE EDIT TABLE WITH THE NEW EDIT DATA. 
AN EDIT TABLE LIST IS ALSO PROVIDED AFTER ALL CHANGES HAVE BEEN MADE. 

5.5 DIMAL SELECT/EXECUTE SECTION 

THE PURPOSE OF THIS SECTION IS TO CALL INTO CORE, FROM DISK, THE DIAGNOSTIC 
PROGRAM SPECIFIED BY THE OPERATOR. 
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THE SELECT/EXECUTE SECTION IS CALLED INTO CORE BY A 1 CARD COLD START CALL OR 
BY A CALL ROUTINE ENTERED VIA THE DATA ENTRY SWITCHES. 



THE SELECT/EXECUTE SECTIUN IS DIVIDED INTO 2 PARTS, 
MAIN BODY OF THE SECTIUN. 



AN INTERFACE, AND THE 



THE INTERFACE PORTION PERMANENTLY RESIDES IN CORE FROM LOCATION 0050 THROUGH 
012B HEX. ALL PROGRAMS WHICH RETURN TO DIMAL WILL DO SO VIA THE INTERFACE, 
ENTERING AT LOCATION 0050. THE MAIN PORTION OF DIMAL ALSO ENTERS THE INTER- 
FACE PORTION TO LOAD ABSOLUTE PROGRAMS OR PRIOR TO TRANSFERING CONTROL TO A 
DIAGNOSTIC PROGRAM. 

THE MAIN BODY OF THE SELECT/EXECUTE SECTION USES CORE LOCATIONS 012C THROUGH 
07FE HEX AND SHARES THESE LOCATIONS WITH EITHER THE DIAGNOSTIC MONITOR OR A 
NON MONITOR PROGRAM. 

WHEN A PROGRAM HAS BEEN ENTERED IN THE DATA ENTRY SWITCHES FOR 
SELECTION, THE DIMAL SECTION WILL FIRST DETERMINE WHETHER THE 
PROGRAM IS MONITOR DEPENDENT OR STANDALONE (NON MONITOR DEPENDENT). 

STANDALONE PROGRAMS 

IF A STANDALONE PROGRAM IS BEING REQUESTED, THE SEL/EXC SECTION 
WILL SEARCH THE LOCATION DIRECTORY FOR THAT P1D. WHEN THE PID IS 
FOUND, IT'S LOCATION UN DISK WILL BE STORED IN THE INTERFACE SECTION. 
A CHECK IS THEN MADE TO DETERMINE IF THERE IS ANY EDIT DATA FOR THIS 
PROGRAM, BY SEARCHING THE EDIT TABLE. AN EDIT INDICATOR IS SET IF 
ANY EDIT DATA IS FOUND. A BRANCH TO LOCATION 0050 OF THE INTERFACE 
SECTION IS THEN PERFORMED. 

THE INTERFACE SECTION WILL SAVE CORE LOCATIONS 012C THROUGH 07FF, WHICH NOW 
CONTAIN THE DIMAL SECTION, ON DIMAL WORK CYLINDER 2, INPUT THE 
SELECTED DIAGNOSTIC PRUGRAM AND BRANCH TO IT. 

IF THE PROGRAM JUST LOADED REWIRES EDIT, IT WILL RETURN TO DIMAL BY 
BRANCHING TO LOCATION 0050 OF THE INTERFACE SECTION. THE INTERFACE 
SECTION WILL PERFORM A CORE SWAP, SAVING THE DIAGNOSTIC PROGRAM ON WORK 
CYLINDER 1 AND INPUTTING THE DIMAL SECTION FROM WORK CYLINDER 2. 
DIMAL WILL THEN PLACE THE DATA FROM ONE EDIT CARD IN LOCATIONS AND UP 
AND RETURN TO THE INTERFACE SECTION. THE INTERFACE SECTION WILL AGAIN 
PERFORM A CORE SWAP AND EXIT TO THE USER PROGRAM. THE EOIT OPERATION 
DESCRIBED WILL BE REPEATED EACH TIME THE USER PROGRAM REQUESTS EDIT DATA. 

FOLLOWING PROGRAM EDIT, PROGRAM EXECUTION CAN OCCOR. 

IF THE PROGRAM TERMINATES BY RETURNING TO LOCATION 0050, THE SELECT/ 
EXECUTE SECTION WILL BE BROUGHT BACK INTO CORE AND WILL SET UP TO 
ALLOW SELECTION OF THE NEXT PROGRAM. 

IF THE PROGRAM TERMINATES BY HALTING WITHIN ITSELF, THE DIMAL SECTION 
MAY BE RELOADED BY SETTING THE 1 REG TO 0050 AND CONTINUING FROM 
THAT POINT. 

DIAGNOSTIC MONITOR DEPENDENT PROGRAMS 

WHEN THE PID ENTERED IN THE DATA ENTRY SWITCHES IS A DIAGNOSTIC MONITOR 
DEPENDENT PROGRAM, THE DIMAL SECTION WILL 1ST DETERMINE IF THE DIAGNOSTIC 
MONITOR HAS BEEN LOADED INTO CORE. IF IT HAS NOT, THE PID REQUESTED 
WILL BE SAVED AND THE DIAGNOSTIC MONITOR LOADED. THE DIAGNOSTIC MONITOR IS 
LOADED AND EDITED IN THE SAME MANNER AS DESCRIBED FOR STANDALONE PROGRAMS. 
BEFORE RETURNING TO DIMAL TO LOAD THE SELECTED PROGRAM, THE DIAGNOSTIC 
MONITOR WILL STOP AT WAIT 2 TU ALLOW PROGRAM LOAD OPTIONS TO 
BE SELECTED. 



WHEN THE DIAGNOSTIC MONITOR RETURNS TO DIMAL, DIMAL WILL LOCATE THE 
SELECTED PROGRAM ON DISK, LOAD IT INTO CORE, RELOCATING IT IF NECESSARY, 
AND THEN EDIT THE PROGRAM. DIMAL WILL THEN BRANCH TO LOCATION 0050, WHERE 
A CORE SWAP OF DIMAL AND THE DIAGNOSTIC MONITOR OCCURS. A BRANCH IS THEN 
MADE TO THE PROGRAM JUST LOADfcD. 

IF THE BOOTSTRAP MODE OF D.M. OPERATION WAS SELECTED, THE DM WILL ALLOW 
EXECUTION OF THE PROGRAM TO TAKE PLACE. UPON PROGRAM TERMINATION, THE DM 
WILL RETURN TO THE INTERFACE SECTION. AGAIN THE CORE SWAP WILL OCCUR AND 
THE DIMAL SECTION WILL SET UP TO ALLOW SELECTION OF THE NEXT D1AGNUSTIC 
PROGRAM. 

IN THE OVERLAP MODE OF OPERATION, THE DM WILL RETURN TO DIMAL AFTER EACH* 
PROGRAM HAS BEEN LOADED FOR THE NEXT PROGRAM SELECTION. TO INDICATE THAT 
THE LAST PROGRAM TO BE LOADED IS NOW ENTERED IN THE BIT SWITCHES, SWITCHES 
THROUGH 7 SHOULD BE SET TO FF ALONG WITH THE PID IN SWITCHES 8 THROUGH 15, 
OR IF NO FURTHER PROGRAMS ARE TO BE LOADED, THEN SET THE SWITCHES TO 
FFOO. FOLLOWING THE LOAD OF THE LAST PROGRAM, THE DIAGNOSTIC MONITOR WILL 
ALLOW OPTION SELECTION AND PROGRAM EXECUTION. 

TO RETURN TO DIMAL FRUM OVERLAP OPERATIONS, SET THE I REG TO 0050 AND 
CONTINUE FROM THAT POINT. 

THE SELECTION OF DM DEPENDENT PROGRAMS AND STAND ALONE PROGRAMS CAN BE 
INTERMIXED. THAT IS FOLLOWING THE OPERATION OF A MONITOR PROGRAM, A 
STANDALONE MAY BE SELECTED AND OPERATED, FOLLOWED BY THE SELECTION AND 
OPERATION OF A DM PROGRAM ETC. 

6. APPENDIX 
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6.1 EDIT PROCEDURE 

THE DIMAL INITIAL LOADER MUST BE EDITED FOR PROPER OPERATION. PUNCH 2 CARDS AS SHOWN BELOW. 

CARD I: 

ENTRY 1 IS THE SECTOR ID FOR THE CE HISTORY TRACK SECTOR 0. THIS ID WILL BE 0638 HEX ON A DISK PACK WITH A USABLE CYLINDER #199 DEC. IF THE 2315 DISK 

INITIALIZATION PROGRAM FINDS CYLINDER 199 TO BE BAD, THEN ENTER THE SAME ID, INTO THE DIMAL EDIT CARD, THAT IS USED TO DEFINE THE ALTERNATE HISTORY 
TRACK TO THE 2315 PROGRAM. 
ENTRY 2 IS THE AREA CODE OF THE DISK DRIVE TO BE USED IN GENERATING THE DIMAL PACK. AREA CODES ARE AS FOLLOWS. 
I st 2310 AREA CODE 2000 
2 ND 2310 AREA CODE 4000 
3 RD 2310 AREA CODE 4800 
ENTRY 3 IS THE OUTPUT DEVICE INDICATOR 0000 - USE 1053/1816, 0001 USE 1443 

CARD 2: 

CARD 2 IS THE TERMINATOR CARD. PUNCH AS SHOWN 

REFER TO DOCUMENTATION FOR PAPER TAPE EDIT PROGRAM (FID 08BB) TO GENERATE PAPER TAPE EDIT. 
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6.2 DATA ENTRY SWITCH COLD START CALL ROUTINES 

THESE ROUTINES MAY BE USED IN PLACE OF THE COLD START CALL CARDS TO CALL 
THE DIMAL SYSTEM FROM THE DISK. THE ROUTINES ARE IDENTICLE TO THOSE 
PUNCHED IN THE COLD START CARDS, AND CAN THEREFORE BE USED AS A LISTING 
FOR THE CARDS. 

TO ENTER THE COLD START CALL ROUTINES, PROCEED AS FOLLOWS. 

1. PERFORM THE GENERAL OPERATING INSTRUCTIONS STEPS 3. 2.1. A THROUGH 
3.2.1.F IF DISK PACK MODIFICATION IS TO BE DONE, OR GENERAL 
OPERATING INSTRUCTIONS STEPS 3. 3.1. A THROUGH 3.3. l.F IF PROGRAM 
SELECTION AND EXECUTION IS TO BE DONE. 



2. 

3. 
4. 



INSURE THAT THE I COUNTER IS AT 0000. 
SET THE MODE SWITCH TO LOAO. 



PRESS RESET BUTTON IF NOT. 



REFERENCE THE DESIRED DATA ENTRY SWITCH ROUTINE. THE ROUTINES ARE 
IDENTIFIED IN THE SAME MANNER AS THE COLD START CARDS. REFERENCE 
SECTION 3.2.1 C AND H. FOR ID EXPLANATION OF LOADER/ORGANIZOR 
CALLS, AND SECTION 3.3.1 G AND H FOR SELECT/EXECUTE CALLS. 

ENTER THE HEX INSTRUCTIONS IN THE DATA ENTRY SWITCHES PRESSING 
THE START BUTTON AFTER EACH ENTRY. 

AFTER ALL INSTRUCTIONS HAVE BEEN ENTERED, SET THE MODE SWITCH TO RUN, 

PRESS THE RESET BUTTON, THEN PRESS START. ' 

EXECUTION OF THE CALL ROUTINE SHOULD BEGIN. RETURN TO SECTIONS 

3.2 OR 3.3 FOR THE REMAINDER OF THE OPERATING PROCEDURES. 

LOADER/ORGANIZOR CALL ROUTINES 



*************************************************************************** 
•CALL ROUTINE ID * AIL * A2L * A3L * SYMBOLIC LISTING* 

************************* ***************************** ********************* 
******************** ********* *********************************** 

♦LOCATION * INSTRUCTION* INSTRUCTION* INSTRUCTION* TAG*INST*MOD* 



SELECT/EXECUTE CALL ROUTINES 

*************************************************************************** 

*CALL ROUTINE ID * Al S * A2S * A3S * SYMBOLIC LISTING* 
******************************* ** ******************** ********************** 

***************** ***************************** ****************** 

•LOCATION * INSTRUCTION* INSTRUCTION* INSTRUCTION* TAG*INST*MOD* 

**************************************************************** 
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NOTE 1 

LOCATION /OOOE IN THE COLD START GALLS SHOULD CONTAIN THE SEEK 
COUNT. THIS SEEK COUNT IS SUPPLIED TO THE OPERATOR IN MESSAGE 
D003. MESSAGE D003 IS PRINTED BY THE LOADER/ORGANIZER 
SECTION UPON COMPLETION OF THE DIMAL PACK GENERATION. THE 
SEEK COUNT IS NORMALLY 0006 UNLESS CYLINDER 6 IS FOUND TO BE 
BAD. IF CYLINDER 6 IS BAD, THEN THE SEEK COUNT REFERANCES THE 
1ST GOOD CYLINDER AFTER CYLINDER 6. 
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THE CE OIMAL PACK WILL BE ARRANGED AS SHOWN PROVIDED ALL CYLINDERS ARE USABLE. IF BAD CYLINDERS ARE 
DETECTED THEY WILL BE BYPASSED, AND THE CYLINDER ASSIGNMENTS WILL BE DISPLACED ACCORDINGLY. 



CYLINDER 
NUMBER 


SECTOR NUMBER 


CONTENTS 



THROUGH 5 


ALL 


DIAGNOSTIC PROGRAM USE 


6 





DIMAL HEADER TEST 


6 


1 


DIMAL HEADER TEST 


6 


2 


DIMAL HEADER TEST 


6 


3 


DIMAL HEADER TEST 


6 


4 


DIMAL HEADER TEST 


6 


5 


DIMAL HEADER TEST 


6 


6 


DIMAL HEADER TEST 


6 


7 


DIMAL COLD START LOAOER 


7 


ALL 


DIMAL LOADER/ORGANIZER SECTION 


8 


ALL 


DIMAL SELECT/EXECUTE SECTION 


9 


ALL 


DIMAL WORK CYLINDER 1 


10 


ALL 


DIMAL WORK CYLINDER 2 


II 





DIMAL LOCATION DIRECTORY 


11 


1 AND 2 


DIMAL EDIT TABLE 


12 

THROUGH 89 


ALL 


DIAGNOSTIC PROGRAMS STORAGE 


90 
THROUGH 110 


ALL 


CE ALIGNMENT TRACKS 


III 
ThROUGH I96 


ALL 


DIAGNOSTIC PROGRAMS STORAGE 


197 

THROUGH 202 


ALL 


DIAGNOSTIC PROGRAM USE 








199 





DIMAL WRITES INDICATOR WORD AND SAVES THE NEXT AVAILABLE SECTOR 
ID ON THIS SECTOR 









IbM 'lAlNTEIlANCf DIAGHOS-K FHOGRA" FOR THE 1800 SYSTEM 
DISK MAINTENAVE IIPWM SYSU" (OI11AI) CARD VERSION 

L.H REFERENCE FIGURES 

FIGURE I 

DIMAL SYSTEM OBJECT DECK AMD OFT OBJECT OECK STACKING 
FOR INITIAL DIMAL DISK PACK GENERATION 

IF PAPER TAPE VERSION, SUBSTITUTE PAPER TAPE FOR CARD DECKS. 



p.n' lihll& 

PAGE ISA 



DFT'S MAY BE ARRANGED IN ANY 
ORDER, HOWEVER, TO MINIMIZE 
SEEK TIME ON PROGRAM SELECTION, 
A RECOMMENDED ORDER IS LISTED 
N SECTION 3.1-'*»- 
INSURE THAT EDIT CARDS ARE IN 
CORRECT SEQUENCE, AND FOLLOW 
THE CORRECT PROGRAM DECK. 




2 EDIT CARDS 



DATE 04N0V 
E/C *1S233 



IS NOV 68 

<4ll9WA 



PROG 10 0802-* 
PAGE IS 



DATE 0«<N0V 15N0V68 

E/C ^15233 ItlljWA 



PROG ID 0801- 
PAGE WA 



) 1 II I 



I I 



I I 1 
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*********#***********#**##****#*#**##«*#***#« 




80 3000 20 










* 


1800 ON-LINE 


DIAGNOSTIC MONITOR * 




80 3000 30 










* 




* 




80 3000 40 










# 


** 


MPXDM ** * 




80 3000 50 










* 




* 




80 3000 60 










#**********************#*****##**# *»#**:**#*## 




80 3000 70 










* 




* 




80 3000 80 










* A DIAGNOSTIC MONITOR DESIGNED TO OPERATE * 




80 3000 90 










* THE 


OFF LINE DIAGNOSTIC FUNCTION TESTS IN * 




80 300100 










* THE 


ON LINE ENVIRONMENT OF THE 1800 MPX * 




80 300 1 10 










* SYSTEM. MPXDM OPERATES AS A BATCH JOB IN * 




80 300120 










* THE 


TIME SHARING 


MODE OF THE MPX SYSTEM. * 




80 300 130 










* 




* 




80 300140 










* 




* 




80 300 150 










* 


PROGRAM ENTRY POINT = DMIN * 




80 300160 










* 


NORMAL EXIT POINT = MONXT * 




80 300 170 










* 




* 




80 300180 










********##***************##**>!:#*** ***##*#**## 




80 300 190 










* 




* 




80 300 200 






0000 


0300 


MPXDM 
* 

* * 

* 


DC /0 30C 

* * 


) MPXDM ID 

* 

"S* * -C* t- "js *£ 




80 300 2 10 
80 300 220 
80 300 2 30 
80 300 240 










* 


MPX FIXED AREA REFERENCES EQUATES * 




80 300 250 










* 




* 




80 300260 










* * 


* * 


****** 




80 300 270 










*TAG* 


*LOC 


* *CONTENTS * *WORD* 


80 300 280 










* 








80 300 290 






007F 





CON 


EQU 127 


FIXED AREA POINTER 




80 300 300 






0000 





$STRT 


EQU 000 


BRANCH TO U-MONITOR 





80 300 310 






0003 





$BIND 


EQU 00 3 


TRACE LEVEL BUSY IND 


3 


80 300 320 






0004 





$TMAC 


EQU 004 


INTERVAL TIMER A 


4 


80 300 330 






0005 





$TMBC 


EQU 00 5 


INTERVAL TIMER B 


5 


80 300 340 






0006 





$TMCC 


EQU 006 


INTERVAL TIMER C 


6 


80 300 350 






0007 





$MESG 


EQU 007 


PRNT INTUP ERROR MESS I 


7 


80 300 360 






0009 





$TRAC 


EQU 009 


TRACE INTERRUPT 


9 


80 300 370 






0025 





$UTIL 


EQU 037 


CALL THE UTILITY 


37 


80 300 380 






0027 





$D8 


EQU 039 


CONSTANT 


39 


80 300 390 






0028 





$BMIC 


EQU 040 


BEGINNING ADDR OF MIC 


40 


80 300 400 






0029 





$UT 


EQU 041 


TIME-SHARE ACTIVE IND 


41 


80 300 410 






002A 





$DM1 


EQU 042 


CONSTANT -1 


42 


80 300 420 






002B 





$DM10 


EQU 043 


CONSTANT -10 


43 


80 300 430 






002C 





$AESP 


EQU 044 


ENTRY TO NO-RESPONSE SUB 


44 


80 300 440 






0020 





$ITB 


EQU 045 


TIMERS BUSY INDICATOR 


45 


80 300 450 






002E 





$UMK1 


EQU 046 


MASK REGISTER %0-13n 


46 


80 300 460 






0030 





$UMK2 


EQU 048 


MASK REGISTER 214-23Q 


48 


80 300 470 






0032 





$MK1 


EQU 50 


MASK LEVELS 0-13 


50 


80 300480 






0034 





$MK2 


EQU 052 


MASK LEVELS 14-23 


52 


80 300 490 






0036 





$WK4 


EQU 54 


PSEUDO ACCUMULATOR SWK4D 


54 


80 300 500 






0037 





$WK5 


EQU 055 


PSEUDO ACCUMULATOR *WK5a 


55 


80 300 5 10 






0038 





$NPID 


EQU 56 


NON PROCESS INDICATOR 


56 


80 300 520 






0039 





$M1CS 


EQU 057 


MAG TAP SENSE POINTER 


57 


80 300 530 






003B 





$TASK 


EQU 059 


TASK IN CORE INDICATOR 


59 


80 300 540 






003C 





STIMA 


EQU 60 


ADDR OF TIMER A SUBRUUTN 


60 


80 300 550 






0030 





$TIMB 


EQU 061 


ADDR OF TIMER B SUBROUTN 


61 


80 300 560 






003E 





$TIM1 


EQU 62 


PROG TIMER 1 


62 


80 300 570 






003F 





$XEQ1 


EQU 063 


ADDR OF P-TIMER 1 XEQ TB 


63 


80 300 580 






0053 





$2790 


EQU 083 


2790 COMMON AREA 




80 300 590 






0059 





$TDIA 


EQU 089 


DIAGNOSTIC TIMER 


89 


80 300 600 






005A 





$DXEO 


EQU 090 


ADDR OF XEQ TABLE 


90 


80 300 610 






005B 





$DSW 


EQU 091 


ON-OFF BRANCH 


91 


80 300 620 






005C 





$CLK 


EQU 92 


PROGRAMED CLOCK 


92 


80 300 630 






005E 





$EITC 


EQU 94 


BRANCH TO ITC EXIT ROUT 


94 


80 300 640 






005F 





$DM50 


EQU 095 


CONSTANT -50 


95 


80 300 650 






0060 





$D3 


EQU 96 


CONSTANT 3 


96 


80 300 660 






0061 





$PAUS 


EQU 97 


PAUSE WORD 


97 


80 300 670 






0062 





$IOTT 


EQU 098 


AREA BUSY TEST ENTRY 


98 


80 300 6 80 






0063 





$10ST 


EQU 099 


SET AREA BUSY ENTRY 


99 


80 300 690 




DATE 


17JUN68 20MAR70 


31JUL70 






PROG ID 


0803-2 


EC NO. 


411939 431320 


431327 






PAGE 


1 





0064 


$PRTT EQU 


100 




0065 


$IBTA EQU 


101 




0066 


$VCOR EQU 


10 2 




0067 


$TVLO EQU 


10 3 




0068 


STVWK EQU 


104 




0069 


$ICLN EOU 


10 5 




006A 


$BTAD EQU 


10 6 




006B 


$EDEN EQU 


10 7 




006C 


$DAY EQU 


10b 




006D 


$YEAR EQU 


10 9 




006E 


$FMIC EQU 


110 




006F 


$CLNT EQU 


111 




0070 


$010 EQU 


112 




0071 


$D11 EQU 


113 




0072 


$D12 EQU 


114 




0073 


$EEND EQU 


115 




0074 


$IMIC EQU 


116 




0075 


$IOSA EQU 


117 




0076 


$IOEX EQU 


118 




0077 


$TSST EQU 


119 




0078 


$IOER EQU 


120 




0079 


$STQT EQU 


121 




007A 


$NQUE EQU 


122 




007B 


$NILV EQU 


123 




007C 


$BULK EQU 


124 




007D 


$LST EQU 


125 




007E 


$SYS EQU 


126 




007F 


$0600 EQU 


127 




0080 


$0500 EQU 


128 




0081 


$F800 EQU 


129 




0082 


$0FF8 EQU 


130 




0083 


$OOFF EQU 


131 




0084 


$8000 EQU 


132 




0085 


$D1 EQU 


133 




0086 


$D2 EQU 


134 




0087 


$D4 EQU 


135 




0088 


$D5 EQU 


136 




0089 


$D7 EQU 


137 




008A 


$OFFF EQU 


138 




008B 


$2000 EQU 


139 




008C 


$0180 EQU 


140 




008D 


$D320 EQU 


141 




008E 


$LINK EQU 


142 




008F 


$SMIC EQU 


143 




0090 


$D321 EQU 


144 




0091 


$1STC EQU 


145 




0092 


$FFOO EQU 


146 




0093 


$F000 EQU 


147 




0094 


$FF87 EQU 


148 




0095 


$TOUT EQU 


149 




0096 


$PROC EQU 


150 




0097 


$D13 EQU 


151 




0098 


$SEBT EQU 


152 




0099 


$ECPR EQU 


153 




009A 


$Q2SA EQU 


154 




009B 


$QZEX EQU 


155 




009C 


$EXCM EQU 


156 




009D 


$LEXC EQU 


157 




009E 


$MBDR EQU 


158 




009F 


$014 EQU 


159 




OOAO 


$PIOO EQU 


160 




00A2 


$PI11 EQU 


162 




00A4 


$ABRT EQU 


164 




O0A5 


$0F00 EQU 


165 




00A6 


$LORG EQU 


166 




00A7 


$SORG EQU 


167 




00A8 


$CORE EQU 


168 




00A9 


$00F0 EQU 


169 


DATE 


17JUN68 20WAR70 31JUL70 




EC NO. 


411939 431320 431327 





MEANS PRT INT ERR MES 100 

ADDR OF INT BRANCH TABL 101 

BEGIN ADD OF VARIABLE CORE 10 2 

TV LOCATION SXR-3Q 103 



ENT ADDR TO BULKN 



INTERRUPT WORK LEVEL «XR-3a 104 

INT CL ENDING ADDR 105 

ADDR OF BOUNDARY TABLE 106 

EX D1R ENDING ADDR • 107 

DAY COUNTER 108 

USER SET YEAR 109 

ADDR OF SYS EX CLENT 110 

ADDR OF SYS EX CLNT 111 

CONSTANT 112 

CONSTANT 113 

CONSTANT 114 

BULK I/O ABORT ENTRY PT 

ENT ADDR TO MIC FOR I/O 116 

ENT ADDR TO 10SAVE 117 

ENT ADDR TO IOEXIT 118 

T/S BUSY 119 

ENTRY ADDR TO I/O ERR 120 

ADDR OF CL QUEUE TABLE 121 

MAX NO. OF CL QUE ENTRS 122 

NO. OF INTERRUPT LEVELS 123 

124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 



CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 
LINK WORD 
SUSPEND EXIT TO MIC 

CONSTANT 

ADDR OF USABLE V.C 

CONSTANT 

CONSTANT 

CONSTANT 
TRACE EXIT INSTRUCTION 
P-TIME BUSY IND 
CONSTANT 

ADDR OF SYS EX EBT 
ENT ADDR TO EAC PRINT 
ENT ADOR TO QZSAVE 
ENT ADDR TO QZEXIT 
START ADDR OF EX COMMON 156 
LENGTH OF EXbCUT COMMON 157 
MESSAGE BUFFER TAB ADDR 158 
CONSTANT 159 

PROG INT IOCC LEV 0-13 160 
PROG INT IOCC LEV 14-23 162 
RESTART NON-PROC MONITR 164 



CONSTANT 

WHAT DEV IS LSTPT 
WHAT DEV IS SYSPT 
CURE SIZE -1 
CONSTANT 



165 
166 
167 
168 
169 



80 300 700 
80 300 710 
80 300 720 
80 300 730 
80 300 740 
80 300 750 
80 300 760 
80 300 770 
80 300 780 
80 300 790 
80 300 800 
80 300 810 
80 300 820 
80 300 830 
80 300 840 
80 300 850 
80 300 860 
80 300 870 
80 300 880 
80 300 890 
80 300 900 
80 300910 
80 300 920 
80 300 930 
80 300 940 
80 300 950 
80 300 960 
80 300970 
80 300 9 80 
80 300990 
80 30 1000 
80 30 10 10 
80 30 10 20 
80 30 10 30 
80 30 10 40 
80 30 10 50 
80 30 10 60 
80 30 10 70 
80 30 10 80 
80 30 10 90 
80 30 1 100 
80 30 1 1 10 
80 30 1 1 20 
80 30 1 1 30 
80 30 1 1 40 
80 30 1 1 50 
80 30 1 1 60 
80 30 1 1 70 
80 30 1 1 80 
80 30 1190 
80 30 1200 
80 30 1210 
80 30 1220 
80 30 1 2 30 
80 30 1240 
80 301250 
80 301260 
80 301270 
80 30 1280 
80 30 1290 
80 301300 
80 30 1310 
80 30 1320 
80 30 1330 
80 30 1340 
80 30 1350 
80 30 1360 
80 301370 



PROG ID 
PAGE 



0803-2 
1A 
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OOAA 


i 


OOAB 


■ 


OOAC 





00 AD 





OOAE 





00 AF 





OOBO 


i 


00B1 





00B2 





00B3 





00B4 





00B5 





00B6 





00B7 





00B8 





00B9 





OOBA 





OOBB 





OOBC 





OOBD 





OOBE 





OOBF 





OOCO 





00C1 





00C2 





00C3 





00C4 





00C5 





00C6 





00C7 





00C8 





OODO 





00D8 





00D9 





OODB 





OODC 





OODD 





00E1 





00E2 





00E3 





00E4 





00E5 





00E6 





00E7 





OOEF 





00F7 





00F8 





00F9 





OOFA 





OOFB 





OOFC 





OOFD 





OOFE 





OOFF 





0100 





0101 





0102 





0103 





0104 





0105 





0106 





0107 





0108 





0109 





010A 





010B 





010C 





010D 






$000F 

$NPIN 

$TVSA 

$TVEX 

$ANEO 

$D319 

$TSLK 

$FFFO 

$CBAS 

$DPME 

$T1BS 

$T2BS 

$EXIT 

$8008 

$8010 

$TYPE 

$PRNT 

$ERMS 

$OLCT 

$D24 

$D25 

$D9 

$D6 

$ROAD 

$TSPR 

$PSA 

$UPDA 

$F360 

$ECRL 

$RSAV 

$2310 

$1053 

$1443 

$1442 

$PAPT 

$MATP 

$AIIN 

$DINP 

$DAOP 

$1627 

$FIBF 

$SCHQ 

$DOLS 

$DKPH 

$TYPH 

$8001 

$8002 

$8004 

$TMBZ 

$PUTQ 

$GETO 

$DIRC 

$STPR 

$STRL 

SCEML 

$ECDK 

$RSA 

$RSQ 

$RS1 

$RS2 

$RS3 

$BKSA 

$BKEX 

$GETO 

$PUTO 

$IDSK 

$IPRT 

$RELD 



EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

208 

216 

217 

219 

220 

221 

225 

226 

227 

228 

229 

230 

231 

239 

247 

248 

249 

2 50 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 



CONSTANT 
USED BY TSC 
ENT ADDR TO TVSAVE 
ENT ADDR TO TVEX1T 
END ADDR OF SKEL I/O 
CONSTANT 

TIME SHARE LOCK IN SW 
CONSTANT 

VALUE OF C-BASE FOR P-T 
ENT ADDR TO MON READ RU 
REAL TIME CLOCK UPDATE 
REAL TIME CLOCK UPDATE 
EXIT SUBROUTINE ENTRY 

CONSTANT 

CONSTANT 

ENT ADDR TO TYPEN 

ENT ADDR TO PRNTN 

ADDR OF ERR MESS TABLE 

ADDR OF QVEA-S LCT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

ADDR RELOAD INFO TABLE 

PRIORITY NO. OF T/S END 

CALL SPECIAL IND 

PROG TIMER NOT BSY BRNH 

FIO TSX/360 FORMAT IND 

ENT ADDR TO EACRL 

ENT ADDR TO RSAVE 

DEVICE TABLE ADDR TABLE 



ADDR OF FIO BUFFERS 
ENT ADDR TO SRCHQ 

ENT ADDR TO DQLS T 
DISK PhY DEVICE TABLE 

1053 PHY DEVICE TABLE 
CONSTANT 
CONSTANT 
CONSTANT 

TIME BUSY FOR SUSPN SUB 
ENT ADDR TO PUTQ 
ENT ADDR TO GETQ 
ENT ADDR TO DIRCL 
ENT ADDR TO STPRT 
ENT ADDR TO STREL 
ON-LINE DIAG MOD LEVEL 
ENTRY ADDR TO EAC DISK 
ERROR SAVE A-REG 
ERROR SAVE Q-REG 
ERROR SAVE XR1 
ERROR SAVE XR2 
ERROR SAVE XR3 
ENT ADDR TO BKSAVE 
ENT ADDR TO BKEX1T 
GETQO ENTRY POINT 
PUTQO ENTRY POINT 
ENT ADDR TO RSTDK SUBR 
ENT ADDR TO IINTB SUBR 
ENT ADDR TO RS/LD OPT S 



170 
171 
172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

20 8 

216 

217 

219 

220 

221 

225 

226 

227 

228 

229 

230 

231 

239 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 



80 30 1380 
80 301390 
80 30 1400 
80 301410 
80 301420 
80 301430 
80 301440 
80 301450 
80 30 1460 
80 301470 
80 30 1480 
80 301490 
80 301500 
80 30 1 5 10 
80 301520 
80 301530 
80 301540 
80 301550 
80 301560 
80 30 1570 
80 30 1580 
80 30 1590 
80 30 1600 
80 301610 
80 301620 
80 301630 
80 30 1640 
80 30 1650 
80 30 1660 
80 301670 
80 301680 
80 301690 
80 30 1700 
80 30 1 7 10 
80 30 1720 
80 30 1730 
80 301740 
80 301750 
80 30 1760 
80 301770 
80 301780 
80 301790 
80 301800 
80 30 1810 
80 30 1820 
80 30 1830 
80 301840 
80 301850 
80 30 1860 
80 301870 
80 301880 
80 301890 
80 301900 
80 30 1910 
80 30 1920 
80 30 1930 
80 30 1940 
80 301950 
80 30 1960 
80 301970 
80 301980 
80 30 1990 
80 30 2000 
80 30 20 10 
80 30 20 20 
80 30 20 30 
80 30 20 40 
80 30 20 50 



DATE 
EC NO. 



17JUN68 
411939 



20MAR70 
431320 
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431327 



PROG ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
ON LINE DIAGNOSTIC MONITOR 



PART NO. 
PAGE 



2246289 
2A 



010E 





010F 





0110 





0111 





0112 





0113 





0114 





0115 





0116 





0117 





0118 





0119 





011A 





01 IB 





one 





011D 





011E 





011F 





0120 





0121 





0122 





0123 





0124 





0125 





0126 





0127 





0128 





0129 





012A 





012B 






0000 





0001 





0002 





0003 





0004 





0005 





0006 





0007 





0008 






FFF2 





FFF5 





FFF6 





FFF7 





FFF8 





FFF9 





FFFA 





FFFB 





FFFC 





FFFD 





0000 





0001 






FF69 





FF6A 





FF6F 





FF70 





FFCO 





FFD1 






$TVST 


EQU 


270 


ENTR1 


' ADDR TO TVSET 


270 


80 30 20 60 


$BDSH 


EQU 


271 


ENTRV 


' ADDR TO BNDSH 


271 


80 30 20 70 


$IODR 


EQU 


272 


ENTRV 


' ADDR TO IODRT 


272 


80 30 20 80 


$QUEA 


EQU 


273 


ENT ADDR TO QUEA 


273 


80 30 20 90 


$VCTV 


EQU 


274 




V.C. 1 


".V. 


274 


80 30 2100 


$SRTV 


EQU 


275 


SPAR 


TV 






275 


80 30 2 1 10 


$SETV 


EQU 


276 




SYS EX T.V. 


276 


80 30 2 1 20 


$C1TV 


EQU 


277 


CORE 


LOAD 


AREA 


1 TV 


277 


80 30 2 1 30 


$C2TV 


EQU 


278 


CORE 


LOAD 


AREA 


2 


278 


80 30 2 1 40 


$C3TV 


EQU 


279 


CORE 


LOAD 


AREA 


3 


279 


80 30 2 1 50 


$C4TV 


EQU 


280 


CORE 


LOAD 


AREA 


4 


280 


80 30 2 1 60 


$C5TV 


EQU 


281 


CORE 


LOAD 


AREA 


5 


281 


80 30 2 1 70 


$C6TV 


EQU 


282 


CORE 


LOAD 


AREA 


6 


282 


80 30 2180 


$C7TV 


EQU 


283 


CORE 


LOAD 


AREA 


7 


283 


80 30 2 1 90 


$C8TV 


EQU 


284 


CORE 


LOAD 


AREA 


8 


284 


80 30 2 200 


$C9TV 


EQU 


285 


CORE 


LOAD 


AREA 


4 


285 


80 30 2210 


$C10V 


EQU 


286 


CORE 


LOAD 


AREA 


10 


286 


80 30 2220 


$C11V 


EQU 


287 


CORE 


LOAD 


AREA 


11 


287 


80 30 2230 


$C12V 


EQU 


288 


CORE 


LOAD 


AREA 


12 


288 


80 30 2240 


$C13V 


EQU 


289 


CORE 


LOAD 


AREA 


13 


289 


80 30 2250 


$C14V 


EQU 


290 


CORE 


LOAD 


AREA 


14 


290 


80 30 2260 


$C15V 


EQU 


291 


CORE 


LOAD 


AREA 


15 


291 


80 30 22 70 


$C16V 


EQU 


292 


CORE 


LOAD 


AREA 


16 


292 


80 30 2280 


$C17V 


EQU 


293 


CORE 


LOAD 


AREA 


17 


293 


80 30 22 90 


$C18V 


EQU 


294 


CORE 


LOAD 


AREA 


18 


294 


80 30 2 300 


$C19V 


EQU 


295 


CORE 


LOAD 


AREA 


19 


295 


80 30 2 3 10 


$C20V 


EQU 


296 


CORE 


LOAD 


AREA 


2d 


296 


80 30 2 320 


$C21V 


EQU 


297 


CORE 


LOAD 


AREA 


21 


297 


80 30 2 330 


$C22V 


EQU 


298 


CORE 


LOAD 


AREA 


22 


298 


80 30 2 340 


$C23V 


EQU 


299 


CORE LOAD ARtA 23 TV 


299 


80 30 2350 


* 
















80 30 2 360 


* 


LIST 


DISPLACEMENT EQUATES 








80 30 2 370 


* 
















80 30 2 380 


LINKB 


EQU 





LINK/BUSY WORD 




80 30 2 390 


EXTYP 


EQU 


1 


EXIT TYPE 






80 30 2400 


SYSR1 


EQU 


1 


SYSTEM RESERVED 1 




80 30 2410 


SYSR2 


EQU 


3 


SYSTEM RESERVED 2 




80 30 2420 


SYSR3 


EQU 


4 


SYSTEM RESERVED 3 




80 30 2430 


SYSR4 


EQU 


5 


SYSTEM RESERVED 4 




80 30 2440 


ERP 


EQU 


6 


ERROR PARAMETER 




80 30 2450 


CP 


EQU 


7 


CONTROL 1 


PARAMETER 




80 30 2460 


IOAP 


EQU 


8 


I/O 


AREA 


PARAMETER 




80 30 2470 


* 
















80 30 2480 


* 


STANDARD DEVICE 


TABLE EQUATES 






80 30 2490 


* 
















80 30 2500 


DVSTR 


EQU 


-14 


START OF 1 


DEVICE TABLE 




80 30 2510 


DVISS 


EQU 


-11 


LOCN 


OF IOCR INTERRUPT 


SECT 


80 30 2520 


DVERR 


EQU 


-10 


HARDWARE 1 


3RR0R 


COUNT 




80 30 2530 


DVSSS 


EQU 


-9 


RESERVED 








80 30 2 540 


DVONF 


EQU 


-8 


ON/OFF INDICATOR 




80 30 2550 


DVDSW 


EQU 


-7 


LAST 


DSW 








80 30 2 560 


DVDOW 


EQU 


-6 


DSW OR-WORD 






80 30 2570 


DVRES 


EQU 


-5 


RESPONSE 


INDICATOR 




80 30 2580 


DVINL 


EQU 


-4 


DEVICE INTERRUPT LEVEL 




80 30 2590 


DVID 


EQU 


-3 


DEVICE IDENTIFICATION 




80 30 2600 


DVNPR 


EQU 





NUMBER OF 


PRIORITIES 




80 30 2610 


DVXEQ 


EQU 


1 


ADDRESS OF XEQ 


LIST 




00 30 2620 


* 












* 




80 30 2630 


* * 


* 


* * 


* 


* 


* 


# * 




80 30 2640 


* 


HIGH 


CORE COMMUNICATION AREA EQUATES * 




80 30 2650 


« * 


* 


* * 


* 


* 


* 


* * 




80 30 2660 


*TAG* 




*LOC * 




♦CONTENTS 


* * 


WORD 


80 30 2670 


MSGWC 


EQU 


/FF69 


MESSAGE , 


AREA I 


dORD CNT 


* 1 


80 30 2680 


PHDNG 


EQU 


/FF6A 


HEADING'! 


;ust 1 


SNG'AREA* 2 


80 30 2690 


WDCNT 


EQU 


/FF6F 


I/O 


AREA 


WORD 


COUNT 


* 7 


80 30 2 700 


INOUT 


EQU 


/FF70 


START OF 


1/0 . 


AREA 


* 8 


80 302710 


CODE 


EQU 


/FFCO 


PRINTER I 


;ude 


TABLE 


* 88 


80 30 2720 


NEG 


EQU 


/FFD1 


NEG 


SIGN 


IN CODE TBL 


*10 5 


80 30 2730 
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PAGE 



2246289 
3A 



FFD2 





FFD3 





FFD7 





FFD8 





FFD9 





FFDA 





FFDB 





FFDC 





FFDD 





FFDE 





FFDF 





FFEO 





FFE1 





FFE2 





FFE3 





FFE4 





FFE5 





FFE6 





FFE7 





FFE8 





FFE9 





FFEA 





FFEB 





FFEC 





FFED 





FFEE 





FFEF 





FFFO 





FFF1 





FFF2 





FFF3 





FFF4 





FFF5 





FFF6 





FFF7 





FFF8 





FFF9 





FFFA 





FFFB 





FFFC 





FFFD 





FFFE 






EDITA 

DTADR 

ONOFF 

ABRTX 

LCLID 

ACTIV 

XEQSW 

LOGAD 

OUTDV 

TIMCT 

DMCTL 

DFTCW 

TOIND 

ARBSY 

DFTIS 

DFTIA 

ETADR 

ETPTR 

ABORT 

ETSSV 

ETSST 

NTTIM 

NLINT 

BYICR 

TIMON 

DTIVS 

MSKON 

STATS 

DFTCF 

DFTID 

DMBGN 

DFTBG 

BEGIN 

START 

END 

LOG 

ERROR 

REQDV 

RELDV 

DMISS 

DFTOP 

MPXOP 

* 

****** 

* 

****** 

* 
* 
* 
* 
* 
* 
* 
* 



EQU /FFD2 ADRS TO STORE EDIT *106 

EQU /FFD3 MPX DEV TBL ADDRESS *107 

EQU /FFD7 DEV ON/OFF STATUS «111 

EQU /FFD8 ABORT RTN EXIT ADRS *112 

EQU /FFD9 ID OF LOADER IN CORE *113 

EQU /FFDA ADDRESS OF ACTIVE PID*114 

EQU /FFDB DFT EXECUT 1NG( 1=XEQ) *115 

EQU /FFDC LOG TERMINATION ADRS *116 

EQU /FFDD OUTPUT DEV (0=1053) *117 

EQU /FFDE DIAG TIMER TIME C0UNT*118 

EQU /FFDF CONTROL RTN ADDRESS *119 

EQU /FFEO DFT COMPATABILI TY WRD*120 

EQU /FFE1 TIME OUT IND FOR DFT *121 

EQU /FFE2 ADRS AREA BUSY INCR *122 

EQU /FFE3 ADRS DFT INTERRUPT SW*123 

EQU /FFE4 ADRS DFT INT SERV SUB*124 

EQU /FFE5 MPXDM EDIT TBL ADDRS *125 

EQU /FFE6 MPXDM DDEF POINTER *126 

EQU /FFE7 ADRS ABORT RTN(ABRT) *127 

EQU /FFE8 TIME SHARE STATUS *128 

EQU /FFE9 TIME SHARE LOCKEDt =1 )* 129 

EQU /FFEA TIME OUT SW (0=TMOUT ) *130 

EQU /FFEB INTRP SW (0=LAST INT)*131 

EQU /FFEC AREA BSY INCREMENTED *132 

EQU /FFED TIMER IN PR0GRESS=1 *133 

EQU /FFEE DEV TBL INT VECT SAVE*134 

EQU /FFEF MASK IN PROGRESS *135 

EQU /FFFO INTERFACE STATUS W0RD*136 

EQU /FFF1 ADRS DFT MLSCF *137 

EQU /FFF2 ADRS DFT PID *138 

EQU /FFF3 ADRS MPXDM PST *139 

EQU /FFF4 ADRS TO LOAD DFT *140 

EQU /FFF5 ADRS BEGIN RTN(BGIN) *141 

EQU /FFF6 ADRS START RTN(STRT) *142 

EQU /FFF7 ADRS END RTN (MEND) *143 

EQU /FFF8 ADRS LOG RTN (LG) *144 

EQU /FFF9 ADRS ERROR RTN(ERR) *145 

EQU /FFFA ADRS REQDV RTN(RQDV) *146 

EQU /FFFB ADRS RELDV RTN(RLDV) *147 

EQU /FFFC ADRS MPXDM ISS(DMIR) *148 

EQU /FFFD ADRS-CTRL PASS TO DFT*149 

EQU /FFFE ADRS-CTRL PASS TO MAX*150 

* 
*************************************** 

MPXDM - INITIALIZATION ROUTINE * 

*************************************** 



** DMIN ** 

THIS ROUTINE IS ENTERED ONLY AT 
PROGRAM LOAD TIME AND IS USED TO 
INITIALIZE MPXDM FOR OPERATION. 

DMIN RESIDES IN THE LOW END OF 

* VARIABLE CORE AND WILL BE OVERLAYED 

* BY THE LOADING OF THE DIAGNOSTIC 

* FUNCTION TEST TO BE RUN. 

* 

* DMIN FUNCTIONS ARE 

* 1. VERIFY THAT THE VERSION OF MPX AND 

* MPXDM ARE COMPATABLE. TERMINATE 

* OPERATION IF THEY ARE NOT. 

* 2. SET UP THE HIGH CORE COMMUNICATIONS 

* AREA WITH REQUIRED DATA AND DFT 

* TRANSFER VECTORS. 

* 3. COMPUTE THE RELOCATION FACTOR TO BE 

* USED WHEN LOADING THE DFT. 



80 30 2740 
80 30 2750 
80 30 2 760 
80 302770 
80 30 2780 
80 302790 
80 30 2800 
80 30 2810 
80 30 2820 
80 30 2830 
80 30 2840 
80 30 2850 
80 30 2860 
80 302870 
80 30 2880 
80 302890 
80 30 2900 
80 30 2910 
80 30 2920 
80 30 2930 
80 30 2940 
80 30 2950 
80 30 2960 
80 30 2970 
80 30 2980 
80 30 2990 
80 30 3000 
80 30 30 10 
80 30 30 20 
80 30 30 30 
80 30 30 40 
80 30 30 50 
80 30 30 60 
80 30 30 70 
80 30 30 80 
80 30 30 90 
80 30 3100 
80 30 3 1 10 
80 30 3120 
80 30 3 1 30 
80 30 3140 
80 30 3 1 50 
80 303160 
80 30 3 1 70 
80 30 3180 
80 30 3 1 90 
80 30 3200 
80 30 3210 
80 30 3220 
80 30 32 30 
60 30 3240 
80 30 3250 
80 30 3260 
80 30 32 70 
80 30 3280 
80 30 3290 
80 30 3300 
80 303310 
80 30 3320 
80 30 3330 
80 30 3340 
80 30 3350 
80 30 3360 
80 30 3370 
80 30 3380 
80 30 3390 
80 30 3400 
80 30 3410 



0001 C400 0100 
0003 1 6600 008E 

0005 F200 

0006 1 4C20 0068 



0008 

OOOA 

OOOB 

OOOC 

OOOD 

OOOE 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

001A 

00 IB 

001C 

001D 

001E 

001F 

0021 

0022 



0023 
0025 



6700 FF69 

1010 

D300 

7301 

70FD 

6700 FFCO 

C202 

D312 

D325 

C203 

D333 

D31A 

C207 

D31F 

C204 

0327 

C208 

D318 

C205 

4804 

7002 

1 8400 0994 
D334 

920C 



D400 OFCE 
C206 



* 
* 
* 
* 

* 
* 

* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 



4. INPUT THE MPXDM EDIT CARDS. * 

5. STORE THE APPROPRIATE PRINT CODE IN * 

THE HCCA ACCORDING TO THE EDITED * 

OUTPUT DEVICE. * 

A. IF THE 1443 IS THE SPECIFIED * 

OUTPUT DEVICE, AND IT IS FOUND TO * 

BE UNAVAILABLE, THEN DMIN WILL * 

FORCE THE USE OF THE 1053/1816. * 

6. LOG MESSAGE D002 - MPXDM LOCATION * 

IN CORE. * 



CALLED ROUTINES. 

1. LOG - MPXDM PRINT ROUTINE 

2. MPUM2 - EDIT CARD LOADER 

3. MCTRL - MPXDM CONTROL ROUTINE 

CALLED SUBROUTINES. 

1. SETCD - PRINT CODE SETUP 



* POSSIBLE ABORT CONDITIONS. 



* 
* 
* 
* 

* 

*« 

* 

DM 



l.MPX AND MPXDM ARE NOT AT THE SAME 
VERSION LEVEL. 



ROUTINE ENTRY 
ROUTINE EXIT 



DMIN 
DMIXT 



********************************* #!><tjS; #$ **#* 



IN 



DM 



0026 D33C 

0027 C071 







0028 
0029 



031E 
627F 



LD 
LDX 
EOR 
BSC 

LDX 
SLA 
INA STO 
MDX 
MDX 
LDX 
LD 
STO 
STO 
LD 
STO 
STO 
LD 
STO 
LD 
STO 
LD 
STO 
LD 
BSC 
MDX 
A 

STO 
S 



STO 

LD 

STO 

LD 

STO 

LDX 



L $CEML FETCH MDX VERSION NM6R 

L2 VERSN SET CONSTANTS INDEX 

2 VERSN-VERSN CK IF # MPXDM VERSION 

L CPTER.Z BRANCH IF SYS INCOMPAT 



L3 MSGWC 
16 
3 
3 1 

DMINA 

L3 CODE 

ADR1-VERSN 

EDITA-CODE 

tTADR-CODE 

ADR2-VERSN 

DMBGN-CODE 

ACTIV-CODE 

ADR6-VERSN 

DMCTL-CODE 

ADR3-VERSN 

ABORT-CODE 

ADR7-VERSN 

ABRTX-CODE 

AUR4-VERSN 

E 

*&2 

Kl 

DFTBG-CODE 

BASE-VERSN 



RELFC 

ADR5-VERSN 

DMISS-CODE 

NEG3 

TIMCT-CODE 

CON 



SETUP CLEAR INDEX 
CLEAR HIGH CORE 
* COMMUNICATIONS 

* AREA 
* 

1X3 = HCCA BASE REF 
FETCH DM EDIT AREA ADDRS 

* ADDRESS AND SET IN 
* COMM AREAS 

FETCH DM MAIN LINE ADDRS 
MAIN LINE IN COM AREA 
SET POLL IND # MPXDM 
FETCH CNTRL SECTN ADDRS 
SET IN COMM AREA 
FETCH ABORT RTN ADDRS 

*AND SET IN XFER VECT 
FETCH ABORT RTN EXIT 
*ADRS-SET IN COMM AREA 
FETCH INIT LOAD ADDRS 

SKIP IF EVEN ADDRS 

MAKE AODRS ODD 
SET IN COMM AREA 
GENERATE RELOCATION 
*FACTOR.LOAD ADDRESS 
*MINUS BASE OF 2047 
SAVE RELOCATION FACTOR 
FETCH DM INTR RTN AODRS 
*ADRS AND STORE IN HCCA 
FETCH NO RESP TIME CNT 
STORE TIME COUNT IN HCCA 
SET FIXED AREA INDEX 



80 30 3420 
80 30 3430 
80 30 3440 
80 30 3450 
80 30 3460 
80 30 3470 
80 30 3480 
80 30 3490 
80 30 3500 
80 30 35 10 
80 30 3520 
80 30 3530 
80 30 3540 
80 30 3550 
80 30 3560 
80 30 3570 
80 30 3580 
80 30 3590 
80 30 3600 
80 30 3610 
80 30 3620 
80 30 3630 
80 30 3640 
80 30 3650 
80 30 3660 
80 30 3670 
80 30 3680 
80 30 3690 
80 30 3700 
80 30 3710 
80 30 3720 
80 30 3730 
80 30 3740 
80 30 3750 
80 30 3760 
80 30 3770 
80 30 3780 
80 30 3790 
80 30 3800 
80 30 3810 
80 30 3820 
80 30 3830 
80 30 3840 
80 30 3850 
80 30 3860 
80 30 38 70 
80 30 3880 
80 30 3890 
80 30 3900 
80 30 3910 
80 30 3920 
80 30 3930 
80 30 3940 
80 30 3950 
80 30 3960 
80 30 3970 
80 30 3980 
80 30 3990 
80 30 4000 
80 30 40 10 
80 30 40 20 
80 30 40 30 
80 30 40 40 
80 30 40 50 
80 30 40 60 
80 30 40 70 
80 30 40 80 
80 30 40 90 
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002A 0AB3 
002B 0AB5 
002C 6C00 FFFE 
002E 4480 0063 

0030 0001 

0031 1 0032 

0032 D322 

0033 1010 

0034 D33E 



0035 
0036 
0038 
003A 



63F9 

C700 OOAB 
D700 FFFC 
7301 



003B 70FA 
003C 1 6600 OOAE 
003E 403C 



003F C058 
0040 D400 FFD9 
0042 1 D400 1238 
0044 1 4400 102D 
0046 C480 FFD2 
0048 1 E400 0996 
004A 1 F400 0996 
004C 4808 
004D 7010 



004E C400 00D8 
0050 4818 

700C 

D001 

6500 0000 

710E 

C1F8 



0051 
0052 
0053 
0055 
0056 
0057 



0059 1 6600 O0C5 
005B 6C00 FFDO 
005D 401D 



005E 
0060 
0061 



4480 FFF8 
OODC 





1 

1 005E 



0062 0000 

0063 C033 

0064 D400 FF08 

0066 4C80 FFDF 



0068 6C00 FFFE 

006A 4480 O0B9 
006C 1 009B 



XIO 

XIO 

STX 

BSI 

DC 

DC 

STO 

SLA 



X2 $MK1-C0N 

X2 SMK2-C0N 

L MPXOP 

I $IOST 

1 
* 
3 ARBSY-CODE 
16 



MASK LEVELS 0-13 
MASK LEVELS 14 - 23 
SET MPX IN OPERATION IND 
CALL TO GET AREA BUSY WD 
ONE PARAMETER 
MPXDM AREA LOCATION 

SAVE AREA BUSY WORD 
CLEAR MPX IN 



* 
* 

DMINB 



STO 3 KPXOP-CODE * OPERATION INDICATOR 
LOAD INTERFACE TRANSFER VECTORS 



LDX 


3 


-7 


LD 


L3 


TVECT+7 


STO 


L3 


BEGIN&7 


MDX 


3 


1 


MDX 




DMINB 


LDX 


L2 


HDG53 


BSI 




SETCD 



SET MOVE INDEX 

FETCH XFER VECTOR 

STORE IN XFER VECT AODR 

SKIP WHEN DONE 

LOOP 

PRESET INDEX TO STORE 

BRNH TO SETUP OUTPUT CODE 



INPUT EDIT CARDS VIA MPDM2 

LD DM2ID FETCH LOCAL MPDM2 ID 

STO L LCLID SET IN HCCA CK WORD 

STO L ABM2 SAVE IN ABORT MESSAGE 

BSI L MPDM2 CALL LOCAL MPDM2-EDIT 

LD I EDiTA FETCH OUTPUT DEV DDEF 

AND L KOOOF SAVE CHANNEL BITS 

EOR L KOOOF TEST FOR F - NO CHAN 

BSC + SKIP IF 1443 IS SEL DEV 

MDX DMINC BRANCH IF 1053 IS SEL DEV 

VERIFY THAT 1443 IS DEFINED IN THE * 

SYSTEM AND IS ON-LINE. FORCE 1053 AS * 

OUTPUT DEVICE IF 1443 NOT AVAILABLE. * 



LD 

BSC 

MDX 

STO 

LDX 

MDX 

LD 

BSC 



L $1443 

t- 

DMINC 

*£1 
LI *-* 

1 14 
XI DVONF 
L DMINC, +- 

L2 HDG43 



FETCH 1443 DT AODR 
SKIP IF DEFINED 
BRANCH-FORCE 1053 

1X1 # DT ADDRESS 
ADJUST IX 
FETCH ON/OFF IND 
BRANCH IF 1443 OFF LINE 



* 
* 
* 
DMINC 



LDX L2 HDG43 SET INDEX TO STORE 
STX L OUTDV SET 1443 INDICATOR 
BSI SETCD BRNH TO SETUP OUTPUT CODE 

# 

OUTPUT MESSAGE D002-MPXDM LOCATION * 

# 
BSI I LOG CALL LOG ROUTINE 
DC LCMSG MESSAGE ADDRESS 
DC DMINC BUSY RETURN 
DC /OOOO TERMINATION TYPE 
LD ADR8 FETCH MAIN LINE ABORT 
STO L ABRTX *EXIT ADR-SET IN HCCA 



* 
DMIXT 

* 
* 

4 
* 
# 

CPTER 

* 



BSC I DMCTL BRANCH TO CONTROL SECT 

* 

MPX-MPXDM VERSIONS ARE INCOMPATABLE. * 
OUTPUT MESSAGE VIA MPX TYPEN ROUTINE * 
AND ABORT ON-LINE OPERATIONS. * 



STX 

BSI 

DC 



MPXOP 

$TYPE 
LIST 



SET MPX IN OP IND 



CALL MPX 1053 PRINT RTN 
ADDR OF I/O LIST 



80 30 4100 
80 30 4110 
80 30 4120 
80 304130 
80 30 4140 
80 30 4150 
80 30 4160 
80 304170 
80 304180 
80 30 4190 
80 30 4200 
80 30 42 10 
80 30 4220 
80 30 42 30 
80 30 4240 
80 30 42 50 
80 30 4260 
80 30 4270 
80 30 4280 
80 30 4290 
80 30 4300 
80 30 4310 
80 30 4320 
80 30 4330 
80 30 4340 
80 30 4350 
80 30 4360 
80 30 4370 
80 30 4380 
80 30 4390 
80 30 4400 
80 30 4410 
80 30 4420 
80 30 4430 
80 30 4440 
80 30 4450 
80 30 4460 
80 30 4470 
80 30 4480 
80 30 4490 
80 30 4500 
80 30 4510 
80 30 4520 
80 30 4530 
80 304540 
80 30 4550 
80 304560 
80 30 4570 
80 30 4580 
80 30 4590 
80 30 4600 
80 30 4610 
80 30 4620 
80 30 4630 
80 30 4640 
80 30 4650 
80 30 4660 
80 30 4670 
80 30 46 80 
80 30 4690 
80 30 4700 
80 30 4710 
80 30 4720 
80 30 4730 
80 30 4740 
80 30 4750 
80 30 4760 
80 30 4770 
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006D 





1010 






SLA 




16 


CLEAR MPX IN 


006E 





D400 


FFFE 




STO 


L 


MPXOP 


*OPERATION INDICATOR 


0070 





C02A 






LD 




LIST 


TEST LINK/BUSY 


0071 


1 


4C20 


0070 




BSC 


L 


*-3,Z 


BRANCH IF BUSY 


0073 


1 


C400 


00A1 




LD 


L 


LIST&6 


FETCH ERROR PARAMETER 


0075 


1 


F400 


1140 




EOR 


L 


K3 


TEST FOR NOT READY 


0077 


1 


4C18 


0068 




BSC 


L 


CPTER, £- 


BRANCH IF NOT READY 


0079 





4480 


0OB6 


EXIT1 

* 


BSI 


I 


SEXIT 


CALL MPX EXIT ROUTINE 

* 



007B 0000 

007C 61FB 
007D C200 
007E 0500 FF6F 

0080 7201 

0081 7101 

0082 70FA 

0083 1 6700 OOCA 

0085 61EE 

0086 C300 

0087 D500 FFD2 
0089 7301 
008A 7101 
008B 70FA 

008C 1 4C80 007B 



008E 0002 



008F 





0BB8 


0090 


1 


0910 


0091 


1 


0911 


0092 


1 


1217 


0093 


1 


0001 



DMIN - SETCD SUBROUTINE 



THIS SUBROUTINE IS USED TO STORE THE 
SPECIFIED PRINT CODE IN THE HIGH CORE 
COMMUNICATIONS AREA. 



CALLING SEQUENCE 

BSI SETCD 

IX 2 = HEADING CODE ADRS 



CALLED ROUTINES. 

NONE 
CALLED SUBROUTINES. 
NONE 
POSSIBLE ABORT CONDITIONS. 
NONE 



SUBROUTINE ENTRY 
* SUBROUTINE EXIT 

* 

* 

* 

SETCD DC 

* 



SETCD 
SETXT 



*-* RETURN ADDRESS 

LDX 1-5 IX 1 = NMBR WRDS TO MOVE 

iETCl LD 2 FETCH HEADING CODE 

STO LI PHDNG+5 STORE IN COMM AREA 

MDX 2 1 INCR FETCH INDEX 

MUX 1 1 SKIP WHEN ALL MOVED 

MDX SETC1 BRANCH IF NOT 

L3 C4353 IX = CODE TABLE ADDRESS 

1 -18 IX 1 = NMBR WORDS TO MOVE 

3 FETCH HEX CODE 

LI CODE+18 STORE IN COMM AREA 

3 1 INCR FETCH INDEX 

1 1 SKIP WHEN ALL MOVED 

SETC2 BRANCH IF NOT 



SETC2 



LDX 

LDX 

LD 

STO 

MDX 

MDX 

MDX 



* 
SETXT 

* 

VERSN 

* 

MXTIM 

ADR1 

ADR2 

ADR3 

ADR4 



BSC I SETCD 



RETURN TO CALLER 



CUNSTANTS 



DC 

DC 
DC 
DC 
DC 
DC 



MPXDM VERSION IND 



3000 

DMEDT 

DMPID 

ABRT 

DMIN 



3 SEC MAX DIAG TIMER CT 
ADDRESS OF EDIT AREA 
ADDRESS OF DM PST 
ADDRESS UF ABORT RTN 
ADRS INITIALIZE SECT 



80 30 4780 
80 30 4790 
80 30 4800 
80 30 4810 
80 30 4820 
80 30 4830 
80 304840 
80 30 4850 
80 30 4860 
80 30 4870 
80 30 4880 
80 30 4890 
80 30 4900 
80 30 49 10 
80 30 4920 
80 30 4930 
80 30 4940 
80 30 4950 
80 30 4960 
80 30 4970 
80 30 4980 
80 30 4990 
80 30 5000 
80 30 50 10 
80 30 50 20 
80 30 50 30 
80 30 50 40 
80 30 50 50 
80 30 50 60 
80 30 50 70 
80 30 50 80 
80 30 50 90 
80 30 5100 
80 30 5 1 10 
80 30 5 1 20 
80 30 5 1 30 
80 30 5 1 40 
80 30 5 1 50 
80 305160 
80 305170 
80 30 5180 
80 30 5190 
80 30 5200 
80 305210 
80 30 5220 
80 30 5230 
80 30 5240 
80 30 5250 
80 30 5260 
80 30 5270 
80 30 5280 
80 30 5290 
80 30 5300 
80 30 5310 
80 30 5320 
80 30 5330 
80 30 5340 
80 30 5350 
80 30 5360 
80 30 5370 
80 30 5380 
80 30 5390 
80 30 5400 
80 30 5410 
80 30 5420 
80 30 5430 
80 30 5440 
80 30 5450 



DATE 
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0094 


1 


0997 


ADR5 


DC 


DMIR 


ADDRESS OF INTRPT RTN 


80 30 5460 




0095 


1 


09A1 


ADR6 


DC 


MCTRL 


ADDR MPXDM CTRL 


SECT 


80 30 5470 




0096 


1 


0079 


ADR7 


DC 


EXIT1 


DMIN ABORT EXIT 


ADDR 


80 30 5480 




0097 


1 


09B7 


ADR8 


DC 


CTL1 


MCTRL 


ABORT EXI1 


' ADRS 


80 30 5490 




0098 





2002 


DM2 ID 


DC 


/200 2 


LOCAL 


MPDM2 ID 




80 30 5500 




0099 





FFFD 


NEG3 


DC 


-3 


CONSTANT NEGETIVE 3 


80 30 5510 




009A 





07FF 


BASE 


DC 


2047 


BASE RELOCATION 


FACTOR 


80 30 5520 










* 










* 


80 30 55 30 










* 




TYPEN I/O 


LIST 




* 


80 30 5540 










* 










* 


80 30 5550 




009B 





0000 


LIST 


DC 


*-* 


LINK/BUSY 




80 30 5560 




009C 





0000 




DC 





EXIT TYPE 




80 30 5570 




009D 





0000 




DC 


*-* 


SYSTEM 


RESERVED 


1 


80 30 5580 




009E 





0000 




DC 


*-* 


SYSTEM 


RESERVED 


2 


80 305590 




009F 





0000 




DC 


*-* 


SYSTEM 


RESERVED 


3 


80 30 5600 




OOAO 





0000 




DC 


*-* 


SYSTEM 


RESERVED 


4 


80 30 5610 




00A1 





0000 




DC 





ERROR 


PARAMETER 




80 30 5620 




O0A2 





2110 




DC 


/2110 


1053 I/O CONTROL 


. PARAM 


80 30 5630 




00A3 


1 


OOAD 




DC 


PDATA 


OUTPUT 


AREA ADDRESS 


80 30 5640 










* 












80 30 5650 




O0A4 


1 


OEFC 


TVECT 


DC 


B6IN 


* 






80 30 5660 




00 A5 


1 


QAB3 




DC 


STRT 


* INTERFACE 




80 30 5670 




O0A6 


1 


0D11 




DC 


MEND 


* 






80 30 5680 




00 A7 


1 


0D9B 




DC 


LG 


* 






80 30 5690 




O0A8 


1 


0D71 




DC 


ERR 


* ROUTINE 




80 30 5700 




00A9 


1 


0B20 




DC 


RQDV 


* 






80 30 5710 




OOAA 


1 


OCDO 


* 


DC 


RLDV 


* 


ADDRESS 




80 305720 
80 30 5730 




OOAB 




0002 




BSS 


2 


MPX REQUIREMENT 




80 30 5740 




OOAD 





0017 


PDATA 


DC 


23 


WORD COUNT 




80 30 5750 










* 












80 30 5760 










* 












80 30 5770 










# 


1053/1816 OUTPUT 


CODE TABLE 




80 30 5780 










* 












80 30 5790 




OOAE 





811E 


HDG53 


DC 


/811E 


CODED 


CR/C 




80 30 5800 




OOAF 





B29A 




DC 


/B29A 


* 


U/S 




80 30 5810 




OOBO 





9E21 




DC 


/9E21 


* 


T/SP 




80 30 5820 




00B1 





3676 




DC 


/3676 


* 


E/N 




80 30 5830 




O0B2 





1621 


* 


DC 


/1621 


CODED 


G/SP 




80 30 5840 
80 30 5850 










* 


MESSG 


- MPX/MPXDM 


NOT COMPAT-MPXDM 


VER 000 1 


80 30 5860 










* 












80 30 5870 




0OB3 





2172 




DC 


/2172 


SP M 






80 30 5880 




0OB4 





5696 




DC 


/5696 


P X 






80 30 5890 




00B5 





BC72 




DC 


/BC72 


/ M 






80 30 5900 




00B6 





5696 




DC 


/5696 


P X 






80 30 59 10 




GQ87 





3272 




DC 


/3272 


D M 






SO 30 5920 




00B8 





2176 




BC 


/2176 


SP N 






80 30 5930 




0OB9 





529E 




DC 


/529E 


T 






80 30 5940 




QOBA 





211E 




DC 


/2UE 


SP C 






80 30 5950 




00 BB 





5272 




DC 


/5272 


Q M 






80 30 5960 




OOBC 





563E 




DC 


/563E 


P A 






8O30 5970 




OOBD 





9E84 




DC 


/9E84 


T - 






80 30 5980 




OOBE 





7256 




DC 


/7256 


M P 






80 30 5990 




OOBF 





9632 




DC 


/9632 


X D 






80 30 6000 




OOCO 





7221 




DC 


/7221 


M SP 






80 30 60 10 




OOCl 





B636 




DC 


/B636 


V E 






80 30 60 20 




00C2 





6221 




DC 


/6221 


R SP 






80 30 60 30 




00C3 





C4C4 




DC 


/C4C4 









80 30 6040 




00C4 





C4FC 


* 
* 
* 


DC 
1443 


/C4FC 
OUTPUT CODE 


1 
TABLES 






80 3060 50 
80 30 6060 
80 30 60 70 
80 30 60 80 




00C5 





0033 


HDG43 


DC 


/0033 


CODED 


SP/C 




80 30 60 90 




00C6 





1412 




DC 


/I412 


* 


U/S 




80 306100 




0OC7 





1300 




DC 


/1300 


* 


T/SP 




80 30 6 1 10 




00C8 





3525 




DC 


Z3525 


* 


E/N 




80 30 6 1 20 




00C9 





3700 




DC 


/3700 


CODED 


G/SP 




80 30 6 1 30 


DATE 


17JUN68 20MAR70 


31JUL70 










PROG 1 


EC NO. 


411939 431320 


431327 










PAGE 



* * 

* PACKED 1443/1053 HEXIDECIMAL PRINT CODES * 



OOCA 





0021 


OOCB 





0AC4 


OOCC 





01FC 


OOCD 





02D8 


OOCE 





03DC 


OOCF 





04F0 


OODO 





05F4 


00D1 





06D0 


00D2 





07D4 


00D3 





08E4 


00D4 





09E0 


00D5 





313E 


00D6 





321A 


00D7 





331E 


00D8 





3432 


0009 





3536 


OODA 





3612 


OODB 





2084 


OODC 





0004 


OODD 





0000 


OODE 





D002 


OODF 





0000 


OOEO 


1 


0000 


00E1 


1 


0911 


00E2 


1 


0000 



0911 



0911 





0300 


0912 





0001 


0913 


1 


0911 


0914 





0000 


0915 





0000 


0916 





0000 


0917 





oooo 


0918 





0000 


0919 





0000 


091A 





0000 


091B 





0000 


091C 





FFFF 


091D 




0077 


0994 





0001 


0995 





0002 


0996 





OOOF 



C4353 DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



LCMSG DC 
DC 

DC 
DC 
DC 
DC 
DC 



/00 21 
/0AC4 
/01FC 
/02D8 
/0 3DC 
/04F0 
/05F4- 
/06D0 
/0 704 
/0 8E4 
/09E0 
/313E 
/321A 
/331E 
/3432 
/3536 
/3612 
/2084 



SPACE 


1 
2 
3 
4 
5 
6 
7 

a 

9 
A 
B 

c 

D 
E 
F 
MINUS SIGN 



0001 MESSAGE STRING 



/0004 LINE NUMBEK-HORD CUUNT 

/OOOO HEX/DEC = HEX OUTPUT 

/D002 MESSAGE ID 

/OOOO MPXDM ORG ADDRESS 

MPXDM DM LOAD ADDRESS 

OMPID DM MAIN LINE ADDRESS 

MPXDM RELOCATION FACTOR 



**************** ***************************** 

* ^ 

ORG MPXDM+2321 RELOCATABLE ORIGIN 

* * 
********************************************* 

* MPXDM - PROGRAM STATUS TABLE * 

********************************************* 

* * 



DMPID DC 


/0 300 




P1D 


RID DC 


/00O1 




ROUTINE ID 


RAD DC 


DMPTD 




ROUTINE ADDRESS 


SWO DC 


/OOOO 






SW1 DC 


/OOOO 






SW2 DC 


/OOQO 






SW3 DC 


/OOOO 






I PA DC 


/OOOO 






LPA DC 


/OOOO 






EPA DC 


/OOOO 






MLSCF DC 


/OOOO 




MAIN LINE SEQ CUNTRO 


TERM DC 


/FFFF 




TERMINATOR 


******************** 


;************************* 


* 


EDIT 


AREA * 


*********** ********************************** 


DMfcDT BSS 


119 




RESERVE EDIT AREA 


* 
* 




CONSTANTS * 


Kl DC 


1 




CONSTANT 1 


K2 DC 


2 




DEC 2 


KOOOF DC 


/OOOF 




HEX OOOF 



0803-2 
5 



DATE 
EC NO. 



17JUN68 
411939 



20MAR7O 
431320 



******************************************.,.;(.£ 

* MPXDM - INTERRUPT ROUTINE * 
********************************************* 

* * 

* ** DMIR #* * 



31JUL70 
431327 



80 306140 
80 306150 
80 306160 
80 30 6170 
80 306180 
80 306190 
80 30 6200 
80 30 6210 
80 30 6220 
80 30 62 30 
80 30 6240 
80 30 6250 
80 306260 
80 30 62 70 
80 30 6280 
80 30 6290 
80 30 6300 
80 30 6310 
80 30 6320 
80 306330 
80 30 6340 
80 30 6350 
80 30 6360 
80 30 6370 
80 306380 
80 30 6390 
80 30 6400 
80 30 6410 
80 30 6420 
80 30 6430 
80 30 6440 
80 30 6450 
80 30 6460 
80 30 6470 
80 30 6480 
80 30 6490 
80 30 6500 
80 30 6510 
80 30 6520 
80 30 6530 
80 30 6540 
80 30 6550 
80 306560 
80 30 6570 
80 30 6580 
80 30 6590 
80 30 6600 
80 30 66 ID 
80 3G 6620 
80 30 6630 
80 306640 
80 30 6650 
80 306660 
80 306670 
8030 6680 
80 30 6690 
80306700 
80 3067 10 
80 306720 
80 306730 
80 306740 
80 306750 
80 30 6760 
80 306770 
80 30 6780 
80 30 6790 
80 306800 
80 30 6810 
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0997 4480 FFE4 
0999 C480 FFE3 
099B 1 4C20 099F 



099D 1 4400 0D3F 
099F 4C80 0074 



* 
THIS ROUTINE IS ENTERED WHEN THE * 
DEVICE UNDER TEST CAUSES AN INTERRUPT.* 
THE INTERRUPT WILL FIRST ENTER THE * 
MPX INTERRUPT ROUTINE. MPX WILL XFER * 
TO OMIR VIA THE XFER INSTRUCTION IN * 
THE DEVICE TABLE FOR THE INTERRUPTING * 
DEVICE. DMIR WILL THEN TRANSFER TO THE* 
DFT INTERRUPT SERVICE ROUTINE. THE 
REVERSE PATH IS TAKEN WHEN INTERRUPT 
SERVECING HAS BEEN COMPLETED. 



DMIR FUNCTIONS ARE. 



* 
* 
* 
* 
* 
* 
* 
* 
* 

# 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* ROUTINE ENTRY 

* ROUTINE EXIT 



1. TRANSFER TO DFT INTERRUPT ROUTINE. 
2. ON DFT RETURN, TEST DFT INTERRUPT SW 

TO DETERMINE IF THIS WAS THE LAST 

EXPECTED INTERRUPT FOR THE PRESENT 

OPERATION. 
3. STOP NO RESPONCE TIMEOUT ON LAST INT* 
4. DECREMENT AREA BUSY WORDIMPX ASNGD).* 

ON LAST INTERRUPT. 
5. RESTORE MPX DEVICE TABLE INTERRUPT 

XFER INSTRUCTION ON LAST INTERRUPT 
6. CLEAR INTERRUPT CONTROL WORDS ON 

LAST INTERRUPT 
7. EXIT ROUTINE. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* * 

* * 
DMIR 



CALLED ROUTINES. 

1. DFT INTERRUPT ROUTINE. 

2. RESTR - RESTORE INTERFACE RTN 

CALLED SUBROUTINES. 

NONE 
POSSIBLE ABORT CONDITIONS. 

NONE. 



DMIR 
DIRXT 



BSI I DFTIA TO DFT INTERRUPT RTN 
LD I DFTIS FETCH DFT INTRPT SW 
BSC L DIRXT, Z BRANCH IF NOT LAST INT 

* 

LAST INTERRUPT RECE I VED.STOP TIMER IF * 
IN USE. DECREMENT AREA BUSY.HOUSEKEEP * 
INDICATORS. * 

* 

BSI L RESTR CALL RESTORE ROUTINE 



DIRXT BSC I $IMIC RETURN TO MPX MIC ROUTINE 

# * 

* MPXDM - MONITOR CONTROL ROUTINE * 

a******************************************** 



** MCTRL ** 

THE PURPOSE OF THIS ROUTINE IS TO 
INPUT THE DIAGNOSTIC FUNCTION TEST 
AND ITS EDIT, AND TO MONITOR AND CARRY 
OUT THE OPERATIONS DICTATED BY THE 
C.E. SWITCHES. 



80 30 6820 
80 306830 
80 30 6840 
80 306850 
80 30 6860 
80 30 6870 
80 306880 
80 30 6890 
80 30 6900 
80 30 69 10 
80 30 6920 
80 30 6930 
80 30 6940 
80 30 6950 
80 30 6960 
80 30 6970 
80 30 6980 
80 30 6990 
80 30 7000 
80 30 70 10 
80 30 70 20 
80 30 70 30 
80 30 70 40 
80 30 70 50 
80 30 70 60 
80 30 70 70 
80 30 70 80 
80 30 70 90 
80 30 7100 
80 30 7 1 10 
80 307120 
80 30 7 1 30 
80 30 7140 
80 30 7 1 50 
80 307160 
80 30 7 1 70 
80 307180 
80 307190 
80 30 7200 
80 30 7210 
80 30 7220 
80 30 72 30 
80 30 7240 
80 307250 
80 30 7260 
80 30 7270 
80 30 7280 
80 30 7290 
80 30 7300 
80 30 7310 
80 30 7320 
80 30 7330 
80 30 7340 
80 30 7350 
80 30 7360 
80 30 7370 
80 30 7380 
80 30 7390 
80 30 7400 
80 30 7410 
80 30 7420 
80 30 7430 
80 30 7440 
80 30 7450 
80 30 7460 
80 30 7470 
80 30 7480 
80 30 7490 



09A1 1 C400 0A3C 
09A3 D400 FFD9 
09A5 1 D400 1238 



09A7 1 4400 0F1E 
09A9 1 C400 0A3D 



THE CE SWITCH FUNCTIONS ARE 
CE SW I ON/OFF I FUNCTION 



8 
9 

10 



11 



12 



13 



14 



15 



1- 

CHANGE I 
1- 

CHANGE I 



READ DFT CNTRL CDS* 
LOAD NEXT DFT DECK* 



ON 



OFF 



SET INHIBIT END * 
TIME ShARE SWITCH * 
CLEAR INHIBIT END * 
TIME SHARE SWITCH * 



-* 



ON 
OFF 



DE-EXECUTE 
EXECUTE DFT 



ON 
OFF 



LOUP ON ERROR * 
CONTINUE ON ERROR * 



UN 
OFF 



BYPASS ERROR PRINT* 
ALLOW ERROR PRINT * 



ON 



OFF 



TERMINATE ON-LINE * 

OPERATION. * 

NORMAL ON-LINE * 

OPERATION. * 



ON 



OFF 



ENTER MONITOR * 
PAUSE. * 

TERMINATE MONITOR * 
PAUSE. * 



CALLED ROUTINES 

1. MPDM1 - DIAG TFST LOADER 

2. MPDM2 - EDIT CARD LOADER 

3. MPDM4 - CONTROL CARD LOADER 

4. EXIT - MONITOR TERMINATION RTN 

CALLED SUBROUTINES 



1. LDPRT - LOG D00 1.0FT LOAD MSG 

2. TSCTL - SET/CLEAR INHIBIT END 

TIME SHARE INDICATOR 

3. CKIO - CHECK FOR PENDING I/O 

OPERATION INTERROPT. 

4. MTERM - PREPARE FOR PROG TERM. 

5. CTLPT - LOG A001.DFT XEO MSG. 

POSSIBLE ABORT CONDITIONS 



NONE 

ROUTINE ENTRY 
ROOTINE EXIT 



MCTRL £ CTL1 
CTLXT+4 



* 
* 



* 
* 
* 

* 

* 

* 

* 
* 
* 

* 

* 
#* 



MCTRL LD L LCID1 FETCH MPDM1 ID 

STO L LCL1D SET IN LOCAL CK WORD 
STO L ABM2 SAVE IN ABORT MESSAGE 

* * 

* INPUT DIAGNOSTIC FUNCTION TEST * 



BSI 

LD 



MPDM1 
LC1D2 



CALL DFT LOADER 
FETCH MPDM2 ID 



80 30 7500 
80 30 7510 
80 30 7520 
80 30 75 30 
80 30 7540 
80 30 7550 
80 30 7560 
80 30 75 70 
80 30 7580 
80 30 75 90 
80 30 7600 
80 30 76 10 
80 30 7620 
80 30 76 30 
80 30 7640 
80 30 7650 
80 30 7660 
80 30 7670 
80 30 7680 
80 30 7690 
80 30 7700 
80 30 7710 
80 30 7720 
80 30 7730 
80 30 7740 
80 30 7750 
80 30 7760 
80 30 7770 
80 30 7780 
80 30 7790 
80 30 7800 
80 30 7810 
80 30 7820 
80 30 7830 
80 30 7840 
80 30 7850 
80 30 7860 
80 30 7870 
80 30 7880 
80 30 7890 
80 30 7900 
80 30 7910 
80 30 7920 
80 30 7930 
80 30 7940 
80 30 7950 
80 30 7960 
80 30 7970 
80 30 7980 
80 30 7990 
80 30 8000 
80 30 80 10 
80 30 80 20 
80 30 80 30 
80 30 80 40 
80 30 80 50 
80 30 80 60 
80 30 80 70 
80 30 80 80 
80 30 80 90 
80 30 8 100 
80 30 8 1 10 
80 30 8 1 20 
80 30 8 1 30 
80 308140 
80 30 8 1 50 
80 30 8160 
80 308170 
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09AB D400 FFD9 
09AD 1 D400 1238 




STO 
STO 


L 
L 


LCLID 
ABM2 




SET IN LOCAL CK WORD 
SAVE IN ABORT MESSAGE 


80308180 
80 308190 








* 

* 


* 
INPUT DIAG FUNCTION TEST EDIT * 


80 30 8200 
80 30 8210 






09AF 1 4400 102D 
09B1 1 4400 0A8A 


* 


BSI 
BSI 


L 
L 


MPDM2 
LDPRT 




* 
CALL EOIT LOADER 
BRNH TO PRNT DFT LOADED 


80 30 8220 

80 308230 

MSG80 308240 






09B3 4078 
09B4 1010 
09B5 1 D400 0A38 


* 


BSI 
SLA 
STO 


L 


SWS 

16 

CTLCD 




GO PRESET CNTRL SWS 
INITIALUZE CONTROL 
♦CARD READ SWITCH 


80 30 8250 
80 308260 
80 308270 
80 30 8280 






09B7 10A0 
09B8 1 OCOO 0A36 
09BA 1 E400 0A3A 
09BC 1 D400 0A3F 
09BE 18D6 


* 
CTL1 


SLT 
XIO 

AND 
STO 
RTE 


L 
L 

L 


32 

CESWS 

KOOFF 

CESAV 

22 




CLEAR «A' AND >Q< 
SENSE CE SWITCHES 
SAVE CE SWS ONLY 
SAVE THE SETTING 
SET SW 10 TO BIT 


80 30 8290 
80 30 8300 
80 308310 
80 30 8320 
80 30 8330 
80 308340 








* 
* 
* 


SET OR 
LOCK IN 
SETTING 


* 
CLEAR THE MPX TIME SHARE * 
1 SWITCH ACCORDING TO THE * 
. OF C.E. SWITCH 10. * 


80 30 8350 
80 30 8360 
80 308370 
80 30 8380 






09BF 6300 
09CO 4828 
09C1 6301 
09C2 1 4400 0A61 


# 


LDX 
BSC 
LDX 
BSI 


3 

3 

L 




+ Z 
1 
TSCTL 




* 
PRESET TO TURN TSS OFF 
SKIP IF CE SW 10 OFF 
SET TO TURN TSS ON 
SET/CLR TIME SHARE LOCK 


80 30 8390 
80 30 8400 
80 30 8410 
80 30 8420 
SW 80 30 8430 








* 


CK FOR 


CONTROL 


* 
CARD READ SW 8 * 


80 30 8440 
80 30 8450 






09C4 18D1 
09C5 F072 
09C6 4808 
09C7 700F 
09C8 1 7400 1208 
09CA 700C 


# 
CTL3 


RTE 
EOR 
BSC 
MDX 
MDX 
MDX 


L 


17 

CTLCD 

+ 

CTL4 

ABTID.C 

CTL4 


i 


* 
POSITION SW 8 
TEST FOR CHNG OF STATE 
SKIP IF RD CTL CD REQST 
NOT CTL CD READ-BRANCH 
SKIP IF NOT DFT ABORTED 
ELSE BRANCH 


80 30 8460 
80 30 8470 
80 30 8480 
80 30 8490 
80 30 8500 
80 308510 
80 30 8520 








* 
* 


READ 


* 
CONTROL CARDS REQUESTED * 


80 308530 
80 30 8540 






09CB F06C 
09CC 006B 
09CD 1 4400 0A4D 
09CF C06E 
0900 D400 FFD9 
0902 1 D400 1238 


* 


EOR 

STO 

BSI 

LD 

STO 

STO 


L 

L 

L 


CTLCD 

CTLCD 

CKIO 

LCID4 

LCLID 

ABM2 




* 
COMPLEMENT INDICATOR 
*T0 REFLECT SW CHANGE 
CALL I/O IN OP CK RTN 
FETCH MPDM4 ID 
SET IN LOCAL CK WORD 
SAVE IN ABORT MESSAGE 


80 308550 
80 30 8560 
80 30 8570 
80 30 85 80 
80 30 8590 
80 30 8600 
80 30 8610 








* 


INPUT DFT CONTROL 


* 
CARDS * 


80 30 8620 
80 30 8630 






09D4 1 4400 10D7 
09D6 70E0 


* 


BSI 
MDX 


L 


MPDM4 
CTL1 




* 
CALL CONTROL CD LOADER 
LOOP TO START CONTROL 


80 30 8640 
80 30 8650 
80 30 8660 








* 
* 


CHECK XEQ/DXEQ 


* 
DIAG FUNCTION TEST * 


80 30 8-670 
80 30 8680 






09D7 18CE 
09D8 1 4C10 09DC 


# 
CTL4 


RTE 
BSC 


L 


14 
CTL5 f - 




* 
POSITION XEQ SW 11 
BRANCH IF SW OFF 


80 30 8690 
80 30 8700 
80 30 8710 








* 
* 


DXEQ 


DFT IF IT 


IS 


* 
EXECUTING * 


80 30 8720 
80 30 8730 






09DA 4065 
09DB 7015 


* 


BSI 
MDX 




MTERM 
CTL6 




* 
CALL DXEQ ROUTINE 
BRANCH TO TEST SW 15 


80 30 8740 
80 30 8750 
80 30 8760 








* 


XEQ 


DFT IF IT 


IS 


* 
NOT EXECUTING * 


80 308770 
80 30 8780 






09DC 7400 FFDB 
09DE 7012 
09DF 1 7400 1234 
09E1 700F 
09E2 6C00 FFDB 
09E4 6780 FFF2 


* 
CTL5 


MDX 
MDX 
MDX 
MDX 
STX 
LDX 


L 

L 

L 
13 


XEQSW,0 

CTL6 

DTABT.O 

CTL6 

XEQSW 

DFTID 




* 
SKIP IF NOT EXECUTING 
DFT EXECUTING-BRANCH 
SKP IF NOT DFT ABORTED 
BRANCH-DFT ABORTED ON 
SET XEQ SWITCH 
IX 3 = OFT PST ADDRS 


80 30 8790 
80 30 8800 
80 30 8810 
80 30 8820 
80 30 8830 
80 30 8840 
80 30 8850 




DATE 
EC NO. 


17JUN68 20MAR70 
411939 431320 


31JUL70 
431327 










PROG ID 
PAGE 


0803-2 
7 



09E6 6CO0 FFFD 
09E8 4780 0007 
09EA 1010 
09EB D400 FFFD 



09ED 1 4400 0A74 
09EF 0001 
09F0 7035 



09F1 10A0 
09F2 0843 
09F3 E046 
09F4 18D1 
09F5 4810 
09F6 700B 



09F7 C043 
09F8 1 4C20 09F1 
09FA C400 FFE9 
09FC D400 FFE8 
09FE 6300 
09FF 4061 
OAOO 683A 
0A01 70EF 



0A02 
0A03 
OA04 
0A05 
0A06 
0A07 
0A09 
OAOA 
OAOB 
OAOD 
OAOF 
0A10 
0A11 
0A12 
0A13 



C038 
4818 
700F 
0830 

E033 

4C18 OAOD 
F035 
1801 

4C20 0A05 
6780 FFE8 
4051 
401B 

1010 

D028 



7012 



18C1 

4810 

7005 
0A17 4028 
0A18 6300 

4047 

1 4C00 0AA2 



0A14 
0A15 

0A16 



0A19 
0A1A 



0A1C 18C5 
0A1D 180F 





0A20 7005 
0A21 F017 
0A22 D016 



0A1E 
0A1F 



F01A 
4808 



* 
* 
* 
CTL6 



STX L DFTOP SET DFT IN OPER IND 
BSI 13 7 TO OFT INITIALIZATION 

SLA 16 CLEAR DFT IN 

STO L DFTOP *OPERATION INDICATOR 

* 

LOG MESSAGE AOO 1 - DFT XE« * 

* 

L CTLPT BRANCH TO PRINT 
1 XEQ CONSTANT 

CTLXT BRANCH TO POLL 

* 
CHECK PAUSE SWITCH 15 * 



BSI 
DC 

MDX 



CTL7 

* 
* 

CTL8 



CTL8A 



CTL9 



SLT 
XIO 
AND 
RTE 
BSC 
MDX 



LD 

BSC 

LD 

STO 

LDX 

BSI 

STX 

MDX 



32 CLEAR 3A3 AND 303 

CESWS SENSE CE SWITCHES 
KOOFF REMOVE SNS/PGM SWITChtS 
17 POSITION SW 15 

SKIP IF SWITCH ON 
CTL8 SW OFF BRANCH 

* 
ENTER MONITOR PAUSE * 

PAUSE FETCH PAUSE SWITCH 

L CTL6.Z BRN IF ALREADY IN PAUSE 

L ETSST FETCH TIME SHARE STATUS 

L ETSSV SAVE IT 

3 SET TO UNLOCK TIME SHARE 

TSCTL BRANCH TO UNLOCK T.S. 

PAUSE SET PAUSE INDICATOR 

CTL6 PAUSE LOOP BRANCH 



TERMINATE EXISTING PAUSE LOOP 



LD 

BSC 

MDX 

XIO 

AND 

BSC 

EOR 

SRA 

BSC 

LDX 

BSI 

BSI 

SLA 

STO 

MDX 



L 
13 



PAUSE FETCH PAUSE IND 

+- SKIP IF ON 

CTL9A NOT IN PAUSE BRANCH 

CESKS SENSE CE SWS 

KOOFF SAVE CE SWS ONLY 

CTL9.+- BRANCH IF SWS ZERO 

CESAV CK IF SAME AS BEFORE 

1 EXCEPT FOR SW 15 

CTL8A.Z BRANCH IF NOT THE SAME 

ETSSV SET TO RESTORE TS STATUS 

TSCTL BRANCH TO LOCKIN T.S. 

SWS GO PRESET CNTRL SWS 

16 

PAUSE CLR PAUSE INDICATOR 

CTLXT BRANCH TO POLL 



CTL9A 



CTL10 



TEST TERMINATE ON LINE OPERATION SW 14* 

* 

RTE 1 POSITION TERM SW 

BSC - SKIP IF SW IS ON 

MDX CTL11 SW OFF BRANCH 

BSI MTERM CALL DE-EXECUTE RTN 

LDX 3 SET TO UNLOCK TIME SHARE 

BSI TSCTL BRANCH TO UNLOCK T.S. 

BSC L EXIT BRANCH TO MPXDM TERM RTN 



TEST LOAD NEXT PROGRAM SWITCH 9 



* 
CTL11 



DATE 
EC NO. 



17JUN68 
411939 



2OMAR70 
431320 



RTE 
SRA 
EOR 
BSC 
MDX 
EOR 
STO 



31JUL70 
431327 



5 POSITION SWITCH 

15 * BIT 9 

NXTPG TEST FOR CHG OF STATE 

+ SKIP IF LOAD PROG ROST 

CTLXT BRANCH TO POLL 

NXTPG COMPLEMENT INDICATOR 

NXTPG *T0 REFLECT THE SW CHNG 



80 30 8860 
80 30 8870 
80 308880 
80 30 8890 
80 30 8900 
80 30 8910 
80 30 8920 
80 30 8930 
80 30 8940 
80 30 8950 
80 30 8960 
80 30 8970 
80 30 8980 
80 30 8990 
80 30 9000 
80 309010 
80 3090 20 
80 30 90 30 
80 30 90 40 
80 30 90 50 
80 3090 60 
80 3090 70 
80 30 90 80 
80 3090 90 
80 30 9100 
80 309110 
80 309120 
80 309130 
80 309140 
80 309150 
80 309160 
80 309170 
80 309180 
80 309190 
80 30 9200 
80 30 9210 
80 309220 
80 309230 
80 309240 
80 309250 
80 309260 
80 309270 
80 309280 
80 30 9290 
80 30 9 300 
80 309310 
80 309320 
80 30 9330 
80 309340 
80 30 9350 
80 309360 
80 309370 
80 309380 
80 30 9390 
80 30 9400 
80 30 9410 
80 30 9420 
80 30 9430 
80 309440 
80 309450 
80 309460 
80 30 9470 
80 30 9480 
80 30 9490 
80 30 9500 
80 30 9510 
80 309520 
80 30 95 30 
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0A23 401C 
0A24 1 4C00 09A1 



0A26 1 6700 09B7 
0A28 1 6F00 091B 

0A2A 4C80 FFF6 

0A2C 0000 



0A2D 
0A2E 
0A2F 
0A30 
0A31 
0A32 
0A33 



0808 
EOOB 
1887 
D007 
1010 
1081 
D005 



0A34 1 4C80 0A2C 



0A36 




0000 


0A36 





0000 


0A37 





0760 


0A38 





0000 


0A39 





0000 


0A3A 





OOFF 


0A3B 





0000 


0A3C 





1001 


0A3D 





2002 


0A3E 





4004 


0A3F 





0000 



* 
* 
* 
CTLXT 

* 

* 
SWS 



BSI MTERM DXEQ PRESENT PROGRAM 
BSC L MCTRL GO LOAD NEXT PROGRAM 

* 

SET RETURN AND EXIT TO START * 

LDX L3 CTL1 SET MLSCF RETURN 
STX L3 MLSCF * 



BSC I START 



DC 

XIO 
AND 
SRT 
STO 
SLA 
SLT 
STO 



CESWS 

KOOFF 

7 

CTLCD 

16 

1 

NXTPG 



TO POLL 

RETURN AODRESS 

SENSE CE SWITCHES 
SAVE CE SWS ONLY 
POSITION SW 8 
SET CTLCD = SW 8 
CLEAR 'A' REG 
POSITION SW 9 
SET NXTPG = SW 9 



* 
SWSXT 

* 
* 
* 

CESWS 

* 

CTLCD 

NXTPG 

KOOFF 

PAUSE 

LCID1 

LCI 02 

LCID4 

CESAV 

* 



BSC I SWS 



RETURN TO USER 



CONSTANTS 



BSS E 

DC IOC WORD TO SENSE 

DC /0760 *CE SWITCHES 

DC READ CONTROL CARD IND 

DC LOAD NEXT PROGRAM IND 

DC /OOFF HEX OOFF 

DC PAUSE IN PROGRESS IND 

DC /100 1 MPDM1 ID 

DC /2002 MPDM2 ID 

DC /4004 MPDM4 ID 

DC *-* CE SWS SETTING SAVE 



* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 

* 
* 
* 

* 



MCTRL - MTERM SUBROUTINE 



THIS SUBROUTINE IS ENTERED WHENEVER 
THE OPERATOR SPECIFIES THE FUNCTIONS 
OF DE-EXECUTE DFT .TERMINATE ON-LINE 
OPERATIONS OR LOAD NEXT PROGRAM. IF A 
DFT IS EXECUTING WHEN THE SUBROUTINE 
IS ENTERED, THEN MTERM 
ROUTINES NECESSARY TO 
THE DFT. 



WILL CALL THE 
PROPERLY OXEti 



CALLING SEQUENCE 



CALLED 



BSI 
ROUTINES 



MTERM 



1. END - MPXDM END ROUTINE 
CALLED SUBROUTINES 

1. CKIO - PENDING 



* POSSIBLE ABORT CONDITIONS 



NONE 

SUBROUTINE ENTRY 
SUBROUTINE EXIT 



MTERM 
TRMXT 



-* 
* 
* 

* 
* 
* 
# 

* 
* 
* 
* 

* 

* 
* 

* 
* 
* 
INTRP CK SUBRTN* 
* 
* 

* 
* 
* 
* 



80 309540 
80 30 9550 
80 309560 
80 309570 
80 30 9580 
80 309590 
80 30 9600 
80 309610 
80 309620 
80 30 9630 
80 30 9640 
80 309650 
80 309660 
80 30 9670 
80 30 9680 
80 309690 
80 309700 
80 309710 
80 30 9720 
80 30 9730 
80 30 9740 
80 309750 
80 309760 
80 30 9770 
80 30 9780 
80 30 9790 
80 309800 
80 309810 
80 30 9820 
80 309830 
80 30 9840 
80 309850 
80 30 9860 
80 309870 
80 30 9880 
80 30 9890 
80 309900 
80 30 9910 
80 30 9920 
80 30 9930 
80 30 9940 
80 30 9950 
80 30 9960 
80 30 9970 
80 30 9980 
80 30 9990 
80 310000 
80 3100 10 
80 3100 20 
80 3 100 30 
80 3100 40 
80 3 100 50 
80 3 100 60 
80 3100 70 
80 3100 80 
80 3 100 90 
80 310100 
80 3 10 1 10 
80 3 10 1 20 
80 3 10 1 30 
80 310140 
80 3 10 1 50 
80 310 160 
80 310170 
80 310180 
80 310 190 
80 310 200 
80 3 10 2 10 



0A40 0000 



0A41 
0A43 
0A44 



7400 FFDB 

7001 

7006 



0A45 4007 
0A46 1010 






0A47 

0A49 



D400 FFDB 
4C80 FFF7 



0A4B 1 4C80 0A40 



* 

* 

* 

MTERM DC 



MDX 
MDX 
MDX 
BSI 
SLA 
STO 
BSC 
* 

TRMXT BSC 

* 



*-* 

XEQSW.O 

* + l 

TRMXT 

CKIO 

16 

XEOSW 

END 



RETURN AODRESS 



I MTERM 



SKIP IF PROG NUT XEQ 

NO XEQ-EXIT ROUTINE ' 
BRANCH TO CK IF I/O OPER 
CLEAR DFT 

* EXECUTION SWITCH 
BRANCH TO END ROUTINE 

RETURN TO USER 



MCTRL - CKIO SUBROUTINE 



* 
THIS SUBROUTINE IS ENTERED PRIOR TO * 
ANY DFT TERMINATION OR SUSPENSION. CKIO* 
WILL PREVENT THE TERMINATION OR * 
SUSPENSION OF THE DFT UNTIL ALL * 
PENDING I/O OPERATIONS HAVE BEEN * 
COMPLETED, EITHER THROUGH AN I/O INTER-* 
RUPT OR A NO RESPONCE TIME-OUT. * 
A DFT IS FREE TO BE TERMINATED WHEN * 
ALL OF THE FOLLOWING CONTROL WORDS ARE* 











* 




ZERO. NTTIM.NLIN 


IT,BY1CR,TIM0N AND 


* 










* 




DTIVS. 




* 










* 




CKIO WILL SET UF 


' A LOOP BETWEEN ITSELF* 










* 




AND THE POLLING 


ROUTINE INTIL THESE 


* 










* 




WORDS ARE ZERO. 




* 










* 
* 
* 




CALLING SEQUENCE 


* 












BSI 


CKIO 












* 








* 










£ 




CALLED ROUTINES 




* 










* 
* 
* 
* 
* 




1. START - MPXDM POLLING ROUTINE 


* 
* 
* 
* 
* 












CALLED SUBROUTINES 












NONE 












* 








* 










* 
* 
* 


POSSIBLE ABORT CONDITIONS 


* 
* 
* 










NONE 












* 








* 










* 


SUBROUTINE ENTRY 


CKIO 


* 










* 
* 


SUBROUTINE EXIT 


CIOXT 6 CKI02+4 


* 

* 


0A4D 





0000 




* 

CKIO 


OC *-* 


RETURN ADORESS 




0A4E 





63FB 








LDX 3 -5 


SET CHECK INDEX 




0A4F 





C700 


FFEF 


CKI01 


LD L3 NTTIM+5 


FETCH 1/0 CONTROL 


IND 


0A51 





4820 








BSC Z 


SKIP IF WORD = 




0A52 





7008 








MDX CKI02 


NON ZERO BRANCH 




0A53 





7301 








MDX 3 1 


SKIP IF ALL WORDS 


CKD 


0A54 





70FA 








MDX CKI01 


CONTINUE CK 




0A55 


1 


6700 


09B7 






LDX L3 CTL1 


RESTORE MLSCF 




0A57 


1 


6F00 


091B 






STX L3 MLSCF 


* ENTRY 




0A59 


1 


4C80 


0A4D 


CIOXT 


BSC I CKIO 


RETURN TO USER 












* 








* 



LOOP THROUGH START TIL I/O NOT BUSY 



80 310 220 
80 310 230 
80 310 240 
80 310 250 
80 310 260 
80 310 270 
80 3 10 2 80 
80 310 290 
80 3 10 300 
80310310 
80 310 320 
80 310 330 
80 310 340 
80 310 350 
80 310 360 
80 310 370 
80 310 380 
80 310 390 
80 310 400 
80 310410 
80 310 420 
80 310 430 
80 3 10 440 
80 310 450 
80 310 460 
80 310470 
80 310 480 
80 310 490 
80 310 500 
80 310 510 
80 310 520 
80 3 10 5 30 
80 310 540 
80310550 
80 310 560 
80310570 
80 310 580 
80310590 
80 310 600 
80310610 
80 310 620 
80 310 630 
80 310 640 
80 310 650 
80 310 660 
80 310670 
80 310 680 
80 310690 
80 310 700 
80 310 710 
80 310 720 
80 310 730 
80 310 740 
80 310 750 
80 310 760 
80 310 770 
80 310 780 
80 310 790 
80 310 800 
80 310 810 
80 310 820 
80310830 
80 310 840 
80 310 850 
80 310 860 
80 310 870 
80 310 880 
80310890 
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* 








* 


80 310900 




0A5B 


1 


6700 


0A4E 


CKI02 


LDX L3 CKIO+1 


SET UP MLSCF TO 




80310910 




0A5D 


1 


6F00 


091B 






STX L3 MLSCF 


♦RETURN TO CKIO 




80 310920 




0A5F 





4C80 


FFF6 






BSC I START 


BRANCH TO START RTN 


80310930 












* 








* 


80 310940 
80 310950 
































* 




MCTRL - TSCTL 


SUBROUTINE 


* 


80 310 960 
80 310970 




















* 












* 








* 


80 310980 












* 




THIS SUBROUTINE 


IS USED TO SET AND 


* 


80 310990 












* 




CLEAR THE MPX TIME SHARE LOCK-IN 


* 


80 311000 












* 




INDICATOR. IX 3 CONTAINS THE VALUE TO 


* 


80 3110 10 












* 




WHICH THE SWITCH 


IS SET. 0=OFF,1=ON. 


* 


80 3110 20 












* 








* 


803110 30 












* 




THE INDICATOR IS 


SET WHEN THE TIME 


* 


803110 40 












* 




SHARE LOCK-IN SWITCH(CE#10 ) I S ON AND 


* 


803110 50 












* 




MPXDM IS NOT IN 1 


i. PAUSE. 


* 


80 3 1 10 60 












# 




THE INDICATOR IS 


CLEARED WHEN THE TIME* 


80 3110 70 












* 




SHARE LOCK-IN SWITCH(CE# 10 ) I S OFF, WHEN* 


803110 80 












* 




MPXDM ENTERS A REQUESTED PAUSE(CE#15) 


,* 


80 3110 90 












* 




WHEN TERMINATION 


OF ON-LINE OPERATIONS* 


80311100 












* 




IS REQUESTED(CE#14)0R WHEN AN ABORT 


* 


80311110 












* 




EXIT IS PERFORMED. 


* 


80311120 












* 








* 


80 3 1 1 1 30 












* 




CALLING SEQUENCE 


* 


80311140 












* 








* 


80311150 












* 




BSI 


TSCTL 


* 


80311160 












* 








* 


80 3 1 1 1 70 












* 




CALLED ROUTINES 




* 


80 3 1 1 1 80 












* 








* 


80 311190 












* 




NONE 




* 


80311200 












* 








* 


80311210 












* 




CALLED SUBROUTINES 


* 


80311220 












* 








* 


80311230 












* 




NONE 




* 


80311240 












* 








* 


80311250 












* 


POSSIBLE ABORT CONDITIONS 


* 


80 311260 












* 








* 


80311270 












* 


NONE 




* 


80 311280 












* 








* 


80 311290 












* 


SUBROUTINE ENTRY 


rSCTL 


* 


80 311300 












* 


SUBROUTINE EXIT 


rscxT 


* 


80 311310 












* 








* 


80311320 
80311330 
































* 








* 


80 311340 




0A61 





0000 




TSCTL 


DC *-* 


RETURN ADDRESS 




80 311350 




0A62 





D010 




* 




STO Al 


SAVE A REG 




80 3 1 1 360 
80311370 




0A63 





C400 


OOBO 






LD L $TSLK 


SAVE TIME SHARE 




80 311380 




0A65 





6F00 


FFE9 






STX L3 ETSST 


SET TIME SHARE STATS WRD 


80 311390 




0A67 





6F00 


OOBO 






STX L3 $TSLK 


SET MPX TIME SHARE 


SW 


80 311400 




0A69 





7300 








MDX 3 


SKIP IF CLEAR TS LOCK SW 


80311410 




0A6A 





7005 








MDX TSCXT 


ELSE EXIT 




80 311420 




0A6B 


1 


4C18 


0A70 






BSC L TSCXT, +- 


EXIT IF TS NOT LOCKED 


80311430 




0A6D 





63FF 








LUX 3 -1 


SET INDEX = -1 




80 311440 




0A6E 





6F00 


0077 


* 




STX L3 $TSST 


SET MPX T/S BUSY = 


-1 


80 311450 
80 311460 




0A70 





C002 




TSCXT 


LD Al 


RESTORE A REG 




80 311470 




0A71 


1 


4C80 


0A61 






BSC I TSCTL 


RETURN TO USER 




80 311480 




0A73 





0000 




Al 

# 




DC *-* 


A REG SAVED 


* 


80 311490 
80 311500 
80 311510 
80311520 
80 311530 
80 311540 












* 




MCTRL - CTLPT 


SUBROUTINE 


* 












* 








* 












* 




CTLPT IS USED TU 


SETUP THE DFT 


* 


80 311550 












* 




EXECUTE/DE-EXECUTE STATUS MESSAGE ,A00 1* 


80 311560 












* 




AND THEN CALL ON 


THE PRINT ROUTINE TO 


*■" 


80311570 




17JUN68 20MAR70 


31JUL70 






PROG ID 


0803-2 


411939 431320 


431327 






PAGE 


9 



DATE 
EC NO. 











- 




OUTPUT 


THAT MESSAGE. 


* 


80311580 












* 








* 


80311590 












* 






CALLING SEQUENCE 


* 


80 311600 












* 








* 


80311610 












* 






BSI CTLPT 


* 


80311620 












* 






DC /OOOX 1=XEQ,0=DXEQ * 


80311630 












* 








* 


80311640 












* 




CALLED 


ROUTINES 


*• 


80311650 












* 








* 


80 311660 












* 




1. 


LOG - MPXDM PRINT ROUTINE 


* 


80 311670 












* 








* 


80 311680 












* 




CALLED 


SUBROUTINES 


* 


80 311690 












* 








* 


80 311700 












* 




NONE 


* 


80311710 












* 








* 


80311720 












* 


POSSIBLE ABORT CONDITIONS 


* 


80311730 












* 








* 


80311740 












* 


NONE 




* 


80 311750 












* 








* 


80 3 1 1 760 












* 


SUBROUTINE 


ENTRY CTLPT 


* 


80311770 












* 


SUBROUTINE 


EXIT CTPXT 


* 


80 311780 












* 








* 


80311790 
80311800 
























* 








* 


80311810 




0A74 





0000 




CTLPT 


DC 


*-* RETURN ADDRESS 




80 311820 












* 










80311830 




0A75 


1 


C480 


0A74 






LD I 


CTLPT FETCH XEQ/DXEQ CONSTANT 


80311840 




0A77 





DO 10 








STO 


MSG1A SET IN MESSAGE STRING 


80311850 




0A78 





C480 


FFF2 






LD I 


DFTID FETCH PROG ID 




80 311860 




0A7A 





1808 








SRA 


8 POSITION 




80311870 




0A7B 





DOOD 








STO 


MSG1B SET IN MESSAGE STRING 


80311880 




0A7C 





4480 


FFF8 


CTLPi 


BSI I 


LOG CALL LOG ROUTINE 




80 311890 




0A7E 


1 


0A85 








DC 


MSGA1 MESSAGE ADDRESS 




80311900 




0A7F 


1 


0A7C 








DC 


CTLPI BUSY RETURN 




80311910 




0A80 





0000 








DC 


0000 TERMINATION TYPE 




80311920 




0A81 


1 


7401 


0A74 


* 




MDX L 


CTLPT, 1 ADJUST RETURN 




80 3119 30 
80311940 




0A83 


1 


4C80 


0A74 


CTPXT 


BSC I 


CTLPT 




80311950 












* 








* 


80 311960 












# 






A001 MESSAGE STRING 


* 


80 311970 












* 








* 


80 311980 




0A85 





0002 




MSGA1 


DC 


/0002 LINE NUMBER/WORD 


COUNT 


80 311990 




0A86 





0000 








DC 


/OOOO HEX/DEC = HEX OUTPUT 


80 312000 




0A87 





A001 








DC 


/A001 MESSAGE ID 




80 3120 10 




0A88 





0000 




MSG1A 


DC 


0000=DX£Q,000 1=XEQ 


80 3120 20 




0A89 





0000 




MSG1B 


DC 


00XX=DFT ID 




803120 30 












* 








* 


80312040 
803120 50 
























* 




MCTRL - LDPRT SUBROUTINE 


* 


803120 60 
80 3 1 20 70 
























* 








* 


803120 80 












* 




LDPRT IS USED TO BUILD DATA MESSAGE 


* 


80 3 1 20 90 












* 




D001.DFT LOAD MESSAGE, AND THEN CALL 


ON* 


80312100 












* 




THE MPXDM PRINT ROUTINE TO OUTPUT THAT* 


80312110 












* 




MESSAGE 


. THIS SUBROUTINE INSERTS THE 


* 


80312120 












* 




FOLLOWING INFORMATION INTO THE MESSAGE* 


80 3 1 2 1 30 












* 




STRING. 


DFT PIU.LOAD ADDRESS AND 


* 


80312140 












* 




RELOCATION FACTOR. 


* 


80312150 












* 








* 


80 312160 












* 






CALLING SEQUENCE 


* 


80 3 1 2 1 70 












* 








* 


80 3 1 2 1 80 












* 






BSI LDPRT 


* 


80312190 












* 








* 


80 312200 












* 




CALLED 


ROUTINES 


* 


80312210 












* 








* 


80312220 












* 




1. 


LOG - MPXDM PRINT ROUTINE 


* 


80312230 












* 








* 


80312240 












* 




CALLED 


SUBROUTINES 


* 


80312250 




17JUN68 20MAR70 
411939 431320 


31JUL70 
431327 






PROG ID 
PAGE 


0803-2 
9A 
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PART NO. 
PAGE 



2246289 
10A 



0A8A 0000 



0A8B 
0A8D 
0A8E 
0A9O 
0A91 
0A93 
0A94 
0A96 
0A97 
0A98 



C480 FFF2 

D010 

C400 FFF2 

DOOF 

C400 OFCE 

DOOD 

4480 FFF8 

0A9B 

0A94 

0000 



0A99 1 4C80 0A8A 



0A9B 





0004 


0A9C 





0000 


0A9D 





D001 


0A9E 





0000 


0A9F 





07FF 


OAAO 





0000 


0AA1 





0000 



NONE 
POSSIBLE ABORT CONDITIONS 
NONE 



SUBROUTINE ENTRY 
SUBROUTINE EXIT 



* 
* 

* 

* 

* 

* 

* 

LDPRT DC 

LD 
STO 
LD 
STO 
LD 
STO 
LDPR1 BSI 
DC 
DC 
DC 

LDPXT BSC 

LDMSG DC 
DC 



LDPRT 
LDPXT 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
— * 
* 



*-* 

I DFTID 
LDM1 

L DFTID 
LDM2 

L RELFC 
LDM3 

I LOG 
LDMSG 
LDPR1 
/OOOO 

I LDPRT 



RETURN ADDRESS 



FETCH PID OF LOADED DFT 
STORE IN MESSAGE STRING 
FETCH ACTIAL LOAD ADDRS 
STORE IN MESSAGE STRING 
FETCH RELOCATION FACTOR 
STORE IN MESSAGE STRING 
CALL LOG ROUTINE 
MESSAGE STRING ADDRESS 
BUSY RETURN ADDRESS 
TERMINATION TYPE 



RETURN TO USER 



MESSAGE STRING 



DC 
DC 
DC 
DC 
DC 



/0004 WORD COUNT 

/OOOO HEX/DEC SW # HEX 

/D001 MESSAGE ID 

*-* DFT PIO 

2047 ASSM LOAD ADDRESS 

*-* ACTUAL LOAD ADDRESS 

#-* RELOCATION FACTOR 



LDM1 

LDM2 
LDM3 

* 
***************##**********#*#*************** 

* MPXDM - TERMINATION ROUTINE * 

********************************************* 



* 



** EXIT ** 



THIS ROUTINE IS CALLED BY THE CONTROL * 
ROUTINE WHEN C.E.SW 14 IS TURNED ON, * 
AND VIA THE ABORT XFER VECTOR BY THE * 
ABORT ROUTINE WHEN AN UNRECOVERABLE * 
ERROR IS DETECTED. THE ROUTINE PRINTS * 
MESSAGE C002.AND WHEN ALL C.E.SWI TCHES* 
ARE TURNED OFF, CALLS THE MPX EXIT * 
ROUTINE TO TERMINATE ON LINE DIAG 
OPERATION. 



CALLING SEQUENCE 
BSC L EXIT 
CALLED ROUTINES 

1. LOG - MPXDM PRINT ROUTINE 

2. LDMON - MPX D.P.MON LOAD RTN 

CALLED SUBROUTINES 



NONE 



POSSIBLE ABORT CONDITIONS 



80312260 
80 312270 
80 312280 
80312290 
80 312300 
80312310 
80 312320 
80312330 
80312340 
80312350 
80312360 
80 312370 
80312380 
80312390 
80312400 
80312410 
80 312420 
80 312430 
80 312440 
80312450 
80 312460 
80 312470 
80 312480 
80312490 
80312500 
80312510 
80312520 
80312530 
80 312540 
80312550 
80 312560 
80312570 
80312580 
80 312590 
80 312600 
80 312610 
80312620 
80312630 
80 312640 
80312650 
80 312660 
80 312670 
80312680 
80312690 
80312700 
80312710 
80312720 
80312730 
80 312740 
80 312750 
80312760 
80312770 
80312780 
80312790 
80312800 
80312810 
80 312820 
80312830 
80 312840 
80312850 
80 312860 
80 312870 
80 312880 
80 312890 
80312900 
80312910 
80312920 
80312930 



0AA2 
0AA4 
0AA5 1 



4480 FFF8 

1 OABO 
0AA2 



0AA6 OOOO 



0AA7 1 



OCOO 0A36 
1008 



0AA9 
OAAA 1 4C20 0AA7 
OAAC 6C00 FFFE 
OAAE 4480 00B6 



OABO OOOO 
0AB1 OOOO 
0AB2 C002 



* NONE 
* 

* ROUTINE ENTRY EXIT 

* ROUTINE EXIT MONXT 

* 

************************************* 
# 

EXIT BSI 

DC 

DC 

DC 
EXITA XIO 

SLA 

BSC 

STX 
MONXT BSI 
* 
* 
* 
MSGC2 DC 

DC 

DC 



* 
* 

******** 



I LOG CALL LOG RTN-MSG C002 

MSGC2 MESSAGE ADDRESS 

EXIT BUSY RETURN 

OOOO TERMINATION TYPE 

L CESWS SENSE S/P AND CE SWS 

8 SAVE CE SKS ONLY 

L EXITA, Z BRANCH IF ANY SWITCH ON 

L MPXOP SET MPX IN OP IND 

I $EXIT ELSE CALL MPX EXIT RTN 

MESSAGE STRING - C002 

MODIFIER WORD COUNT 

HEX/DEC SW 

/C002 MESSAGE ID 



******* ************************************ ** 

* MPXDM - START ROUTINE * 

****************************** ^^^.^^J):*:** ****** 

* * 

* ** STRT ** * 



THE START ROUTINE IS USED TO ALLOCATE * 
ALTERNATE RUNNING TIME TO MPXDM AND * 
THE DFT. CONTROL IS PASSED TO THE * 
PROPER PROGRAM ACCUKUjNG TU THE PULL * 
SWITCH SETTING. THE POLL SWITCH IS * 
COMPLEMENTED EACH TIME STRT IS ENTERED* 

WHEN MPXDM IS POLLED .CONTROL IS PASSED* 
TO THE MCTRL ROUTINE VIA THE MPXDM * 
MLSCF ENTRY. MCTRL WILL THEN PERFORM * 
THOSE OPERATION SPECIFIED BY THE * 
OPERATOR IN THE CE SWITCHES. * 

* 
WHEN THE DFT IS POLLED, 1 OF 3 OPERA- * 
TIONS WILL OCCUR. * 

* 
1. PENDING DFT I/O INTERRUPT. * 

STRT WILL INITIALIZE FOR RECEIPT OF * 
NO RESPONCE TIME OUT INTERRUPTS. STRT * 
THEN RETURNS TO THE DFT AT THE ADDRS * 
SPECIFIED IN ITS MLSCF FIELD * 



2. LOG RETURN ADDRESS PENDING. 

IF THE DFT ENTERED STRT FOLLOWING A 
LOG CALL WHICH SPECIFIED AN END OF 
MESSAGE RETURN ADDRESS, THEN STRT WIL 
BRANCH TO THAT ADDRESS. 

3. UNCONDITIONAL STRT CALL 
WHEN THE DFT CALLS ON STRT WITH 
NEITHER A PENDING I/O INTERRUPT OR 
LOG RETURN ADDRESS, THEN STRT WILL 
SEARCH THE DFT MLSCF TABLE AND BRANCH 
TO THE LOCATION SPECIFIED BY THE 1ST 
NON ZERO ENTRY. EACH TIME A BRANCH IS 
TAKEN, THAT ENTRY IS CLEARED FROM THE 
MLSCF TABLE 

CALLING SEQUENCE 



* 

* 

L* 

* 
* 

* 
* 

* 
* 



80312940 
80312950 
80312960 
80 312970 
80 312980 
80 312990 
80 313000 
80 3130 10 
80 3130 20 
80 3130 30 
80 3 1 30 40 
80 3130 50 
30 3 1 30 60 
80 3 1 30 70 
80 3 1 30 80 
80 3130 90 
80 313100 
80313110 
80313120 
80313130 
80313140 
80 313150 
80313160 
80 313170 
80313180 
80313190 
80 313200 
80 313210 
80313220 
80 313230 
80313240 
80 313250 
80 313260 
80313270 
80 313280 
80 313290 
80 313300 
80 313310 
80313320 
80 313330 
80313340 
80313350 
80B13360 
80 313370 
80313380 
80 313390 
80313400 
80 313410 
80 313420 
80 313430 
80 313440 
80 313450 
80 313460 
80 313470 
80 313480 
80 313490 
80313500 
80 313510 
80313520 
80 313530 
80313540 
80313550 
80313560 
80313570 
80313580 
80313590 
80 313600 
80313610 



DATE 
EC NO. 



17JUN68 
411939 



20MAR70 
431320 



31JUL70 
431327 



PROG ID 
PAGE 



0803-2 
10 



DATE 
EC NO. 



17JUN68 
411939 



20MAR70 
431320 



31JUL70 
431327 



PROG ID 
PAGE 



0803-2 
10A 



| | II (I II II I II I I I 



II I I I I 



III I 



II 



I I 



<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 



< ( 
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* 










* 


80 313620 










* 








BSC I 


START * 


80313630 










* 








C( START) = STRT * 


80 313640 










* 










* 


80313650 










# 




CALLED 


ROUTINES 


* 


80 313660 










* 










* 


80 313670 










* 




SPECIFIED IN MPXD* 


1 OR DFT MLSCF TABLE * 


80313680 










* 










* 


80313690 










* 




CALLED 


SUBROUTINES 


* 


80 313700 










* 










* 


80313710 










* 




SPECIFIED IN MPXDM 


[ OR DFT MLSCF TABLE * 


80 313720 










* 










* 


80313730 










* 


POSSIBLE 


1 ABORT CONDITIONS * 


80313740 










* 










* 


80313750 










# 


NONE 






* 


80 313760 










* 










* 


80 3L3770 










* 


ROUTINE 


ENTRY STRT 


* 


80 313780 










* 


ROUTINE 


EXIT STRXT 


* 


80313790 










* 










* 


80 313800 










********************************************* 


80313810 










* 










* 


80313820 






0AB3 6943 




STRT 


STX 


1 


STRTG+1 


SAVE INDEX REG 1 


80313830 






0AB4 6A44 








STX 


2 


STRTG+3 


SAVE INDEX REG 2 


80 313840 






0AB5 6500 


FFD2 






LDX 


LI 


EDITA 


SET MPXDM COMN INDEX 


80313850 






0AB7 1010 








SLA 




16 


CLEAR DFT IN 


80 313860 






0AB8 D12B 








STO 


1 


DFTOP-EDITA *OPERATION INDICATOR 


80313870 






0AB9 CUE 








LD 


1 


STATS-EDITA SET START 


80 313880 






OABA E859 








OR 




K0200 


♦ROUTINE STATUS 


80313890 






OABB DUE 








STO 


1 


STATS-EDITA *BIT - BIT 6 


80 313900 






OABC 627F 








LDX 


2 


CON 


SET MPX FIXED AREA REF 


80313910 






OABD 0AB3 








XIO 


2 


SMK1-C0N 


MASK LEVELS 0-13 


80 313920 






OABE 0AB5 








XIO 


2 


$MK2-C0N 


MASK LEVELS 14 - 23 


80 313930 






OABF 7400 


FFEB 






MDX 


L 


NLINT f O 


SKIP IF NO INTRPT EXPCTED 


80 313940 






0AC1 703F 








MDX 




STRTF 


BRANCH IF INTRPT EXPCTED 


80 313950 






0AC2 OAAF 




STRTA 


XIO 


2 


$UMK1-C0N 


UNMASK LEVELS 0-13 


80 313960 






0AC3 0AB1 








XIO 


2 


SUMK2-C0N 


UNMASK LEVELS 14 - 23 


80313970 






0AC4 C04D 








LD 




POLL 


FETCH POLL SWITCH 


80 313980 






0AC5 F04F 








EOR 




ONE 


COMPLEMENT 


80313990 






0AC6 D04B 








STO 




POLL 


SAVE THE UPDATE 


80 314000 






0AC7 C120 








LD 


1 


DFTID-EDITA FETCH DFT PST ADDRS 


80 314010 






0AC8 1 7400 


0B12 






MDX 


L 


POLL.O 


SKIP IF DFT POLL ACTIVE 


80 3140 20 






OACA 7001 








MDX 




*+l 


ELSE BRANCH 


80 3140 30 






OACB 7004 








MDX 




STRTB-1 


CONTINUE BRANCH 


803140 40 






OACC 7400 


FFDC 






MDX 


L 


LOGAD.O 


DFT LOG PENDING 


80 3140 50 






OACE 70F5 








MDX 




STRTA+2 


YES - BRANCH 


803140 60 






OACF C121 








LD 


1 


DMBGN-EDITA FETCH MPXDM PST ADDRS 


803140 70 






OADO D108 








STO 


1 


ACTIV-EDITA SET ACTIVE PID WORD 


80 3140 80 






0AD1 6780 


FFDA 


STRTB 


LDX 


13 


ACT IV 


SET IX # ACTIVE PST ADDR 


80 3140 90 






0AD3 730A 








MDX 


3 


10 


IX # MLSCF ADDRESS 


80314100 






0AD4 1 7400 


0B12 






MDX 


L 


POLL.O 


SKIP IF DFT POLL ACTIVE 


80314110 






0AD6 7009 








MDX 




STRTC 


DM POLL BRANCH 


80 314120 






0AD7 C109 








LD 


1 


XEOSW-EDITA FETCH DFT XEQ SWITCH 


80314130 






0AD8 4818 








BSC 




+- 


SKIP IF DFT XEOING 


80314140 






0AD9 70E8 








MDX 




STRTA 


DFT NOT OPERATING-BRANCH 


80314150 






OADA 7400 


FFEB 






MDX 


L 


NLINT.O 


SKIP IF NO INTRPT EXPCTD 


80 314160 






OADC 7003 








MDX 




STRTC 


EXPCT INTERRUPT - BRANCH 


80314170 






OADD 7400 


FFDC 






MDX 


L 


LOGAD.O 


SKIP IF LOG TERM 0000 


80314180 






OADF 700A 




* 




MDX 




STRTD 


PRINT RETURN BRANCH 


80314190 
80 314200 










* 




SEARCH MLSCF TABLE 


FOR ENTRIES 


80314210 










* 












80 314220 






OAEO C300 




STRTC 


LD 


3 





FETCH MLSCF ENTRY 


80314230 






0AE1 1 F400 


091C 






EOR 


L 


TERM 


CK FOR TERMINATOR 


80 314240 






0AE3 1 4C18 


0AC2 






BSC 


L 


STRTA, +- 


BR IF TERMINATOR 


80314250 






0AE5 C300 








LD 


3 





FETCH MLSCF ENTRY 


80 314260 






0AE6 1 4C20 


OAEO 






BSC 


L 


STRTE.Z 


BRANCH IF ADDRESS 


80 314270 






0AE8 7301 








MDX 


3 


1 


INCR MLSCF INDEX 


80 314280 






0AE9 70F6 








MDX 




STRTC 


BRANCH TO CK NEXT ENTRY 


80314290 




DATE 


17JUN68 20MAR70 


31JUL70 








PROG ID 


0803-2 


EC NO. 


411939 431320 


431327 








PAGE 


11 



DATE 
EC NO. 



OAEA 6700 


FFDC 


STRTC 


l LDX 


L3 LOGAD SET IX = ADRS LOGAD 


80 314300 




OAEC C300 






LD 


3 FETCH PRINT RTRN ADRS 


80 314310 




OAED D012 




STRTE 


: STO 


STRXT+1 STORE ADDRESS IN EXIT 


80314320 




OAEE 1010 






SLA 


16 CLEAR MLSCF/PRINT 


80314330 




OAEF D300 




* 


STO 


3 * ENTRY 


80314340 
80 314350 








* 


MAIN 


LINE TIME OUT - DELAY 450US 


80 314360 




' 




* 






80 314370 




OAFO 635A 






LDX 


3 90 SET DELAY COUNT 


80314380 




0AF1 73FF 






MDX 


3 -1 * 450US DELAY 


80314390 




0AF2 70FE 






MDX 


*-2 * LOOP 


80 314400 




0AF3 CUE 






LD 


1 STATS-EDITA CLEAR START 


80 314410 




0AF4 F01F 






EOR 


K0200 *ROUTINE STATUS 


80 314420 




0AF5 DUE 






STO 


1 STATS-EDITA *BIT - BIT 6 


80314430 




0AF6 6500 


0000 


STRTG 


LDX 


LI *-* RESTORE INDEX REG 1 


80314440 




0AF8 6600 


0000 




LDX 


L2 *-* RESTORE INDEX REG 2 


80 314450 




OAFA 1 7400 


0B12 




MDX 


L POLL.O SKIP IF DFT POLL 


80 314460 




OAFC 7002 






MDX 


STRXT 


80314470 




OAFD 6C00 


FFFD 


* 


STX 


L DFTOP SET DFT IN UP INDICATOR 


80 314480 
80 314490 




OAFF 4C00 


0000 


STRXT 


BSC 


L *-* BRANCH TO USER 


80 314500 
80 314510 








* 


THIS 


SECTION IS ENTERED WHEN A DFT * 


80 314520 








* 


INTERRUPT IS EXPECTED. * 


80314530 








* 




* 


80 314540 




0B01 7400 


FFED 


STRTF 


MDX 


L T1M0N.Q SKIP IF TIMER NOT ON 


80 314550 




0B03 70BE 




* 


MDX 


STRTA TIMER RUNNING - BRANCH 

* 


80 314560 
80314570 








* 


INCREMENT AREA BUSY IF REQUIRED * 


80 314580 








* 




* 


80 314590 




0B04 7400 


FFEC 




MDX 


L 8YICR.0 SKIP IF BUSY NOT INCRMNTD 


80 314600 




0B06 7005 






MDX 


STRTH BUSY INCREMENTED - BRANCH 


80314610 




0BO7 C110 






LD 


1 ARBSY-EDITA FETCH AREA BUSY ADDRESS 


80 314620 




OB08 D001 






STO 


*+l SET IN INCR INSTR 


80 314630 




0B09 7401 


0000 




MDX 


L *-*,l INCR AREA BUSY INDICATOR 


80314640 




OBOB D11A 




* 


STO 


1 BYICR-EDITA SET BUSY INCRMNTD IND 


80 314650 
80 314660 








* 


START NO RESPOMCE TIME OUT * 


80 314670 








* 




* 


80 314680 




OBOC C10C 




STRTH 


LD 


1 TIMCT-EDITA FETCH DIAG TIMER COUNT 


80 314690 




OBOD D118 




* 


STO 


1 NTTIM-EDITA TIME OUT INDICATOR 


80 314700 
80 314710 




OBOE C004 






LD 


TORTN SET TMOUT RTN ADDRS IN 


80 314720 




OBOF D233 




* 


STO 


X2 $CBAS-CON *$CBAS TO START TIMEOUT 


80 314730 
80 314740 




0B10 D11B 






STO 


1 TIMON-EDITA SET TIMER RUNNING IND 


80314750 




0B11 70B0 




* 
* 
* 


MDX 


STRTA BRANCH TO POLL 

* 
CONSTANTS * 


80 314760 
80 314770 
80 314780 
80 314790 




0B12 0001 




POLL 


DC 


1 POLL SWITCH 


80 314800 




0B13 1 0B16 




TORTN 


DC 


TMOUT TMOUT RTN ADDRESS 


80314810 




0B14 0200 




K0200 


DC 


/0200 CONSTANT HEX 0200 


80 314820 




0B15 0001 




ONE 
* 


DC 


1 CONSTANT 1 


80314830 
80 314840 








********************************************* 


80 314850 








* 


MPXDM - TIME-OUT ROUTINE * 


80 314860 








********************* *************** ****** *** 


80 314870 








* 




* 


80 314880 








* 




** TMOUT ** * 


80 314890 








* 




* 


80 314900 








* 


THIS 


ROUTINE IS USED TO 'TIME' DFT I/O* 


80314910 








* 


OPERATIONS. IT IS CALLED BY THE MPX * 


80 314920 








* 


NO RESPONCE ROUTINE EACH TIME A 2 SEC * 


80 314930 








* 


RESPONCE PERIOD HAS ELAPSED. IF AN I/O* 


80 314940 








* 


INTERRUPT HAS NOT BEEN RECEIVED BEFORE* 


80 314950 








* 


THE 3RD CALLI6 SEC PERIOD) THEN TMOUT * 


80 314960 








* 


ASSUMES A LOST INTERRUPT CONDITION AND* 


80 314970 
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0B16 0000 

0B17 7401 FFEA 
0B19 7004 
0B1A 1 4400 0D3F 
0B1C 6C00 FFE1 

0B1E 1 4C80 0B16 



CALLS ON THE RESTR ROUTINE TO RESTORE 
THE MPX/MPXDM INTERFACE. 

CALLING SEQUENCE 



BSI I $CBAS 



CALLED ROUTINES 



RESTR 



INTRPT CONTROL RESTORE 



CALLED SUBROUTINES 



NONE 



POSSIBLE ABORT CONDITIONS 



NONE 

ROUTINE ENTRY 
ROUTINE EXIT 



TMOUT 
TIMXT+6 



******#**#********************************#*# 



TMOUT DC 
* 

MDX L 

MDX 

BSI L 

STX L 



*-* RETURN ADDRESS 

NTTIM.l SKIP IF 2ND ENTRY 

TIMXT NOT TIME OUT BRANCH 

RESTR CALL RESTORE ROUTINE 

TOIND SET TIMED OUT INDICATOR 

RETURN TO MPX 



TIMXT BSC 1 TMOUT 

* * 
********************************************* 

* MPXDM - REQUEST DEVICE ROUTINE * 

********************************************* 

* * 
** RQDV ** * 



* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 



ROUTINE RQDV IS USED TO VERIFY THAT 
ALL REQUIRED CONDITIONS FOR ON-LINfc 
OPERATION ARE MET BEFORE ASSIGNING 
THE REQUESTED DEVICE TO THE DFT FOR 
OPERATION. THE FUNCTIONS PERFORMED BY 
THIS ROUTINE ARE AS FOLLOWS. 



IS * 

* 

* 



1. VERIFY THAT THE REQUESTED DEVICE 

(DDEF) HAS BEEN EDITED IN MPXDM. 

2. VERIFY THAT THE REQUESTED DEVICE 

NOT ALREADY ASSIGNED TO THE DFT. 

3. VERIFY THAT THE SAME DEVICE IS RE 

QUESTED ON EACH REQDV CALL (SAME AREA* 

CODE AND MODIFIER). * 

A. IN THE CASE OF MULTIPLE DEVICES * 

WITH THE SAME AREA CODE BUT DIFFE-* 

RENT MODIFIERS, A NEW DEVICE MAY BE* 

REQUESTED FOR TEST ONLY AFTER A * 

DXEQ PROGRAM FUNCTION HAS BEEN * 

PERFORMED. * 

4. VERIFY THAT THE AREA CODE EDITED IN * 

MPXDM FOR THE REQUESTED DDEF IS A * 

LEGAL DEVICE FOR THE REQUESTING DFT.* 

5. VERIFY THAT THE REQUESTED DEVICE IS * 

DEFINED IN THE MPX SYSTEM. 
6. VERIFY THAT THE INTERRUPT LEVEL 
SPECIFIED IN THE DDEF IS LEGAL. 
7. VERIFY THAT THE INTERRUPT LEVEL FOR 
THE REQUESTED DEVICE IS UNMASKED. 



80 314980 
80 314990 
80 315000 
80 3150 10 
803150 20 
80 3150 30 
80 315040 
80 3150 50 
80 3150 60 
80 3150 70 
80 3150 80 
803150 90 
80315100 
80315110 
80315120 
80315130 
80315140 
80315150 
80 315160 
80315170 
80 315180 
80315190 
80315200 
80315210 
80315220 
80 315230 
80315240 
80315250 
80 315260 
80 315270 
80 315280 
80315290 
80 315300 
80315310 
80315320 
80315330 
80 315340 
80315350 
80315360 
80315370 
80315380 
80 315390 
80 315400 
80315410 
80 315420 
80315430 
80 315440 
80 315450 
80 315460 
80 315470 
80 315480 
80 315490 
80 315500 
80315510 
80 315520 
80315530 
80315540 
80315550 
80315560 
80315570 
80315580 
80315590 
80 315600 
80315610 
80 315620 
80 315630 
80315640 
80 315650 



8. VERIFY THAT THE REQUESTED DEVICE IS * 

OFF LINE IF IT CANNOT BE SHARED. * 

IF ITEMS 1 THROUGH 8 ABOVE ARE FOUND * 

TO BE CORRECT, THEN RQDV PERFORMS THE * 

FOLLOWING OPERATIONS. * 

* 

1. ASSIGNS THE DEVICE TO THE DFT BY *■ 

SETTING BO IN THE DDEF, AND BY * 

STORING THE REQUESTED DEVICE AREA * 

CODE AT THE DFT DVA ADDRESS. * 

2. SET THE INTERRUPT XFER VECTOR, IN THE* 

MPX DEVICE TABLE FOR THE REQUESTED * 
DEVICE, TO POINT TO MPXDM. 

3. INCREMENT THE MPX VARIABLE CORE 
I/O BUSY INDICATOR. 

4. RETURN TO THE DFT. 



CALLING SEQUENCE 

BSI I REQDV 
DC ADDRS OF BUSY 
DC ADDRS OF DDEF 
DC ADDRS OF DVA 
DC ADDRS OF TERM 
C(REQDV) = RQDV 

CALLED ROUTINES 

1. IOSET - MPX SET AREA BUSY RTN 

2. ABORT - MPXDM ERROR ABORT RTN 

3. RLDV - RELEASE DEVICE RTN 



CALLED SUBROUTINES 

1. CHDCK - CK SHARED CHANNEL DEV. 
POSSIBLE ABORT CONDITIONS 



CODE 



CONDITION 



0B20 0000 



* E010 * REQUESTED DDEF NOT DEFINED IN 

* MPXDM EDIT. 

* E011 * DEVICE IS ALREADY ASSIGNED TO 

* THE DFT. 

* E012 * A DIFFERENT DEVICE WAS REQSTED 

* WITHOUT D-EXECUTING THE PRESENT 

* OPERATION. 

* E013 * THE AREA CODE EDITED FOR THE 

* REQUESTED DDEF IS NOT A LEGAL * 

* DEVICE FOR THE REQUESTING DFT. * 

* E014 * REQUESTED DEVICE IS NOT DEFINED * 

* IN THE MPX SYSTEM * 

* E015 * AN ILLEGAL INTERRUPT LEVEL WAS * 

* SPECIFIED IN THE DDEF. * 

* E016 * INTERRUPT LEVEL FOR THE REQUESTD* 

* DEVICE IS MASKED. * 

* E017 * REQUESTED DEVICE IS ON-LINE. * 

* E018 * AN ILLEGAL CHANNEL WAS SPECIFIED* 

* IN THE DDEF. * 

* * 

* ROUTINE ENTRY RQDV * 

* ROUTINE EXIT RQEXT+6 * 

* * 
*******************************************$$ 

* * 
RQDV DC *-* ENTRY POINT 

* 



80315660 
80 315670 
80315680 
80 315690 
80315700 
80315710 
80315720 
80315730 
80 315740 
80 315750 
80 315760 
80315770 
80 315780 
80315790 
80 315800 
80315810 
80315820 
80 315830 
80315840 
80315850 
80 315860 
80315870 
80315880 
80 315890 
80 315900 
80 315910 
80315920 
80 315930 
80315940 
80 315950 
80 315960 
80315970 
80315980 
80 315990 
80 316000 
80 316010 
80 3160 20 
80 3160 30 
803160 40 
80 3160 50 
80 3160 60 
80 3160 70 
803160 80 
80 3160 90 
80316100 
80316110 
80316120 
80316130 
80316140 
80316150 
80316160 
80316170 
80316180 
80 316190 
80 316200 
80316210 
80316220 
80 3162 30 
80316240 
80 316250 
80 316260 
80316270 
80316280 
80 316290 
80 316300 
80316310 
80316320 
80 316330 



DATE 
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20MAR70 
431320 
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0B21 
0B23 
0B25 
0B27 
0B29 
0B2A 
0B2B 
0B2C 
0B2E 
0B2F 
0B31 
0B33 
0B34 
0B36 
0B37 
0B39 
0B3A 
0B3C 



6D00 
6E00 
6500 
6600 
1010 
D12B 
CUE 
ECOO 
DUE 
6780 
C780 
D205 
7400 
7017 
6580 
C101 
F400 
4C20 



0C3E 
0C40 
FFD2 
1233 



0C45 

0B20 
0001 

FFE6 

FFE5 

091C 
0B42 



0B3E 4480 FFE7 
0B40 E010 
0B41 0001 



0B42 
0B43 
0B45 
0B46 
0B48 
0B49 
0B4B 
0B4C 
0B4D 
0B4E 
0B50 
0B51 
0B52 
0B53 
0B54 
0B56 
0B57 
0B58 



C101 

F780 0001 

1804 

4C20 0B4C 

7101 

6D00 0C49 

7004 

7102 

70EB 

6580 FFE6 

C100 

D205 

C101 

D206 

C780 0001 

D207 

4810 

700F 



6C00 0D3E 
4400 OCDD 
0000 



0B59 C301 
0B5A D004 
0B5B 1 
0B5D 1 
0B5F 
0B60 1 091C 
0B61 1010 
0B62 1 D400 0D3E 

0B64 4480 FFE7 
0B66 E011 
0B67 0003 

0B68 F100 
0B69 1804 
0B6A 1 4C18 0B70 



0B6C 4480 FFE7 
0B6E E012 
0B6F 0003 



RQDVB 



STX LI RQEXT+1 SAVE IX 1 

STX L2 RQEXT+3 SAVE IX 2 

LDX LI EDITA SET MPXDM HCCA INDEX 

LDX L2 EXTAD SET ABORT MESSAGE INDEX 

SLA 16 CLEAR DFT IN 

STO 1 DFTOP-EDITA OPERATION INDICATOR 

LD 1 STATS-EDITA SET INTERFACE 

OR L K8000 * STATUS WORD 

STO 1 STATS-EDITA * BIT 

LDX 13 RQDV 1X3 = ADDRS CALL STRING 

LD 13 1 FETCH CALL DDEF 

STO 2 ABM2-EXTAD SAVE IN ABORT MESSAGE 

MDX L ETPTR.O SKIP IF 1ST REQUEST 

MDX RQDVD NOT 1ST REQUEST-BRANCH 

LDX II ETADR 1X1 = MPXDM EDIT TBL ADRS 

RQDVA LD 11 FETCH DDEF FROM TABLE 

EOR L TERM CK FOR TERMINATOR 

BSC L RQDVB, Z BR IF NOT TERMINATOR 

* 

BSI I ABORT ABORT EXIT 

DC /E010 MID-UNDEFINED DDEF 

DC 1 WORD COUNT 

1 FETCH DDEF 

1 CK IF TBL DDEF=CALL DDEF 

4 REMOVE CHANNEL CHARACTER 

L RQDVCZ BRANCH IF NOT THE SAME 

1 1 DDEFS CMPR. ADJUST IX 

LI TBPTR SAVE DDEF ADDRESS 

RQDVD&2 CONTINUE BRANCH 

1 2 INCR SEARCH IX 

RQDVA CONTINUE SEARCH 

II ETPTR IX1=0M DDEF ADDRESS 

FETCH PREVIOUS DDEF 
ABM2-EXTAD SAVE IN ABORT MESSAGE 

1 FETCH AREA CODE 
ABM3-EXTAD SAVE IN ABORT MESSAGE 
1 FETCH CALL DDEF 
ABM4-EXTAD SAVE IN ABORT MESSAGE 

SKIP IF DEV ALREADY RQSTD 
RQDVF NOT REQUESTED-BRANCH 

* 
E ALREADY REQUESTED. RELEASE * 
BORT. * 

* 
3 1 FETCH DDEF ADDRESS 

RQDVE SET IN RELEASE CALL 
L ENDSW SET END SWITCH 
L RLDV CALL RELEASE DEV RTN 
*-* DDEF ADDRESS 
TERM TERMINATOR ADDRESS 
16 * CLEAR 

L ENDSW * END SWITCH 



RQDVC 

RQDVD 



LD 

EOR 

SRA 

BSC 

MDX 

STX 

MDX 

MDX 

MDX 

LDX 

LD 

STO 

LD 

STO 

LD 

STO 

BSC 

MDX 

DEVIC 
AND A 



1 

13 



1 
2 
1 
2 
13 
2 



RQDVE 



LD 

STO 

STX 

BSI 

DC 

DC 

SLA 

STO 

BSI 
DC 

DC 



I ABORT 
/E011 
3 



ABORT EXIT 
MID-DEVICE 
WORD COUNT 



SAAIGNED 



* 
RQDVF 



EOR 1 
SRA 4 
BSC L RQDVG.+- 



CK IF DDEF SAME AS LAST 
REMOVE CHANNEL BITS 
BRANCH IF DDEF SAME 



MULTIPLE DEVICES REQUESTED-ABORT 



DATE 
EC NO. 



17JUN68 
411939 



20MAR70 
431320 



BSI 

DC 
DC 



31JUL70 
431327 



I ABORT ABORT EXIT 

/E012 MID-MULTIPLE REQUESTS 
3 WORD COUNT 

* 



80 316340 
80 316350 
80 316360 
80316370 
80 316380 
80 316390 
80 316400 
80316410 
80 316420 
80 316430 
80 316440 
80 316450 
80 316460 
80 316470 
80 316480 
80 316490 
80 316500 
80316510 
80 316520 
80316530 
80 316540 
80316550 
80 316560 
80 316570 
80316580 
80 316590 
80 316600 
80 316610 
80 316620 
80316630 
80 316640 
80316650 
80 316660 
80 316670 
80316680 
80 316690 
80 316700 
80316710 
80 316720 
80 316730 
80 316740 
80316750 
80316760 
80316770 
80316780 
80 316790 
80316800 
80 316810 
80316820 
80 316830 
80 316840 
80 316850 
80316860 
80 316870 
80316880 
80316890 
80 316900 
80316910 
80 316920 
80 316930 
80 316940 
80 316950 
80 316960 
80 316970 
80316980 
80 316990 
80 317000 
80 3 1 70 10 
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* 


UUfcl 


- UK. VERIFY C 


ORRECT AREA CODE * 


803170 20 








V 






* 


80 3170 30 






0B70 C480 FFF2 


RQDVG LD 


I DFTID 


FETCH PROG ID 


80 3 1 70 40 






0B72 1808 




SRA 


8 


RIGHT JUSTIFY 


80 3170 50 






0B73 D001 




STO 


*+l 




80 3 1 70 60 






0B74 6600 0000 




LDX 


L2 *-* 


IX2=ADJUSTED PIO 


80 3 1 70 70 






0B76 1 C600 0C64 




LD 


L2 ACTAT 


FETCH TABLE ADDRESS 


80 3 1 70 80 






0B78 D001 




STO 


* + l 




80 3170 90 






0B79 6600 0000 




LDX 


L2 *-* 


IX2=AC TABLE ADDRESS 


80317100 






0B7B 1 4C20 0B85 




BSC 


L RQDVH.Z 


BRANCH IF DEFINED P1D 


80317110 






0B7D C480 FFF2 




LD 


I DFTID 


FETCH PROG PID 


80317120 






0B7F 1 D400 1238 


# 


STO 


L ABM2 


SAVE FOR POSSIBLE ERROR 


80 317130 
80317140 






0B81 4480 FFE7 




BSI 


I ABORT 


CALL ERROR ABORT RTN 


80317150 






0B83 E048 




DC 


/E048 


ERR CODE-UNDIFINED PID 


80317160 






0B84 0001 




DC 


1 


WORD COUNT 


80317170 






0B85 C200 


RQDVF 


1 LD 


2 


FETCH AREA CODE 


80317180 
80 317190 






0B86 1 B400 091C 




CMP 


L TERM 


CK IF TERMINATOR 


80 317200 






0B88 1000 
0B89 7004 


* 


NOP 
MDX 


RQDVI 


* NOT 

* TERMINATOR 

* 


80317210 
80317220 
80 3172 30 








* 


ILLEGAL AREA CODE 


. ABORT * 


80 317240 






0B8A 4480 FFE7 




BSI 


I ABORT 


* 
ABORT EXIT 


80317250 
80 317260 






0B8C E013 




DC 


/E013 


MID-ILLEGAL AREA CODE 


80 317270 






0B8D 0002 


* 


DC 


2 


WORD COUNT 


80 317280 














80317290 






0B8E B101 


RQDVI 


CMP 


1 1 


CK IF AC EDITED 


80 317300 






0B8F 1000 




NOP 




* NOT CORRECT 


80317310 






0B90 7001 




MDX 


*+l 


* AREA CODE 


80317320 






0B91 7002 




MDX 


RQDVJ 


AC FOUND-BRANCH 


80 3 1 7 3 30 






0B92 7202 




MDX 


2 2 


INCR TABLE INDEX 


80317340 






0B93 70F1 




MDX 


RQDVH 


CONTINUE SEARCH 


80317350 






0B94 7201 


RQDVJ 


MDX 


2 1 


ADJUST IX 2 


80 317360 






0B95 C200 




LD 


2 


FETCH MPX FIXED AREA ADRS 


80317370 






0B96 1001 




SLA 


1 


CLEAR POSSIBLE SIGN BIT 


80317380 






0B97 1801 




SRA 


1 


RESTORE POSITION 


80 317390 






0B98 D02B 


* 


STO 


Ll&l 


SAVE FOR LDX 


80317400 
80317410 






0B99 1 F400 0CD9 




EOR 


L D2790&1 


TEST IF ADDR FOR 2790 


80 317420 






0B9B 1 4C20 0BC3 


* 


BNZ 


LI 


BRANCH IF NO 


80 317430 
80 317440 








* SET-UP 


CONTROLS FOR 


2790 REQUEST 


80 317450 






0B9D C400 0053 


* 


LD 


L $2790 


FETCH $2790 


80 317460 
80 317470 






0B9F 1 4C18 0BB2 




BZ 


SETUP 


BRANCH IF IOCR NOT IN CORE 


80 317480 






0BA1 C200 


$ 


LD 


2 


FETCH AC TABLE $ADDRESS 


80 317490 
80 317500 






0BA2 180F 




SRA 


15 


SET SIGN BIT TO BIT 15 


80317510 






0BA3 1 8400 0995 




A 


L K2 


ADD DVT DISPLACEMENT 


80 317520 






0BA5 8400 0053 




A 


L $2790 


ADD COMM TBL ADDRESS 


80 3175 30 






0BA7 D001 




STO 


*£1 


PLACE IN LDX 


80317540 






0BA8 6680 0000 




LDX 


12 *-* 


XR2 = DEVICE TBL ADDR 


80 317550 






OBAA D2F7 




STO 


2 -9 


FIX MPX SCREW-UP. 


80317560 






OBAB C2F6 




LD 


2 -10 


FETCH LOOP CONTROL WORD 


80 3175 70 






OBAC 1 4C20 0C06 




BNZ 


L3 


GO ABORT IF ACTIVE 


80317580 






OBAE 7211 




MDX 


2 tl7 


ALIGN DVT POINTER 


80 317590 






OBAF 6E00 FFD3 




STX 


L2 DTADR 


SAVE DEVICE TBL ADDR 


80 317600 






0BB1 7058 


* 


B 


RQDVQ 


CONTINUE 


80 317610 
80317620 
80317630 








* SET-UP 


DUMMY COMM AREA IF $2790=0 


80317640 






0BB2 OCOO 0032 


SETUP 


XIO 


L $MK1 


MASK SYSTEM 


80 317650 
80 317660 






0BB4 OCOO 0034 


* 


XIO 


L $MK2 


* 


80317670 






0BB6 1 6600 0C4C 


LDX 


L2 DMDVT 


FETCH DUMMY TBL ADDRESS 


80 317680 
80 317690 




DATE 
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0BB8 





6E00 


0053 


* 


STX 


L2 


$2790 


SET $2790 TO POINT TO IT 


80 317700 
80317710 


OBBA 


1 


6600 


0C5E 




LDX 


L2 


DMDVT61167 ALIGN XR2 FOR DVT PTR 


80317720 


OBBC 





6E00 


FF03 




STX 


L2 


DTADR 


SAVE DVT POINTER 


80 317730 


OBBE 





OCOO 


002E 




XIO 


L 


$UMK1 


UNMASK SYSTEM 


80 317740 


OBCO 





ocoo 


0030 




XIO 


L 


$UMK2 


* 


80317750 


0BC2 





7047 




* 


B 




RQDVQ 


CONTINUE 


80 317760 
80 317770 


0BC3 





6600 


0000 


LI 


LDX 


L2 


*-* 


SET XR2 TO $2790 


80 317780 


0BC5 


1 


6E00 


123A 




STX 


L2 


ABM4 


SAVE IN ABORT MSG 


80317790 


0BC7 





C200 






LD 


2 





FETCH MPX DEVICE TBL ADRS 


80317800 


0BC8 


1 


D400 


123B 




STO 


L 


ABM5 


SAVE IN ABORT MESSAGE 


80317810 


OBCA 





4820 






BSC 




Z 


SKIP IF ADDRESS = 0000 


80 317820 


OBCB 





7004 




* 


MDX 




RQDVK 


ADDRESS SPECIFIED-BRANCH 

* 


80317830 
80 317840 










# 


DEVICE 1 


REQUESTED 


NOT DEFINED IN * 


80317850 










* 


MPX 


SYSTEM. 


* 


80 317860 










* 








* 


80 317870 


OBCC 





4480 


FFE7 




BSI 


I 


ABORT 


ABORT EXIT 


80 317880 


OBCE 





E014 






DC 




/E014 


MID-UNDEFINED DEVICE 


80317890 


OBCF 





0004 




* 


DC 




4 


WORD COUNT 


80 317900 
80317910 


OBDO 





D001 




RQDVK 


STO 




*+l 




80317920 


0BD1 





66O0 


0000 




LDX 


L2 


*-* 


1X2= DEVICE TABLE ADRS 


80317930 


0BD3 





720E 






MDX 


2 


14 


ADJUST IX 


80317940 


0BD4 





6E00 


FFD3 


* 


STX 


L2 


DTADR 


SAVE DEV TBL ADDRESS 

# 


80 317950 
80 317960 










* 


VERIFY 


THAT INTERRUPT LEVEL FOR THIS * 


80 317970 










* 


DEVICE 


IS LEGAL i 


AND UNMASKED. * 


80 317980 










* 








* 


80317990 


0BD6 





C780 


0001 




LD 


13 


1 


FETCH CALL DDEF 


80 318000 


0BD8 





1888 






SRT 




8 


POSITION IL-SAVE ILSW.CHN 


80 3180 10 


0BD9 


1 


B400 


0C46 




CMP 


L 


K23 


CK FOR LEGAL LEVEL 


80 3180 20 


OBDB 





7002 






MDX 




RQDVL 


LEVEL TOO LARGE GT 


80 3180 30 


OBDC 





7005 






MDX 




RQDVM 


* LEVEL LT 


803180 40 


OBDD 





700A 




* 


MDX 




RQDVN 


* OK BRANCH EU 


80 3180 50 
80 3180 60 


OBOE 





4480 


FFE7 


RQDVL 


BSI 


I 


ABORT 


ABORT EXIT 


80 3180 70 


OBEO 





E015 






DC 




/E015 


MID-ILLEGAL INTRPT LEVEL 


80 3 1 80 80 


0BE1 





0002 




* 


DC 




2 


WORD COUNT 


80 3180 90 
80318100 


0BE2 


1 


B400 


0C47 


RQUVM 


CMP 


L 


K13 


CK. 1ST/2ND INTRP GROUP 


80 318110 


0BE4 





7003 






MDX 




RQDVN 


2ND GROUP GT 


80318120 


0BE5 





1000 






NOP 






1ST GROUP LT 


80318130 


0BE6 





6100 






LDX 


1 





SET IX 1ST INT GROUP 


80318140 


0BE7 





7001 






MDX 




*+l 




80318150 


0BE8 





6102 




RQDVN 


LDX 


1 


2 


SET IX 2ND INT GROUP 


80 318160 


0BE9 





D003 






STO 




* + 3 


SAVE INTERRUPT LEVEL 


80318170 


OBEA 





C500 


002E 




LD 


LI 


$UMK1 


FETCH PROPER SYS MASK 


80318180 


OBEC 





6500 


0000 




LDX 


LI 


*— * 


SET IX=CALL INTRP LVL 


80318190 


OBEE 





1100 






SLA 


1 





POSITION MASK BIT 


80318200 


OBEF 





4810 






BSC 




- 


SKIP IF MASK BIT ON 


80318210 


OBFO 





700C 




* 


MDX 




RQDVP 


LEVEL UNMASKED-BRANCH 


80318220 

80 318230 










* 


INTERRUPT LEVEL i 


FOR REQUESTED DEVICE * 


80318240 










* 


IS MASKED. ABORT 


PROGRAM. * 


80318250 










# 








* 


80 318260 


0BF1 





C400 


002E 




LD 


L 


$UMK1 


FETCH MASK REG 1 


80318270 


0BF3 


1 


D400 


1239 




STO 


L 


ABM3 


SAVE IN ABORT MESSAGE 


80318280 


0BF5 





C400 


0030 




LD 


L 


$UMK2 


FETCH MASK REG 2 


80 318290 


0BF7 


1 


D400 


123A 




STO 


L 


ABM4 


SAVE IN ABORT MESSAGE 


80 318300 


0BF9 





4480 


FFE7 




BSI 


I 


ABORT 


ABORT EXIT 


80318310 


OBFB 





E016 






DC 




/E016 


MID-INTRPT LEVEL MASKED 


80 318320 


OBFC 





0003 




* 


DC 




3 


WORD COUNT 

* 


80318330 
80 318340 










* 


VERIFY 


REQUESTED 


DEVICE IS OFF LINE * 


80 318350 










* 








* 


80 318360 


OBFD 





C2F8 




RQDVP 


LD 


X2 


DVONF 


FETCH ON/OFF INDICATOR 


80318370 



OBFE D400 FFD7 
OCOO 4818 
0C01 7008 
0CO2 C400 FFEO 
0C04 1 4C28 OCOA 



0C06 4480 FFE7 
0C08 E017 
0C09 0002 



OCOA 
OCOC 
OCOD 
OCOE 
0C10 
0C12 
0C13 
0C15 
0C17 
0C19 
0C1A 
0C1C 
0C1D 
0C1F 
0C20 
0C22 
0C23 
0C25 
0C27 
0C29 
0C2B 
0C2D 
0C2E 
0C2F 
0C30 
0C31 
0C32 
0C34 
0C36 
0C38 
0C39 
0C3A 
0C3B 
0C3C 



7400 
7003 
C03B 
D400 
6580 
C101 
D780 
6500 
C780 
E82B 
0780 



C302 



8400 
D112 
9400 
Dill 

C480 

1 4C18 
7401 
OCOO 
OCOO 

C2F5 
D11C 
C12A 
D2F5 
7303 

C780 

1 F400 
1 4C18 
7301 

70F8 
CUE 
F009 



FFE6 



FFE6 
FFE6 

0002 
FFD2 
0001 

0001 

0994 

0995 

FFE3 
0C31 
FFEB 
0032 
0034 



0000 
091C 

OC 3 A 






DUE 



0C3D 6500 0000 
0C3F 6600 0000 
0C41 6C00 FFFD 
0C43 4F00 0001 



0C45 8000 
0C46 0017 
0C47 OOOD 
0C48 0009 
0C49 0000 
0C4A 1 0C5E 
0C4B 0000 



0C4C 0000 
0C4D 0000 
0C4E 0000 
0C4F 0000 



STO 

BSC 

MDX 

LD 

BSC 



L3 



RQEXT 



ONOFF SAVE ON-OFF STATUS 
+- SKIP IF DEV ON LINE 

RQDVQ OFF LINE - BRANCH 
DFTCW FETCH DFT COMPAT WORD 
RQDVQ, +Z BRANCH IF SHARING OK 

* 



DEVICE ON LINE. ABORT PROGRAM. 



BSI 
DC 

DC 



RQDVQ MDX 
MDX 
LD 
STO 

RQDVT LDX 
LD 
STO 
LDX 
LD 
OR 
STO 
LD 
A 

STO 
S 

STO 
LD 
BSC 
MDX 
XIO 
XIO 
LD 
STO 
LD 
STO 
MDX 

RQDVW LD 
EOR 
BSC 
MDX 
MDX 

RQDVY LD 
EOR 
STO 



LDX 
LDX 
STX 
BSC 



* 




* 




# 




K8000 


DC 


K23 


DC 


K13 


DC 


K9 


DC 


TBPTR 


DC. 


DMDVA 


DC 


DVASV 


DC 


* 




* $2790 


* 




DMDVT 


DC 




DC 




DC 




DC 



I ABORT 
/E017 
2 

L ETPTR 
RQDVT 
TBPTR 

L ETPTR 

II ETPTR 
1 1 

13 2 

LI EDITA 

13 1 

K8000 

1 

2 

Kl 



13 
L 
L 
3 



BRANCH TO ABORT 
MID-DEVICE ON LINE 
WORD COUNT 



,0 



13 
3 

L 



1 DFT1A 
. K2 

1 DFTIS 
DFTIS 
RQDVW 
NLINT 
$MK1 
$MK2 
X2 DVISS 

1 DTIVS 

1 DMISS 
X2 DVISS 

3 3 


TERM 
RQDVY 
1 
RQDVW 

1 STATS 
K8000 

1 STATS 



SKIP IF 1ST REQUEST 

NOT 1ST REQUEST BRANCH 

FETCH DDEF POINTER 

SET IN HIGH CORE AREA 

1X1 = ADDRS OF AREA CODE 

FETCH AREA CODE 

SET IN DFT DVA 

HCCA POINTER 

FETCH DFT DDEF 

SET ON APPROVED BIT 

REPLACE IN DFT 

FETCH DVA ADDRESS 

BUILD ISS ADDRESS 

EDITA SAVE IN COMM AREA 
BUILD INT SW ADDRESS 

EDITA SAVE IN COMM AREA 
FETCH DFT INTRPT SW 

1,6- BRNCH IF NO INTRPT EXPCTD 

1 SET NOT LAST INT SW 
MASK LEVELS 0-13 
MASK LEVELS 14 - 23 
FETCH DT XFER VECTOR 

EDITA SAVE IN COMM AREA 
-EDITA FETCH DM XFER VECT 
STORE IN DEV TABLE 
ADJ CALL STRING IX 
CHECK FOR 

* CALL STRING TERM 
BRANCH IF TERM FOUND 



EDITA CLEAR 

*STATUS 
-EDITA * WORD 



UT 



LI 

L2 

L DFTOP 

L3 1 



RESTORE 1X1 
RESTORE 1X2 
SET DFT IN OP IND 
RETURN TO USER 



CONSTANTS 



/8000 

23 

13 

9 

#-* 



SAVE LOC-DDEF POINTER 



DMDVT61167 ADDR OF INTERRUPT VEC 



*-* 



DEVICE TBL ADDR SAVE AREA 



DUMMY COMMUNICATIONS AREA 

*-# 
#-* 
*-* 



80318380 
80 318390 
80 318400 
80318410 
80 318420 
80318430 
80 318440 
80318450 
80 318460 
80 318470 
80318480 
80 318'-90 
8031850C 
80318510 
80318520 
80318530 
80 318540 
80318550 
80318560 
80318570 
80 318580 
80 318590 
80 318600 
80 318610 
80318620 
80318630 
80 318640 
80318650 
80 318660 
80318670 
80 318680 
80318690 
80318700 
80318710 
80318720 
80 3187 30 
80 318740 
80318750 
80 318760 
80318770 
80318780 
80 318790 
80 318800 
80 318810 
80 318820 
80318830 
80318840 
80 318850 
80318860 
80 318870 
80 318880 
80318890 
80 318900 
80 3 1 89 10 
80318920 
80 3189 30 
80 318940 
80318950 
80 318960 
80318970 
80 318980 
80 318990 
80 319000 
80 319010 
80 3190 20 
80 3190 30 
80 3190 40 
80 3190 50 



DATE 
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17JUN68 
411939 



20MAR70 
431320 



31JUL70 
431327 



PROG ID 
PAGE 



0803-2 
14A 



I I 



I I. I 



<,<<<<<*<<<<<<<<<<<<<<<<<<<<<<<<(<< 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
ON LINE DIAGNOSTIC MONITOR 



PART NO. 
PAGE 



224-6289 
15 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
ON LINE DIAGNOSTIC MONITOR 



PART NO. 2246289 
PAGE 15A 





0C50 





0000 




DC 


*-* 




80 3190 60 






0C51 





0000 




DC 


*-* 




803190 70 






0C52 





0000 




DC 


*-* 




80 3190 80 






0C53 





0000 




DC 


*-* 




80 3190 90 






0C54 





0000 




DC 


*-* 




80 319100 






0C55 





0000 




DC 


*-* 




80 319110 






0C56 





0000 




DC 


*-* 




80 319120 






0C57 





0000 




DC 


*-* 




80319130 






0C58 





0000 




DC 


*-* 




80319140 






0C59 





0000 




DC 


*-* 




80319150 






0C5A 





0000 




DC 


*-* 




80 319160 






0C5B 





0000 




DC 


*-* 




80319170 






0C5C 





0000 




DC 


*-* 




80319180 






0C5D 





0000 




DC 


*-* 




80319190 






0C5E 





0000 




DC 


*-* 




80 319200 






0C5F 





0000 




DC 


*-* 




80319210 






0C60 





0000 




DC 


*-* 




80319220 






0C61 





0000 


RTNTO 


DC 


*-* 


NO RESPONSE TIME-OUT 


80 3192 30 






0C62 


1 


4C80 0C61 


* 

* 


B 


I RTNTO 


* BRANCH CONTROL 


80 319240 
80 319250 
80 319260 












* * 


* 


* * 


***** 


80 319270 












* 


AREA 


CODE TABLE 


ADDRESS TABLE * 


80 319280 












* 




* * 


* * * * 


80319290 












* 




OFT PID 


= TABLE INDEX * 


80 319300 












* * 


* 


* * 


***** 


80319310 












* 






* 


80 319320 






0C64 





0000 


ACTAT 


DC 





NOT 


80 319330 






0C65 





0000 




DC 





* DFT 


80 319340 






0C66 





0000 




DC 





* PIDS 


80319350 






0C67 





0000 




DC 





* *** 


80 319360 






0C68 


1 


0CA4 




DC 


D5455 


PID 04 


80 319370 






0C69 


1 


0CA7 




DC 


D1627 


PID -05 


80 319380 






0C6A 


1 


OCAA 




DC 


D5316 


PID 06 


80 319390 






0C6B 


1 


0CC5 




DC 


D2400 


PID 07 


80 319400 






0C6C 


1 


OCBB 




DC 


D2310 


PID 08 


80319410 






0C6D 


1 


OCBB 




DC 


D2310 


PID 09 


80 319420 






0C6E 


1 


0CC2 




DC 


D1443 


PID OA 


80 319430 






0C6F 


1 


0CC5 




DC 


D2400 


PID OB 


80 319440 






0C70 


1 


OCBB 




DC 


D2310 


PID OC 


80 319450 






0C71 


1 


OCBB 




DC 


D2310 


PID OD 


80 319460 






0C72 





0000 




DC 





UNASSIGNED 


80 319470 






0C73 


1 


0CC8 




DC 


D1442 


PID OF 


80 319480 






0C74 





0000 




DC 





UNASSIGNED 


80 319490 






0C75 





0000 




DC 





UNASSIGNED 


80 319500 






0C76 





0000 




DC 





UNASSIGNED 


80319510 






0C77 





0000 




DC 





UNASSIGNED 


80319520 






0C78 





0000 




DC 





UNASSIGNED 


80319530 






0C79 





0000 




DC 





UNASSIGNED 


80 319540 






0C7A 





0000 




DC 





UNASSIGNED 


80 319550 






0C7B 





0000 




DC 





UNASSIGNED 


80 319560 






0C7C 





0000 




DC 





UNASSIGNED 


80319570 






0C7D 





0000 




DC 





UNASSIGNED 


80319580 






0C7E 





0000 




DC 





UNASSIGNED 


80319590 






0C7F 





0000 




DC 





UNASSIGNED 


80 319600 






0C80 





0000 




DC 





UNASSIGNED 


80319610 






0C81 





0000 




DC 





UNASSIGNED 


80 319620 






0C82 





0000 




DC 





UNASSIGNED 


80 319630 






0C83 





0000 




DC 





UNASSIGNED 


80 319640 






0C84 


1 


OCCD 




DC 


DDAI 


PID 20 


80 319650 






0C85 


1 


OCCD 




DC 


DO A I 


PID 21 


80 319660 






0C86 


1 


OCCD 




DC 


DDAI 


PID 22 


80 319670 






0C87 


1 


OCCD 




DC 


DDAI 


PID 23 


80 319680 






0C88 


1 


0CD2 




DC 


DDI 


PID 24 


80 319690 






0C89 


1 


0CD2 




DC 


DDI 


PID 25 


80 319700 






0C8A 


1 


0CD5 




DC 


DDAO 


PID 26 


80319710 






0C8B 


1 


0CD5 




DC 


DDAO 


PID 27 


80 319720 






0C8C 





0000 




DC 





PID 28 


80319730 




DATE 


17JUN68 20MAR70 


31JUL70 






PROG ID 


0803-2 


EC NO. 


41193? 


1 431320 


431327 






PAGE 


15 



0C8D 





0000 


0C8E 





0000 


0C8F 





0000 


0C90 





0000 


0C91 





0000 


0C92 


1 


0CD8 


0C93 


1 


0CD8 


0C94 





0000 


0C95 





0000 


0C96 





0000 


0C97 





0000 


0C98 





0000 


0C99 





0000 


0C9A 





0000 


0C9B 





0000 


0C9C 





0000 


0C9D 





0000 


0C9E 





0000 


0C9F 





0000 


OCAO 





0000 


0CA1 





0000 


0CA2 





0000 


0CA3 





0000 





DC 







PID 29 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 


D2790 


PID 2E 




DC 


D2790 


PID 2F 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




OC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 







UNASSIGNED 




DC 







UNASSIGNED 


* 


* * 


* 


* 


* * * 


* 


AREA 


CODE 


CHECK- 


-CROSS REFERENC 


# 




* 


* 


* * * 


* 


THE \ 


JORD F 


OLLOWi 


SNG EACH AREA C 











* BY 










* * 










* 




0CA4 





1800 


D5455 DC 




0CA5 





OODB 


DC 




0CA6 





FFFF 


DC 




0CA7 





2800 


D1627 DC 




0CA8 





00E3 


DC 




0CA9 





FFFF 


DC 




OCAA 





0802 


D5316 DC 




OCAB 





OOEF 


DC 




OCAC 





0804 


DC 




OCAD 





OOFO 


DC 




OCAE 





0808 


DC 




OCAF 





00F1 


DC 




OCBO 





0810 


DC 




0CB1 





00F2 


DC 




0CB2 





7802 


DC 




0CB3 





00F3 


DC 




0CB4 





7804 


DC 




0CB5 





00F4 


DC 




0CB6 





7808 


DC 




0CB7 





00F5 


DC 




0CB8 





7810 


DC 




0CB9 





00F6 


DC 




OCBA 





FFFF 


DC 




OCBB 





2000 


D2310 DC 




OCBC 





00E7 


DC 




OCBD 





4000 


DC 




OCBE 





00E8 


DC 




OCBF 





4800 


DC 




OCCO 





0OE9 


DC 




0CC1 





FFFF 


DC 


DATE 


17JUN68 20MAR70 


31JUL70 


EC NO. 


411939 


• 431320 


431327 



* * 

ABLE * 

* 

POINTS TO A LOCATION IN THE FIXED AREA* 
OF MPX.AT ThIS LOCATION IS THE ADDRESS* 
OF THE DEVICE TABLE FOR THE PRECEEDING* 
AREA CODE. * 

***** * 

THE AREA CODES ARE GROUPED FOR EACH * 

DEVICE AND EACH GROUP IS TERMINATED * 
BY THE WORD FFFF. * 

****** 

* 
1054/55 PAPER TAPE 



/1800 

$PAPT 

/FFFF 

/2800 

$1627 

/FFFF 

/0 802 

$TYPH 

/0804 

JTYPH+1 

/0 80 8 

STYPH+2 

/0810 

STYPH+3 

/7802 

$TYPH+4 

/7804 

$TYPH+5 

/7808 

$TYPH+6 

/7810 

STYPH+7 

/FFFF 

/2000 

$DKPH 

/4000 

$DKPH+1 

/4800 

$DKPH+2 

/FFFF 



1627 PLOTTER 

1053/1816 PRINTER 1 
1053/1816 PRINTER 2 
1053/1816 PRINTER 3 
1053/1816 PRINTER 4 
1053/1816 PRINTER 5 
1053/1816 PRINTER 6 
1053/1816 PRINTER 7 
1053/1816 PRINTER b 

1810 DISK DRIVE 1 
1810 DISK DRIVE 2 
1810 DISK DRIVE 3 



80319740 
80319750 
80319760 
80 319770 
80 319780 
80 319790 
80319800 
80319810 
80319820 
80 3198 30 
80 319840 
80 319850 
80 319860 
80319870 
80 319880 
80 319890 
80 319900 
80 319910 
80319920 
80319930 
80 319940 
80 319950 
80319960 
80 319970 
80 319980 
80 319990 
80 320000 
80 3200 10 
80 3200 20 
80 3200 30 
80 3200 40 
80 3200 50 
80 3200 60 
80 3200 70 
80 3200 80 
80 3200 90 
80 320 100 
80 320110 
80 320 120 
80 320 130 
80 320 140 
80 320 150 
80 320 160 
80 320 170 
80 320 180 
80 320 190 
80 320 200 
80 320 210 
80 320 220 
80 320 2 30 
80 320 240 
80 320 250 
80 320 260 
80 320 270 
80 320 280 
80 320 2 yo 
80 320 300 
80 320 310 
80 320 320 
80 320 330 
80 320 340 
80 320 350 
80 320 360 
80 320 370 
80 320 380 
80 320 390 
80 320 400 
80 320 410 
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1443 PRINTER 



2400 MAGNETIC TAPE 



1442 CARD RDR/PCH 1 



1442 CARD RDR/PCH 2 



ANALOG INPUT 



ANALOG INPUT EXPANDER 



DIGITAL INPUTS 



DIGITAL/ANALOG OUTPUT 



2790 DATA COLLECTION 

* SYSTEM—LOOP 1 

* LOOP 2 



********************************************* 

* MPXDM - RELEASE DEVICE ROUTINE * 

********************************************* 



0CC2 





3000 


D1443 


DC 


/3000 


0CC3 





0008 




DC 


$1443 


0CC4 





FFFF 




DC 


/FFFF 


0CC5 





7000 


D2400 


DC 


/7000 ; 


0CC6 





OODC 




DC 


$MATP 


0CC7 





FFFF 




DC 


/FFFF 


0CC8 





1000 


D1442 


DC 


/1000 


0CC9 





00D9 




DC 


$1442 


OCCA 





8800 




DC 


/8800 


OCCB 





OODA 




DC 


$1442+1 


OCCC 





FFFF 




DC 


/FFFF 


OCCD 





5000 


ODAI 


DC 


/5000 


OCCE 





OODD 




DC 


$A1IN 


OCCF 





8000 




DC 


/8000 


OCDO 





OODE 




DC 


$AIIN+1 


0CD1 





FFFF 




DC 


/FFFF 


0CD2 





5800 


DDI 


DC 


/5800 1 


0CD3 





00E1 




DC 


$DINP 


0CD4 





FFFF 




DC 


/FFFF 


0CD5 





6000 


DDAO 


DC 


/6000 


0CD6 





00E2 




DC 


$DAOP 


0CD7 





FFFF 




DC 


/FFFF 


0CD8 





3800 


02790 


DC 


/3800 


0CD9 





0053 




DC 


$2790 60 


OCDA 





9800 




DC 


/9800 


OCDB 





8053 




DC 


$2790+/8000 


OCDC 





FFFF 


TBEND 
* 


DC 


/FFFF 



* 

* 

* 
* 
* 
* 
* 
* 
* 

* 
* 

* 

* 

* 
* 

* 

* 

* 
* 

* 
* 
* 
* 



** RLOV ** 



THIS ROUTINE IS USED TO RELEASE A * 
REVIOUSLY REQUESTED DEVICE. THE * 
RELEASE IS ACCOMPLISHED BY CLEARING * 
BOIASSIGNED BIT1IN THE DFT'S DDEF. A * 
CALL IS THEN MADE ON THE RESTR ROUTINE* 
TO INSURE THAT THE MPX/MPXDM INTERFACE* 



IS RESTORED TO A 
PENDING' STATE. 



•NO I/O INTERRUPT 



CALLING SEQUENCE 

BSI I RELDV 
DC ADDRS DDEF 
DC ADDRS TERM 
C(RELDV) = RLDV 

CALLED ROUTINES 

1. RESTR - INTERFACE RESTORE RTN 



2. ABORT 



MPXDM ERROR ABORT RTN 



POSSIBLE ABORT CONDITIONS 

CODE * CONDITION 

E020 * OFT INDICATES THE RELEASE OF A 
NON-REQUESTED DEVICE. 



ROUTINE ENTRY 
ROUTINE EXIT 



RLDV 
RLEXT+4 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
# 
* 
* 
* 
* 



OCDD 0000 



********************************************* 
* * 

RLDV DC *-* ENTRY-RETURN ADDRESS 



80 320 420 
80 320 430 
80 320 440 
80 320 450 
80 320 460 
80 320 470 
80 320 480 
80 320 490 
80 320 500 
80 320 510 
80 320 520 
80 320 530 
80 320 540 
80 320 550 
80 320 560 
80 320 570 
80 320580 
80 320 590 
80 320600 
80 320 610 
80 320 620 
80 320 630 
80 320 640 
80 320 650 
80 320660 
80 320 670 
80 320 680 
80 320 690 
80 320 700 
80 320 710 
80 320 720 
80 320 730 
80 320 740 
80 320 750 
80 320 760 
80 320 770 
80 320 780 
80 320 790 
80 320 800 
80 320 810 
80 320 820 
80 320 830 
80 320 840 
80 320 850 
80 320 860 
80 320 870 
80 320 880 
80 320 890 
80 320 900 
80 320 910 
80 320 920 
80 320 930 
80 320940 
80 320 950 
80 320 960 
80 320 970 
80 320 980 
80 320 990 
80 321000 
80 3210 10 
80 3210 20 
80 3210 30 
80 3210 40 
80 3210 50 
80 3210 60 
80 3210 70 
80 3210 80 
80 3210 90 



OCDE 





692B 




OCDF 





6500 


FFD2 


0CE1 





1010 




0CE2 





D12B 




0CE3 





D10F 




0CE4 





CUE 




0CE5 





E829 




0CE6 





DUE 




0CE7 





4057 




0CE8 


1 


6780 


OCDD 


OCEA 





C780 


0000 


OCEC 


1 


D400 


1239 


OCEE 





4828 




OCEF 





700C 




OCFO 


1 


7400 


0D3E 


0CF2 





7009 




0CF3 





6780 


FFE6 


0CF5 





C300 




0CF6 


1 


D400 


1238 


0CF8 





4480 


FFE7 


OCFA 





E020 




OCFB 





0002 





OCFC E013 
OCFD D780 0000 
OCFF 7301 
ODOO C780 0000 



0002 
0D04 
0D06 



F400 091C 
4C20 OCFF 
CUE 



0DO7 F007 
0008 DUE 

0D09 6500 0000 
ODOB 6C00 FFFD 
ODOD 4F00 0001 



ODOF 4000 
0D10 7FFF 



RLDVC 
RLDVD 



* 
RLEXT 



STX 

LDX 

SLA 

STO 

STO 

LD 

OR 

STO 

BSI 

LDX 

LD 

STO 

BSC 

MDX 

MDX 

MDX 

LDX 

LD 

STO 

BSI 
DC 

DC 

AND 

STO 

MDX 

LD 

EOR 

BSC 

LD 

EOR 

STO 

LDX 
STX 
BSC 



# 

* 

* 

K4000 

K7FFF 

* 

* 

* 

* 
****** 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



DC 
DC 



1 RLEXT+1 
LI EDITA 
16 
1 DFTOP-ED 
1 TOIND-ED 
1 STATS-ED 

K4000 
1 STATS-ED 
RESTR 
13 RLDV 
13 
L ABM3 
+ Z 

RLDVC 
L ENDSW.O 

RLDVC 
13 ETPTR 

3 
L ABM2 

I ABORT 
/E0 20 
2 



K7FFF 
13 
3 1 
13 
L TERM 
L RLDVD, Z 
1 STATS-EDITA 
K4000 



SAVE IX 1 

SET INDEXING ADDRESS 
* CLEAR DFT IN 
ITA *OPERATION IND 
ITA CLR TIMED OUT IND 
ITA FETCH STATUS WORD 

SET RELDV BIT 1 
ITA UPDATE STATUS WORD 
CALL RESTORE ROUTINE 
IX 3 = CALL STRING 
FETCH CALL DDEF 
SAVE IN ABORT MESSAGE 
SKIP IF NOT APPROVED 
DDEF OK- BRANCH 
SKIP IF END SWITCH OFF 
END SW ON - BRANCH 
IX 3 * EDIT POINTER 
FETCH REQUESTED DDEF 
SAVE IN ABORT MESSAGE 



ABORT EXIT 

MID-REL DEV NOT REQUESTED 

WORD COUNT 

REMOVE BIT 

REPLACE DDEF 

INCR CALL STRING IX 

FETCH PARAMETER 

CK FOR TERMINATOR 

BRANCH IF NOT TERM 
FETCH STATUS WORD 
CLEAR RELDV BIT 1 



1 STATS-EDITA REPLACE STATUS WORD 



LI 

L 

L3 



RESTORE IX 1 
DFTOP SET DFT IN OP IND. 

1 RETURN TO USER 



CONSTANTS 



/4000 
/7FFF 



HEX 4000 
HEX 7FFF 



*************************************** 

MPXDM - END PROGRAM ROUTINE * 

*************************************** 



** MEND ** 

ROUTINE MEND IS CALLED 
THE COMPLETION OF EACH 
AND UNDER CERTAIN DFT D 
CONDITIONS. MEND IS ALSO 
MPXDM MTERM SUBROUTINE 
DE-EXECUTION IS REQUEST 

WHEN MEND IS CALLED BY 
CALL THE DFT LOOP PROGR 
THE DFT RETURNS, MEND BR 
MPXDM CONTROL ROUTINE. T 
ESTABLISHES A CONTINOUS 
FUNCTION. 

WHEN MEND IS CALLED BY 
ROUTINE, IT WILL CALL TH 



BY THE DFT AT 
PROGRAM PASS 
EFINED ERROR 

CALLED BY THE 
WHEN PROGRAM 
ED. 



* 

* 

* 

THE DFT, IT WILL* 

AM ROUTINE. WHEN* 

ANCHES TO THE * 

HIS OPERATION * 

LOOP PROGRAM * 

* 

* 

THE MTERM SUB- * 

E DFT END RTN * 



80 321100 
80 321110 
80 321120 
80 321130 
80321140 
80 321150 
80 321160 
80 321170 
80 321180 
80 321190 
80 321200 
80 321210 
80 321220 
80 3212 30 
80321240 
80 321250 
80 321260 
80 321270 
80321280 
80 321290 
80 321300 
80 321310 
80 321320 
80 321330 
80 321340 
80 321350 
80 321360 
80 321370 
80 321380 
80 321390 
80321400 
80 321410 
80 321420 
80 321430 
80321440 
80 321450 
80 321460 
80 321470 
80 321480 
80 321490 
80 321500 
80 321510 
80321520 
80 321530 
80 321540 
80 321550 
80 321560 
80 321570 
80 321580 
80321590 
80 321600 
80321610 
80321620 
80 321630 
80 321640 
80321650 
80 321660 
80 321670 
80 321680 
80321690 
80 321700 
80321710 
80 321720 
80 321730 
80321740 
80321750 
80321760 
80 321770 
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0D11 6700 FFD2 

0013 1010 

0014 D32B 
0D15 C31E 

0016 E826 

0017 D31E 
0D18 6780 FFF2 
0D1A 7400 FFDB 
0D1C 7013 
0D1D 6820 
0D1E 6C00 FFFD 

0D20 4780 0009 

0D22 6700 FFD2 
0D24 1010 
0025 032B 
0D26 D017 
0D27 D314 



0D28 1 4400 0A74 
0D2A 0000 
0D2B C31E 
0D2C F010 
0D2D D31E 

0D2E 1 4C80 0A40 

0D30 6C00 FFFD 

0D32 4780 000b 

0D34 6700 FFD2 
0D36 1010 
0037 D32B 



TO ALLOW FOR DE-EXECUTION FUNCTIONS. * 
WHEN THE OFT REUTRNS.MEND WILL PERFORM* 
SOME HOUSEKEEPING AND THEN CALL ON THE* 
CTLPT SUBROUTINE TO PRINT THE DXEQ 
MESSAGE A001.MEND THEN EXITS TO MCTRL 
VIA THE RETURN ADDRESS IN MTERM. 



CALLLING SEQUENCE 

BSC I END 
C(END) = MEND 

CALLED ROUTINES 

1. DFT LOOP PROGRAM ROUTINE 

2. DFT END PROGRAM ROUTINE 

3. MCTRL - MPXDM CONTROL ROUTINE 

CALLED SUBROUTINES 

1. CTLPT - DXEQ MESSAGE SETUP 
POSSIBLE ABORT CONDITIONS 
NONE 



ROUTINE ENTRY 
ROUTINE EXIT 



MEND 

MEXT 1 ( DFT ),MEXT2( MPXDM) 



******«***#***##*****#***#******************* 
* # 

ME NO 



LDX 

SLA 

STO 

LD 

OR 

STO 

LDX 

MDX 

MDX 

STX 

STX 



L3 EDITA SET MPXDM COMN INDEX 

16 CLEAR DFT IN 

3 DFTOP-EDITA *0PERATION INDICATOR 
3 STATS-EDITA SET END 

K0800 *ROUTINE STATUS 

3 STATS-EDITA *BIT - BIT 4 



13 DFTID 

L XEQSW.O 

MENDA 

ENDSW 

L DFTOP 



BSI 13 9 



1X3 = DFT PID ADDRESS 
SKIP IF DXEQ PROG 
LOOP PROGRAM BRANCH 
SET END SWITCH 
SET DFT IN OP IND 

TO DFT END ROUTINE 



LDX L3 EDITA SET MPXDM COMN INDEX 

SLA 16 * CLEAR DFT IN 

STO 3 DFTOP-EDITA *OPERATION INDICATOR 

STO ENDSW CLEAR END SWITCH 

STO 3 ETPTR-EDITA CLR EDIT TABLE POINTER 

* 
LOG MESSAGE AOO 1 -DXEQ DFT * 



BSI 

DC 

LD 

EOR 

STO 

MEXT1 BSC 

* 

MENDA STX 

* 

BSI 

* 

LDX 
SLA 
STO 



L CTLPT BRANCH TO PRINT 

DXEQ CONSTANT 

3 STATS-EDITA CLEAk END ROUTINE 

K0800 *BIT 4 FROM INTERFACE 

3 STATS-EDITA * STATUS WORD 

I MTERM RETURN TO CONTROL 

L DFTOP SET DFT IN UP IND 

13 8 TO DFT LOOP PROG ADRS 

L3 EDITA SET MPXDM COMN INDEX 

16 * CLEAR DFT IN 

3 DFTOP-EDITA * OPERATION INDICATOR 



80 321780 
80321790 
80321800 
80321810 
80321820 
80321830 
80 321840 
80 321850 
80 321860 
80 321870 
80321880 
80 321890 
80 321900 
80 321910 
80 321920 
80321930 
80 321940 
80 321950 
80 321960 
80 321970 
80321980 
80 321990 
80 322000 
80 322010 
80 3220 20 
80 3220 30 
80 3220 40 
80 3220 50 
80 3220 60 
80 3220 70 
80 3220 80 
80 3220 90 
80 322100 
80 322110 
80 322120 
80 322130 
80 322140 
80 322150 
80322160 
80 322170 
80 322180 
80 322190 
80 322200 
80322210 
80 322220 
80 3222 30 
80 322240 
80 322250 
80 322260 
80 322270 
80 322280 
80 322290 
80 322300 
80322310 
80 322320 
80 322330 
80 322340 
80 322350 
80 322360 
80 322370 
80 322380 
80 322 390 
80322400 
80 322410 
80 322420 
80 322430 
80 322440 
80322450 



0D38 C31E 
0D39 F003 
0D3A D31E 

0D3B 1 4C00 09B7 



0D3D 0800 
0D3E 0000 



0D3F 0000 

0040 6929 
0D41 6A2A 
0D42 6B2B 
0D43 6500 FFD2 
0D45 6680 FFD3 
0D47 637F 



LD 

EOR 

STO 

* 

MEXT2 BSC 



3 STATS-EDITA CLEAR END ROUTINE 

K0800 * BIT 4 FROM INTERFACE 

3 STATS-EDITA * STATUS WORD 



CTL1 



RETURN TO CONTROL 



CONSTANTS 



0800 DC 
NDSW DC 



/0 800 





HEX 0800 
END SWITCH 



fc******************!!:****:****;}!**^!!;*,}:*,!;^,!,:),,^ 

MPXDM - RESTORE INTERFACE ROUTINE * 
*#*$»*****#**## ***«*****#******************# 

* 
** RESTR ** * 



THIS ROUTINE IS CALLED BY ROUTINES 
DMIR.TMOUT OR RLOV. IT IS USED TO 
RESTORE THE MPX/MPXDM INTERFACE 
FOLLOWING AN I/O INTERRUPT ( DMIR ), A NO 
RESPONCE TIME OUT(TMOUT) OR A RELEASE 
DEVICE CALL(RLDV)PRIOR TO RECEIVING 
AN I/O INTERRUPT OR NO RESPONCE TIME 
OUT. RESTR WILL PERFORM THE FOLLOWING 
FUNCTIONS. 

1. NOTIFY MPX TO TERMINATE NO RESPONCE 

TIME OUT CALLS. 
2. DECREMENT THE I/O BUSY INDICATOR FOR 

VARIABLE CORE. 
3. RESTORE THE DEVICE TABLE INTERRUPT 

TRANSFER TO THE VALUE IT PREVIOUSLY 

CONTAINED. 
4. CLEAR THE CONTROL WORDS USED TO 

SEQUENCE MPXDM DURING PENDING I/O 

INTERRUPTS. 

CALLING SEQUENCE 

BSI L RESTR 

CALLED ROUTINES 

NONE 

CALLED SUBROUTINES 

NONE 
POSSIBLE ABORT CONDITIONS 



* NONE 



ROUTINE ENTRY 
ROUTINE EXIT 



* 

* 

* 

* 

** 

* 

RESTR DC 

* 



RESTR 
RESXT 



***********#**********#******«*****«** ***** 



*-* RETURN ADDRESS 

STX 1 RES2+1 SAVE INDEX REG 1 

STX 2 RES2+3 SAVE INDEX REG 2 

STX 3 RES2+5 SAVE INDEX REG 3 

LDX LI EDITA IX 1 = HCCA INDEX 

LDX 12 DTADR IX 2 = DEV TBL ADDRS 

LDX 3 CON IX 3 = FIXED AREA IX 

STOP NO RESPONCE TIME-OUT * 



80 322460 

80 322470 

80 322480 

80 322490 

80 322500 

80322510 

80 322520 

80 322530 

80322540 

80 322550 

80 322560 

80 322570 

80 322580 

80 322590 

80 322600 

80322610 

80 322620 

80 322630 

80 322640 

80 322650 

80 322660 

80 322670 

80 322680 

80 322690 

80 322700 

80 322710 

80 322720 

80 322730 

80322740 

80322750 

80 322760 

80322770 

80 322780 

80 322790 

80322800 

80322810 

80322820 

80 322830 

80322840 

80 322850 

80322860 

80 322870 

80 322880 

80 322890 

80 322900 

80322910 

80322920 

80 322930 

80322940 

80 322950 

80 322960 

80 322970 

80322980 

80322990 

80 32 3000 

80 32 30 10 

80 32 30 20 

80 32 30 30 

80 3230 40 

80 32 30 50 

80 32 30 60 

80 32 30 70 

80 32 30 80 

80 32 30 90 

80323100 

80323110 

80 32 3120 

80 32 3130 
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* 






* 


80323140 










* 








80 323150 


0D48 





1010 






SLA 




16 STOP NO RESPONCE 


80 323160 


0049 





D333 




* 
* 


STO 


3 


SCBAS-CON *TIME OUT CALLS 

* 


80 323170 
80 323180 
80323190 










* 


DECREMENT I/O BUSY INDICATOR * 


80 323200 










* 






* 


80 323210 


0D4A 





C11A 






LD 


1 


BYICR-EDITA FETCH AREA INCR IND 


80323220 


0D4B 





4818 






BSC 




+- SKIP IF NOT ZERO 


80 3232 30 


0D4C 





7007 






MDX 




RESO BYPASS DECREMENT 


80323240 


0D4D 





0BB3 






XIO 


3 


$MK1-C0N MASK LEVELS THRU 13 


80 323250 


0D4E 





0BB5 






XIO 


3 


SMK2-C0N MASK LEVELS 14 THRU 23 


80 323260 


0D4F 





C110 






LD 


1 


ARBSY-EDITA FETCH I/O BUSY ADDRS 


80323270 


0D50 





D001 






STO 




*+l STORE IN DECR INSTRN 


80 32 32 80 


0D51 





74FF 


0000 




MDX 


L 


*-*t-l DECREMENT AREA 


80 323290 


0D53 





1000 




* 


NOP 




♦BUSY INDICATOR 

* 


80 32 3300 
80323310 










* 


RESTORE 


INTERRUPT TRANSFER VECTOR * 


80 323320 










* 






* 


80 323330 


0D54 





C101 




RESO 


LD 


1 


DTADR-EDITA GET VECTOR POINTER 


80 323340 


0D55 


1 


F400 


0C4A 




EOR 


L 


DMDVA TEST FOR 2790 POINTER 


80 323350 


0D57 


1 


4C20 


0D5B 




BNZ 




RES3 BRANCH IF NO 


80 32 3360 


0D59 





D400 


0053 


* 


STO 


L 


J2790 RESET $2790 TO IF YES 


80 323370 
80 323380 


0D5B 





C2F5 




RES3 


LD 


X2 


DVISS FETCH DT XFER VECTOR 


80 323390 


0D5C 





F12A 






EOR 


1 


DMISS-EDITA IS IT FOR MPXDM 


80323400 


0D5D 





4820 






BSC 




Z SKIP IF YES 


80 323410 


0D5E 





7002 






MDX 




RES1 BRANCH IF NO 


80 323420 


0D5F 





C11C 






LD 


1 


DTIVS-EDITA FETCH SAVED VECTOR 


80 323430 


0D60 





D2F5 






STO 


X2 


DVISS STORE IN DEVICE TABLE 


80 323440 


0D61 





OBAF 




RES1 


XIO 


3 


$UMK1-C0N UNMASK SYSTEM ACCORDING 


80 323450 


0D62 





0BB1 






XIO 


3 


SUMK2-C0N *T0 USER MASK REG 


80 323460 


0063 





1010 






SLA 




16 


80 323470 


0D64 





D11B 






STO 


1 


NTT1M-EDITA CLR TIMEOUT IND 


80 32 3480 


0D65 





0119 






STO 


1 


NLINT-EDITA CLR LAST INTRP IND 


80 323490 


0D66 





D11A 






STO 


1 


BYICR-EDITA CLR AREA INCR IND 


80 32 3500 


0D67 





DUB 






STO 


1 


TIMON-EDITA CLR TIMER IN PROG IND 


80 323510 


0D68 





D11C 






STO 


1 


DTIVS-EDITA CLR DT INTRP VECT SAVE 


80 323520 


0D69 





6500 


0000 


RES2 


LDX 


LI 


*-* RESTORE INDEX REG 1 


80 323530 


006B 





6600 


0000 




LDX 


L2 


*-* RESTORE INDEX REG 2 


80 323540 


0060 





6700 


0000 


* 


LDX 


L3 


*-* RESTORE INDEX REG 3 


80323550 
80 32 3560 


0D6F 


1 


4C80 


0D3F 


RESXT 

* 
* 


BSC 


I 


RESTR RETURN TO USER 

* 

* 


80 323570 
80 323580 
80 323590 










***********************************##$*<=#*:(:#* 


80 32 3600 










* 


MPXDM - ERROR ROUTINE * 


80 323610 










***#*###*****#***#x<****#****** *************** 


80 323620 










* 






* 


80 323630 










* 






** ERR ** * 


80 323640 










* 






* 


80 323650 










* 


THIS 


ROUTINE IS USED FOR ERROR PRINT * 


80 32 3660 










* 


AND 


LOOP CONTROL. CONTROL OF THESE * 


80 32 3670 










* 


FUNCTIONS IS COMMUNICATED TO THE * 


80 323680 










* 


ROUTINE 


VIA CE SWITCHES. * 


80 323690 










* 






* 


80 323700 










* 


THE 


CE 


, SWITCH FUNCTIONS ARE * 


80 323710 










* 






* 


80 32 3720 










* 


CE 


SW 


I ON/OFF I FUNCTION * 


80 323730 
80 323740 
80 323750 










* 


12 


[ ON I LOOP ON ERROR * 










* 






OFF I CONTINUE ON ERROR * 


80 32 3760 
80 323770 


























* 


13 


ON I BYPASS ERROR PRINT* 


80 323780 










* 






OFF I ALLOW ERROR PRINT * 


80 323790 
80 32 3800 


























* 






* 


80 323810 











* 








CALLING SEQUENCE 


* 


80323820 










* 












* 


80 32 38 30 










* 








BSC I 


ERROR 


* 


80323840 










* 








DC 


MSG - MESSAGE ADDR 


* 


80 323850 










* 








DC 


BUSY - BUSY RETURN 


* 


80323860 










* 








DC 


LOOP - LOOP ERR ADR* 


80 323870 










* 








C{ ERROR) = ERR 


* 


80 323880 


, 








* 












* 


80 323890 










* 




CALLED 


ROUTINES 




* 


80 32 3900 










* 












* 


80 32 3910 










* 






1. 


LG - MPXDM 


PRINT ROUTINE 


* 


80 323920 










* 












* 


80 323930 










* 




CALLED 


SUBROUTINES 




* 


80323940 










* 












* 


80 323950 










* 






NONE 




* 


80 32 3960 










* 












* 


80 32 3970 










* 


POSSIBLE 


ABORT CONDITIONS 


* 


80 323980 










* 












* 


80 32 3990 










* 


NONE 








* 


80 324000 










* 












* 


80 3240 10 










* 


ROUTINE 


ENTRY ERR 




* 


80 3240 20 










* 


ROUTINE 


EXIT ERRXT 




* 


80 3240 30 










* 












* 


80 3240 40 










********** 


*********************************** 


80 3240 50 










* 












* 


80 3240 60 


0D71 





0000 




ERR 


DC 




*-* 


RETURN ADDRESS 




80 3240 70 










* 














80 3240 80 


0D72 





6700 


FFD2 






LDX 


L3 


EDITA 


1X3 = HCCA INDEX 




80 3240 90 


0D74 





1010 








SLA 




16 


CLEAR OFT IN 




80 324100 


0D75 





D32B 








STO 


3 


DFTOP-EDITA *OPERATION INDICATOR 


80 324110 


0D76 





C023 








LD 




K2000 


SET BIT 2 IN 




80324120 


0D77 





EB1E 








OR 


3 


STATS-EDITA INTERFACE STATUS 


80 324130 


0D78 





D31E 








STO 


3 


STATS-EDITA *WORD 




80 324140 


0D79 


1 


6780 


0D71 






LDX 


13 


ERR 


1X3 = CALL STRING 




80 324150 


0D7B 





C300 








LD 


3 





FETCH MSG ADDRESS 




80 324160 


0D7C 





D009 








STO 




ERROI 


SET IN LOG CALL 




80 324170 


0D7D 





C302 








LD 


3 


2 


FETCH LOOP ADDRESS 




80 324180 


0D7E 





D019 








STO 




SCESW 


SAVE IT 




80 324190 


0D7F 


1 


7403 


0D71 






MDX 


L 


ERR, 3 


MODIFY RETURN ADDRESS 


80 324200 


0D81 





0816 








XIO 




SCESW 


SENSE CE SWITCHES 




80 32 4210 


0D82 





1802 








SRA 




2 


POSITION BYPASS ERR PRINT 


80324220 


0D83 





4804 








BSC 




E 


SKIP IF NOT BYPASS 




80 3242 30 


0D84 





7004 








MOX 




EP.R02 


BYPASS ERROR PRINTOUT 


80324240 










* 














80324250 


0D85 





4015 








BSI 




LG 


BRANCH TO LOG ROUTINE 


80 324260 


0D86 





0000 




ERROi 


DC 




*-* 


ERR MESSAGE ADDRESS 


80 324270 


0D87 


1 


0D85 








DC 




ERR01-1 


BUSY RETURN 




80 324280 


0D88 





0000 




* 




DC 




0000 


TERM ADDRESS 




80 324290 
80 324300 


0D89 





080E 




ERR02 


XIO 




SCESW 


SENSE CE SWITCHES 




80 324310 


0D8A 





100C 








SLA 




12 


POSITION LOOP ERROR SW 


80 324320 


0D8B 





4810 








BSC 




- 


SKIP IF ON 




80 324330 


0D8C 





7002 








MDX 




ERR0 3 


NO LOOP 




80 324340 


0D8D 





COOA 








LD 




SCESW 


FETCH LOOP ADDRESS 




80324350 


0D8E 





D0E2 








STO 




ERR 


SET IN EXIT ADDRESS 


80 324360 


0D8F 





COOA 




ERR03 


LD 




K2000 


REMOVE ERROR BIT 




80 324370 


0D90 





F400 


FFFO 






EOR 


L 


STATS 


* 2 IN INTERFACE 




80 324380 


0D92 





D400 


FFFO 






STO 


L 


STATS 


* STATUS WORD 




80 324390 


0D94 





6C00 


FFFD 


* 




STX 


L 


DFTOP 


SET OFT IN OP IND 




80 324400 
80 324410 


0D96 


1 


4C80 


0D71 


ERRXT 


BSC 


I 


ERR 


RETURN TO USER 




80 324420 










* 












* 


80 324430 










* 








CONSTANTS 


* 


80 324440 










* 












* 


80 324450 


0D98 




0000 








BSS 


E 









80 324460 


0D98 





0000 




SCESW 


DC 




#-* 


WORK STORAGE 




80 324470 


0D99 





0760 








DC 




/0 760 


SENSE CE SWS IOCC 




80 324480 


0D9A 





2000 




K2000 


DC 




/2000 


HEX 2000 




80 324490 
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* 








* 


80 324500 








********************************************* 


80 324510 








* 


1 


1PXDM - LOG ROUTINE 


* 


80 324520 








********************************************* 


80 324530 








* 








* 


80 324540 








* 






** LG ** 


# 


80 324550 








* 








* 


80 324560 








* 


THIS ROUTINE WILL BUILD THE DIAGNOSTIC* 


80 324570 








* 


OUTPUT 


MESSAGES DEFINED IN THE CALL 


* 


80 324580 








* 


STRING 


OF EITHER MPXDM OR DFT LOG 


* 


80 324590 








* 


CALLS. 




* 


80 324600 








* 


THE 


DATA TO BE PRINTED WILL BE CONVER 


-* 


80 324610 








* 


TED 


TO 


SINGLE OR DOUBLE PRECISION 


* 


80 324620 








* 


DECIMAL 


,0R HEXIDECIMAL PRINT CODE 


* 


80 324630 








* 


DEPENDING ON THE HEX/DEC CONTROL WORD 


* 


80 324640 








* 


IN ■ 


rHE 


MESSAGE STRING. 


* 


80 324650 








* 


WHEN PRINTING MULTILINE MESSAGES, THE 


* 


80 324660 








* 


PID 


,MIO 


i.RID AND RAD WILL BE PRINTED ON* 


80 324670 








* 


THE 


1ST 


LINE ONLY. 


* 


80 324680 








* 


LG CALLS ON EITHER MPX PRNTN OR TYPEN 


* 


80 324690 








* 


TO 1 


PERFORM THE ACTUAL PRINTING. 


# 


80 324700 








* 








* 


80324710 








* 






CALLING SEQUENCE 


* 


80 324720 








* 








* 


80 324730 








* 






BSI I LOG 


* 


80 324740 








* 






DC MSGA - MSG ADDRS 


* 


80 324750 








# 






DC BUSY - BUSY RETURN 


* 


80 324760 








* 






DC TERM - TERM ADDRS 


* 


80 324770 








* 






C(LOG) = LG 


* 


80 324780 








* 








* 


80 324790 








* 


CALLED 


ROUTINES 


* 


80 324800 








* 








* 


80324810 








* 




1. 


PRNTN - MPX 1443 PRINT ROUTINE 


* 


80 324820 








* 




2. 


TYPEN - MPX 1053/1816 PRINT RTN* 


80 324830 








* 








* 


80 324840 








* 


CALLED 


SUBROUTINES 


* 


80 324850 








* 








* 


80 324860 








* 




1. 


LGHEX - CONVERT TO CODED HEX 


* 


80 324870 








* 




2. 


LGDEC - CONVERT TO CODED DEC 


* 


80 324880 








* 




3. 


LOAD - BUILD OUTPUT MESSAGE 


* 


80 324890 








* 




4. 


BAKUP - VERIFY OP COMPLETE. 


* 


80 324900 








* 








* 


80 324910 








* 


POSSIBLE ABORT CONDITIONS 


* 


80 324920 








* 








* 


80 324930 








* 


NONE 






* 


80 324940 








* 








* 


80 324950 








* 


ROUTINE 


ENTRY LG 


* 


80 324960 








* 


ROUTINE 


EXIT LGEXT 


* 


80 324970 








* 








* 


80 324980 








********************************************* 


80 324990 








* 








* 


80 325000 


0D9B 





0000 


LG 
* 


DC 




*-* RETURN ADDRESS 




80 3250 IC 
80 3250 20 


0D9C 





6700 FFD2 




LDX 


L3 


EDITA SET HCCA INDEX 




80 3250 30 


0D9E 





1010 




SLA 




16 CLEAR DFT IN 




80 32 50 40 


0D9F 





D32B 




STO 


3 


DFTOP-EDITA OPERATION IND 




80 32 50 50 


ODAO 





C31E 




LD 


3 


STATS-ED1TA SET INTERFACE 




80 3250 60 


0DA1 





E872 




OR 




K1000 * STATUS WORD 




80 3250 70 


0DA2 





D31E 




STO 


3 


STATS-EDITA * BIT 3 




80 3250 80 


0DA3 





6963 




STX 


1 


LGEND+1 SAVE INDEX 1 




80 3250 90 


0DA4 





6A64 




STX 


2 


LGEND+3 SAVE INDEX 2 




80 325100 


0DA5 





6600 FF70 


LGOO LDX 


L2 


INOUT IX 2 = MESSAGE AREA 


80325110 


0DA7 





1010 




SLA 




16 




80325120 


0DA8 


1 


D400 0E57 




STO 


L 


M12SW CLEAR HALF WORD SW 




80325130 


ODAA 





D400 FF69 




STO 


L 


MSGWC CLEAR MSG WORD COUNT 


80 325140 


ODAC 


1 


6580 0D9B 




LDX 


11 


LG IX 1 = CALL STRING 


ADRS 


80 325150 


ODAE 





C100 




LD 


1 


MESSAGE STRING ADDRS 


80325160 


ODAF 





D004 




STO 




LG01+1 SAVE ADDRESS 




80325170 



ODBO 





C102 




LD 


1 


2 


0DB1 





D400 


FFDC 


STO 


L 


LOGAD 


0DB3 





6500 


0000 


LG01 LDX 


LI 


*-* 


0DB5 





1090 




SLT 




16 


0DB6 





C100 




LD 


1 





0DB7 





18D8 




RTE 




24 


0DB8 





1808 




SRA 




8 


0DB9 


1 


8400 


0994 


A 


L 


Kl 


ODBB 





D059 




STO 




LOGWC 


ODBC 





18C8 




RTE 




8 


ODBD 


1 


4C20 


0DD3 


BSC 


L 


LG03,Z 


ODBF 





6580 


FFDA 


LDX 


11 


ACT IV 


0DC1 





C100 




LD 


1 





0DC2 





405F 




BSI 




LGHEX 


0DC3 





6906 




STX 


1 


LG02+1 


0DC4 


1 


6580 


0DB4 


LDX 


11 


LG01+1 


0DC6 





7102 




MDX 


1 


2 


0DC7 





405A 




BSI 




LGHEX 


0DC8 





69EB 




STX 


1 


LG01+1 


0DC9 





6500 


0000 


LG02 LDX 


Li 


*-* 


ODCB 





4056 




BSI 




LGHEX 


ODCC 





4055 




BSI 




LGHEX 


ODCD 


1 


6580 


0DB4 


LDX 


11 


LG01+1 


ODCF 





C400 


FFCO 


LD 


L 


CODE 


0DD1 





4067 




BSI 




LOAD 


0DD2 





7007 




MDX 




LG0 4 










* THIS 


SECTION BY 










* PID, 


MID, 


,RID AND 










* MESSAGES BY FIL 










* POSITIONS WITH 



0DD3 6315 
0DD4 C400 FFCO 
0DD6 4062 
0DD7 73FF 
0DD8 70FB 
0DD9 7103 



* 
LG03 



LDX 

LD 

BSI 

MDX 

MDX 

MDX 



3 21 
L CODE 

LOAD 
3 -1 

LG0 3+1 
1 3 



FETCH TERM ADDRESS 
SAVE ADDRESS 
1X1 = MSG STRING ADRS 
CLEAR Q REG 
FETCH LINE NMBR/WD CT 
LINE NMBR TO O-WD CT TO'A' 
POSITION WORD COUNT 
ADD 1 

SAVE CALL WORD CUUNT 
POSITION LINE NUMBER 
BRANCH IF NOT 1ST LINE 
1X1 = ADDRS OF ACT PID 
FETCH PID TO 'A' 
CONVERT PID TO PRINT CODE 
SAVE CONTENTS OF 1X1 
1X1 = MSG STRING ADRS 
ADJ TO ADDRS OF MSG ID 
CONVERT MID TO PRINT CODE 
SAVE MSG STRING ADRS 
1X1 = ADDRESS OF RTN ID 
CONVERT RID TO PRINT CODE 
CONVERT RAD TO PRINT CODE 
1X1 = ADDRESS CALL TERM 
FETCH SPACE CODE 
SET XTRA SP IN OUTPUT 
BYPASS NOT 1ST LINE OPER 
* 
PASSES THE PRINTING OF * 
RAD ON MULTIPLE LINE * 
LING THOSE PRINT * 
SPACES. * 

IX 3 = 21 SPACES 

FETCH CODED SPACE 

BRANCH TO STORE IN OUTPUT 

SKIP AFTER 21 SPACES 

LOOP TIL DONE 

ADJUST MSG STRING ADRS 



ODDA 
ODDB 



C1FE 
4804 



ODDC 7006 



OODO 
ODDF 
ODEO 



74FF 0E15 

7001 

7003 



0DE1 4040 
0DE2 70FA 
0DE3 4076 



0DE4 6700 FFD2 
0DE6 C031 
0DE7 7400 FFDD 



* * 
* 

* 

* 

* 
* 

* * 
* 
LG04 



LG05 



LG06 

LG07 
* 

* 

* 
* 
* 
LG07A 



******** 
THIS SECTION WILL CALL ON EITHER THE * 
HEX OR DEC CONVERSION ROUTINES ACCOR- * 
DING TO THE CONTENTS OF THE HEX/DEC SW* 
IN THE MESSAGE STRING. * 

* 
0000 CALL LGHEX * 
XX01 CALL LGDEC * 



HEX/DEC SW 
HEX/DEC SW 



LD 1 -2 FETCH HEX/DEC SWITCH 

BSC E SKIP IF HEX MODIFIERS 

MDX LG07 DECIMAL MODS - BRANCH 

MDX L LOGWC, -1 SKIP IF ALL MODS CNVRTD 

MDX LG06 BRANCH TO CONTINUE 

MDX LG07A BRANCH TO OUTPUT MESSAGE 

BSI LGHEX CONVERT WORD TO PRNT CODE 

MDX LG0 5 LOOP TIL ALL WORDS CVRTD 

BSI LGDEC BRANCH TO CONVERT TO DEC 



THIS SECTION WILL OUTPUT THE MESSAGE 
BY CALLING ON EITHER MPX PRNTN OR 
TYPEN AS SPECIFIED BY OUTPUT DEVICE 
EDIT. 



LDX L3 EDITA 
LD SPC53 
MDX L OUTDV.O 



SET MPXDM COMN INDEX 
FETCH 53 CODED DBL SPACE 
SKIP IF USING 1053 



80325180 
80 325190 
80 325200 
80 325210 
80 325220 
80 32 52 30 
80325240 
80 325250 
80 325260 
80325270 
80 325280 
80 325290 
80 325300 
80325310 
80 325320 
80 325330 
80 325340 
80 325350 
80 325360 
80 325370 
80 325380 
80 325390 
80325400 
80325410 
80325420 
80 325430 
80 325440 
80 325450 
80 32 5460 
80 325470 
80 325480 
80 325490 
80 325500 
80 325510 
80325520 
80 325530 
80325540 
80 325550 
80 325560 
80 325570 
80 325580 
80325590 
80 325600 
80325610 
80 325620 
80 325630 
80325640 
80 325650 
80 325660 
80325670 
80 325680 
80 325690 
80 325700 
80325710 
80325720 
80 325730 
80 325740 
80 325750 
80 325760 
80 3257 70 
80 325780 
80 325790 
80 325800 
80 325810 
80 325820 
80 325830 
80 325840 
80 325850 



DATE 
EC NO. 



17JUN68 
411939 



20MAR70 
431320 



31JUL70 
431327 



PROG ID 
PAGE 



0803-2 
19 



DATE 
EC NO. 



17JUN68 
411939 



20MAR70 
431320 



31JUL70 
431327 



PROG ID 
PAGE 



0803-2 
19A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
ON LINE DIAGNOSTIC MONITOR 



PART NO. 
PAGE 



2246289 
20 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
ON LINE DIAGNOSTIC MONITOR 



PART NO. 
PAGE 



2246289 
20A 



0DE9 
ODEA 
ODEB 
ODED 
ODEF 
ODFO 
0DF1 
0DF3 
0DF4 
0DF5 
0DF7 
0DF8 
ODFA 
ODFC 
ODFD 
ODFE 
ODFF 
OEOO 
0E02 
0E04 



1010 
D39D 
7406 
6500 
6200 
C30B 
4C18 
7101 
6201 
C600 
D028 
6C00 
4580 
0E19 
1010 
D32C 

C019 

1 4C20 
1 4400 
1 7403 



FF69 
00B9 



0DF5 



0E16 

FFFE 

0000 



ODFD 
0EB6 
0D9B 



0E06 6500 0000 
0E08 6600 0000 



OEOA 
OEOB 



C31E 
F008 



OEOC D31E 



OEOD 
OEOF 



7400 0B12 
7002 



0E10 6C00 FFFD 
0E12 1 4C80 0D9B 



0614 1000 
0E15 0000 
0E16 2110 
0E17 20F0 
0E18 2121 



0E19 
0E1A 
0E1B 
0E1C 
0E1D 
0E1E 
0E1F 
0E20 
0E21 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
FF69 



SLA 
STO 
MDX 

LG08 LDX 
LDX 
LD 
BSC 
MDX 
LDX 

LG08A LD 

LG09 STO 
STX 
BSI 
DC 

LG10 SLA 
STO 
LD 
BSC 
BSI 
MDX 

* 

LGEND LDX 
LDX 

* 

LD 

EOR 

STO 

MDX 

MDX 

STX 



LGEXT 

* 

# 

K1000 

LOGWC 

CTL53 

CTL43 

SPC53 

* 
* 
LISTP 



16 

3 WDCNT-ED 
L MSGWC6 
LI $TYPE 





OUTDV-ED 
LG0 8A.+- 



1 1 

2 1 

L2 CTL53 
LISTP+7 
MPXOP 


LISTP 
16 

MPXOP-ED 
LISTP 
LG10.Z 
BAKUP 
LG,3 



L 
II 



LI 
L2 



ZERO 'A' FOR 1443 DBL SPC 
ITA STORE IN OUTPUT MESSAGE 
INCLUDE HDNG IN WD CT 
IX = MPX TYPE XFER ADURS 
IX TO FETCH 1053 PARAMETER 
ITA FETCH OUTPUT DEVICE TYPE 
BRANCH ZERO = 1053 
XFER ADDRESS FOR PRNTN 
IX TO FETCH 1443 PARAMETER 
FETCH PROPER CTRL PARAM 
SET IN I/O LIST 
SET MPX IN OPER IND 
CALL MPX PRINT ROUTINE 
I/O LIST ADDRESS 
CLEAR MPX IN 
ITA OPERATION INDICATOR 
FETCH LINK/BUSY PARAM 
BRANCH IF BUSY 
GO TEST OP COMPLETE 
MODIFY CALL FOR RETURN 

RESTORE INDEX 1 
RESTORE INDEX 2 



STATS-EDITA REMOVE LOG BIT 3 

K1000 *FROM INTERFACE 

STATS-EDITA *STATUS WORD 

POLL,0 SKIP IF DFT POLL 

*+2 

DFTOP SET DFT IN OP IND 



BSC I LG 



RETURN TO USER 



CONSTANTS 



DC /1000 HEX 1000 

DC CALL WORD COUNT 

DC /2110 1053 I/O CONTROL PARAM 

DC /20F0 1443 I/O CONTROL 

DC /2121 DOUBLE SPACE -1053 CODE 

MPX PRINT CALL I/O PARAMETER LIST 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



*-* 


♦ — :£ 
*-# 
*-* 
*-* 



MSGWC 



LINK/BUSY 
EXIT TYPE 
SYSTEM USE 

* * 

* # 
SYSTEM USE 
ERROR PARAMETER 
CONTROL PARAMETER 
OUTPUT AREA 



* 
*- 

*- 

# 

* 

* 

* 

* 

* 

* 

* 

* 

* 



LG - LGHEX SUBROUTINE 



THIS SUBROUTINE CONVERTS MACHINE HEX * 
TO PRINT CODE HEX. THE PRINT CODE * 
(1443 OR 1053/1816) IS DETERMINED BY * 
THE OUTPUT DEVICE SPECIFIED IN MPXDM * 
EDIT. * 

ONE WORD IS CONVERTED EACH TIME THE * 
SUBROUTINE IS ENTERED. LGHEX CALLS ON * 
LOAD TO STORE THE CONVERTED WORD IN * 
THE OUTPUT MESSAGE. * 

* 

CALLING SEQUENCE * 



80 325860 
80 325870 
80 325880 
80 325890 
80 325900 
80 325910 
80 325920 
80 325930 
80 325940 
80325950 
80 325960 
80 325970 
80 325980 
80 325990 
80 326000 
80 3260 10 
80 3260 20 
80 3260 30 
80 3260 40 
80 3260 50 
80 3260 60 
80 3260 70 
80 3260 80 
80 3260 90 
80 326100 
80326110 
80 326120 
80 326130 
80 326140 
80 326150 
80 326160 
80 326170 
80326180 
80 326190 
80 326200 
80 326210 
80 326220 
80 3262 30 
80 326240 
80 326250 
80 326260 
80 326270 
80 326280 
80 326290 
80 326300 
80326310 
80 326320 
80326330 
80 326340 
80 326350 
80 326360 
80 326370 
80 326380 
80 326390 
80 326400 
80 326410 
80 326420 
80 326430 
80 326440 
80 326450 
80 326460 
80 326470 
80 326480 
80 326490 
80 326500 
80 326510 
80 326520 
80 326530 



0E22 0000 



0E23 
0E24 
0E25 
0E26 
0E28 
0E29 
0E2A 
0E2B 
0E2D 
0E2E 
0E2F 
0E30 1 
0E32 



1090 

6304 

6B12 

6700 FFC1 

C100 

18CC 

0001 

C700 0000 

400B 

1010 

1084 

74FF 0E38 

70F7 



0E33 7101 
0E34 C3FF 
0E35 4003 

0E36 1 4C80 OE22 



OE38 0000 



* 
* 

* 
* 

* 
* 
* 
* 



BSI LGHEX 
IX 1 = ADDRS OF WORD 
TO CONVERT 

CALLED ROUTINES 

NONE 
CALLED SUBROUTINES 

1. LOAD - BUILD OUTPUT MESSAGE 



* POSSIBLE ABORT CONDITIONS 

* 

* NONE 

* SUBROUTINE ENTRY LGHEX 

* SUBROUTINE EXIT LGHXT 
* 



* 

* 
* 
* 

* 
* 
* 

* 

* 
* 

* 



* 

LGHEX 

* 



LGHX1 
LGHX2 



DC 

SLT 

LDX 

STX 

LDX 

LD 

RTE 

STO 

LD 

BSI 

SLA 

SLT 

MDX 

MDX 

MDX 

LD 

BSI 



*-* 

16 

4 

CVCT 

CODE+1 



12 

LGHX2+1 

*-# 

LOAD 

16 

4 

CVCT.-l 

LGHX1 



1 1 
3 -1 
LOAD 



3 

3 

L3 

1 



L3 



* 
LGHXT 

* 



RETURN ADDRESS 

CLEAR Q REO 
SET CHARACTER 
*CONVERT COUNTER = 4 
IX3=CHAR CODE TBL ADRS 
FETCH WORD TO CONVERT 
POSITION HI ORDER CHARACT 
PUT IN LOAD INSTRUCTION 
FETCH CODED CHARACTER 
BRANCH TO STORE IN OUTPUT 
CLEAR ACC 

POSITION NEXT CHARACTER 
SKIP WHEN 4 CONVERTED 
BRANCH TO CONVERT NEXT 

INCREMENT WORD INDEX 

FETCH CODED SPACE 

BRANCH TO STORE IN OUTPUT 



BSC I 



LGHEX RETURN TO USER 
CONSTANTS 



CVCT 

* 

# 

* 
# 
# 
* 
* 
* 
# 
* 
* 
* 

* 
* 
* 



DC 







CONVERSION COUNTER 



LG 



LOAD SUBROUTINE 



THIS SUBROUTINE IS USED TO BUILD THE 
CODED OUTPUT MESSAGE STRING IT PACKS 
THE CHARACTERS 2 PER WORD AND STORES 
THEM IN THE UUIPU1 AREA. THE OUTPUT 
AREA BEGINS WITH THE WORD COUNT AT 
LOCATION MSGWCIFF691.THE VARIABLE OUT 
PUT AREA STARTS AT LOC .WOCNT ( FF6F ) . 



CALLING SEQUENCE 

BSI LOAD 
•A'REG = CHARACTER 
IX 2 = LOCATION TO STORE 
NEXT WORD. 



CALLED ROUTINES 



80 326540 
80 326550 
80 326560 
80 326570 
80 326580 
80 326590 
80 326600 
80 326610 
80 326620 
80 326630 
80 326640 
80 326650 
80 326660 
80 326670 
80 326680 
80 326690 
80 326700 
80 326710 
80 326720 
80 326730 
80 326740 
80 326750 
80 326760 
80 326770 
80 326780 
80 326790 
80 326800 
80 326810 
80 326820 
80 326830 
80 326840 
80 326850 
80 326860 
80 326870 
80 326880 
80 326890 
80 326900 
80326910 
80 326920 
80 326930 
80 326940 
80 326950 
80 326960 
80 326970 
80 326980 
80 326990 
80 327000 
80 3270 10 
80 3270 20 
80 3270 30 
80 3270 40 
80 3270 50 
803270 60 
80 3270 70 
80 3270 80 
80 3270 90 
80 327100 
80 327110 
80 327120 
80327130 
80 327140 
80327150 
80 327160 
80 327170 
80327180 
80 327190 
80 327200 
80 327210 



DATE 
EC NO. 



17JUN68 
411939 



20MAR70 
431320 



31JUL70 
431327 



PROG ID 
PAGE 



0803-2 
20 



DATE 
EC NO. 



17JUN68 
411939 



20MAR70 
431320 



31JUL70 
431327 



PROG ID 
PAGE 



0803-2 
20A 



I I II I ! 



I I I I 



I I I I I 



I I I I II I I 
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DATE 
EC NO. 











* 










* 


80 327220 












* 




NONE 




* 


80327230 












* 










* 


80 327240 












* 




CALLED 


SUBROUTINES 


* 


80 327250 












* 










* 


80 327260 












# 




NONE 




* 


80 327270 












* 










* 


80 327280 












* 


POSSIBLE ABORT CONDITIONS 


* 


80 327290 












* 










* 


80 327300 












* 


NONE 






# 


80 327310 












* 










* 


80 327320 












# 


SUBROUTINE 


ENTRY 


LOAD 


* 


80 327330 












* 


SUBROUTINE 


EXIT 


LDEXT 


* 


80 327340 












* 










* 


80 327350 
80 327360 
80 327370 












* 










# 












* 










* 


80 327380 




0E39 





0000 




LOAD 


DC 


*-* 


RETURN ADDRESS 




80 327390 












* 












80 327400 




0E3A 





7400 


FFDD 






MDX L 


OUTDV.O 


SKIP IF USING 1053 




80 327410 




0E3C 





1808 








SRA 


8 


POSITION 1443 CODE 




80 327420 




0E3D 


1 


E400 


0A3A 






AND L 


K.OOFF 


REMOVE UNWANTED BITS 


80 327430 




0E3F 





D818 








STD 


TEMP 


SAVE 'A' AND 'Q 1 REGS 


80 327440 




0E40 


1 


7400 


0E57 






MDX L 


M12SW.0 


SKIP IF 1ST WD OF 1 


^>AIR 


80 327450 




0E42 





7004 








MDX 


LD1 


2ND WORD BRANCH 




80 327460 




0E43 





1010 








SLA 


16 


CLEAR OUTPUT LOCATION 


80 327470 




0E44 





D200 








STO ; 


2 


*T0 BE STORED INTO 




80 327480 




0E45 





C012 








LD 


TEMP 


FETCH CHARACTER 




80 327490 




0E46 





1008 








SLA 


8 


POSITION 1ST WORD 




80 327500 




0E47 





EAOO 




LD1 


or ; 


2 


PACK DATA WITH 




80327510 




0E48 





D200 








STO 


2 


♦PREVIOUS 




80 327520 




0E49 


1 


7400 


0E57 






MDX L 


M12SW.0 


SKIP IF 1ST WORD 




80 327530 




0E4B 





7001 








MDX 


*+l 


BRANCH-NOT 1ST WORD 


80 327540 




0E4C 





7003 








MDX 


LD2 


1ST WORD BRANCH 




80 327550 




0E4D 





7201 








MDX 


2 1 


INCR STORAGE INDEX 




80 327560 




0E4E 





7401 


FF69 






MDX L 


MSGWC.l 


OUTPUT WORD COUNT 


«-l 


80 327570 




0E50 





C006 




LD2 


LD 


M12SW 


FETCH 1ST/2ND SWITCH 


80 327580 




0E51 


1 


F400 


0994 






EOR L 


Kl 


COMPLEMENT 




80 327590 




0E53 





D003 








STO 


M12SW 


SAVE IT 




80 327600 




0E54 





C803 








LDD 


TEMP 


RESTORE A AND REGS 


80 327610 












* 












80 327620 




0E55 


1 


4C80 


0E39 


LDEXT 


BSC I 


LOAD 


RETURN TO USER 




80 327630 












# 










* 


80 327640 












* 






CONSTANTS 


* 


80 327650 












* 










* 


80 327660 




0E57 





0000 




M12SW 


DC 





WORD 1/2 SWITCH 




80327670 




0E58 





0000 


0000 


TEMP 


DEC 





A AND Q STORAGE 




80 327680 












* 










* 


80 327690 
80 327700 












* 






















* 




LG • 


- LGDEC SUBROUTINE 


* 


80327710 
80 327720 


































* 










* 


80 327730 












* 




THIS SUBROUTINE i 


CONVERTS MACHINE hEX 


* 


80 327740 












* 




TO PRINT CODED DECIMAL. IT IS ENTERED 


* 


80327750 












* 




WHEN THE HEX/DEC 


WORD IN THE MESSAGE 


* 


80 327760 












* 




STRING 


CONTAINS 


A 1 IN BIT POSITION 


* 


80 327770 












* 




151XX01). IF THE 


2 HI-ORDER HEX 


* 


80 327780 












* 




CHARACTERS (XX) 


ARE 00, THEN ALL WORDS 


* 


80 327790 












# 




IN THE 


MESSAGE STRING WILL BE CON- 


* 


80 327800 












* 




VERTED 


TO SINGLE 


PRECISION DECIMAL. IF* 


80 327810 












* 




THE 2 1 


HI-ORDER HEX CHARACTERS CONTAIN 


* 


80 327820 












* 




OTHER ' 


fHAN 00 THEN THE B*ITS IN THE 


* 


80 327830 












* 




CHARACTERS CORRESPOND TO THE DATA 


* 


80 327840 












* 




WORDS 


IN THE MESSAGE STRING. A BIT 


* 


80 327850 












* 




BEING ( 


3N DESIGNATES THE 1ST WORD OF A 


* 


80 327860 












* 




PAIR OF WORDS TO 


BE CONVERTED TO 


* 


80 327870 












* 




DOUBLE 


PRECISION 


DECIMAL. 


* 


80 327880 












* 




LGDEC 1 


(JILL CALL 


ON THE LOAD ROUTINE 


* 


80 327890 




17JUN68 20MAR70 


31JUL70 








PROG ID 


0803-2 


411939 431320 


431327 








PAGE 


21 



TO STORE THE CONVERTED WORDS IN THE 
OUTPUT STRING. 



0E5A 0000 



0E5B 
0E5D 
0E5F 
0E60 
0E61 
0E62 
0E63 
0E64 
0E66 
0E67 
0E68 
0E69 
0E6A 
0E6B 
0E6C 
0E6E 
0E6F 
0E71 
0E72 
0E73 
0E74 
OE75 
0E76 



74FF 0E15 
4C10 0E68 



OE77 
0E79 
0E7A 
0E7H 
0E7C 
0E7E 
0E7F 
0E80 
0E82 
0E83 
0E84 
0E85 
0E86 
0E87 



1082 
D03D 
C101 

1890 

C100 

74FF 0E15 

7101 

7004 

1081 
D034 
C100 
1890 
6700 FFCO 

0831 

1 4C10 0E75 
10A0 

982D 
D82C 
O 7311 
C300 
40C2 



1 6700 0EA4 

6919 

CBOO 

U826 

6500 FFC1 

C821 

9822 

1 4C28 0E89 
881F 

081C 
C81U 
8B00 
DB1B 
7101 



CALLING SEQUENCE 



* 

* 

* 

* 

* 

BSI LGDEC * 

•A» REG = HEX/DEC WORD * 

IX 1 = ADDRESS OF MESSAGE*' 



CALLED ROUTINES 

NONE 
CALLED SUBROUTINES 

I. LOAD - BUILD OUTPUT MESSAGE 
POSSIBLE ABORT CONDITIONS 
NONE 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



* SUBROUTINE ENTRY 

* SUBROUTINE EXIT 

* 

* 

LGDEC DC *-* 



LGDEC 
LGDXT 



LGD1 



LGD2 



I.GD3 



LGD4 



MDX 

BSC 

SLT 

STO 

LD 

SRT 

LD 

MDX 

MDX 

MDX 

SLT 

STO 

LD 

SRT 

LDX 

STD 

BSC 

SLT 

SD 

STD 

MDX 

LD 

BSI 



1 



1 



RETURN ADDRESS 

L LOGWC-1 ADJUST WORD COUNT 

L LGD2,- BRANCH ON SNGL PREC 

2 ADJUST HEX/DEC SW 

HDSW SAVE HEX/DEC SW 

1 1 FETCH LO-ORDER WORD 

16 SET IN REG 

FETCH HI-URDER WORD 
LOGWC-1 ADJUST WORD COUNT 

1 ADJUST WORD INDEX 
LGD3 BYPASS SNGL PREC OPER 
1 ADJUST HEX/DEC SW 
HDSW SAVE HEX/DEC SW 

1 FETCH SINGLE PREC WORD 

16 POSITION IN REG 

L3 CODE 1X3 = CODE TBL ADDRESS 

DPWK1 SAVE THE WORD 

L LGD4,- BRANCH IF POSITIVE NMBR 

32 CONVERT NEGATIVE NMBR 

DPWK1 *T0 POSITIVE NUMBER 

DPWK1 SAVE THE WORD 

3 17 SET IX TO FETCH - SIGN 

3 FETCH CODED SPACE/NEC SGN 

LOAD BRANCH TO SET IN OUTPUT 



CONVERT ONE WORD TO DECIMAL 



LGD5 



LGD6 



DATE 
EC NO. 



17JUN68 
411939 



20MAR70 
431320 



LDX 

STX 

LDD 

STD 

LDX 

LDD 

SU 

BSC 

AD 

STD 

LDD 

AD 

STD 

MDX 



31JUL70 
431327 



L3 DECTB 1X3 = DEC CONSTANT TBL 

1 LGD8+1 SAVE INDEX REG 1 

3 FETCH DECIMAL CONSTANT 

DPWK2 SAVE THE CONSTANT 

LI CODE+1 1X1 = PRNT CODE TBL ADRS 

DPWK1 FETCH HEX WORD 

DPWK2 SUB CONSTANT 

L LGD7.+Z BRANCH ON NEG RESULT 

DPWK2 RESTORE THE WORD 

DPWK1 *AFTER SUBTRACTION 

DPWK2 ADJUST CONSTANT TO 

3 *NEXT SEO MOST SIG 

DPWK2 *DIGIT AND SAVE 

1 1 ADJ PRINT CODE ADRS 



80 327900 
80 327910 
80 327920 
80 327930 
80 327940 
SO 327950 
80 327960 
80 327970 
80 327980 
80 327990 
80328000 
80 3280 10 
80 3280 20 
80 3280 30 
80 3280 40 
80 3280 50 
80 3280 60 
80 3280 70 
80 3280 80 
80 3280 90 
80 328100 
80328110 
80328120 
80328130 
80328140 
80328150 
80 328160 
80328170 
80 328180 
80328190 
80 328200 
80 328210 
80 328220 
80 328230 
80328240 
80 328250 
80 328260 
80 328270 
80328280 
80328290 
80 328300 
80 328310 
80 328320 
80 328330 
80 328340 
80 328350 
80328360 
80 328370 
80 328380 
80328390 
80 328400 
80 328410 
80 328420 
80 328430 
80 328440 
80 328450 
80 328460 
80 328470 
80 328480 
80 328490 
80 328500 
80 328510 
80328520 
80328530 
80328540 
80328550 
80 328560 
80 328570 



PROG ID 
PAGE 



0803-2 
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OE88 
0E89 
0E8A 



70F5 
8B00 
D815 



LG07 



0E8B C100 
0E8C 40AC 





1 



0E8D 
0E8E 
0E8F 
0E90 



7302 
CBOO 
18D0 
4C20 0E7A 



0E92 6500 0000 
0E94 7101 
0E95 C400 FFCO 
0E97 40A1 
0E98 C005 
0E99 1 74FF 0E15 
0E9B 70C1 

0E9C 1 4C80 0E5A 



0E9E 0000 
OEAO 0000 0000 
0EA2 0000 0000 



0EA4 
0EA6 
0EA8 
OEAA 
OEAC 
OEAE 
OEBO 
0EB2 
0EB4 



0098 
OOOF 
0001 
0000 
0000 
0000 
0000 
0000 
0000 



9680 
4240 
86A0 
2710 
03E8 
0064 
OOOA 
0001 
0000 



MDX 

AD 

STD 

LD 

BSI 

MDX 

LDD 

RTE 

BSC 



LGD6 REPEAT CK WITH NEXT CONST 

RESTORE THE WORD 

DPWK1 *AFTER SUBTRACTION 

FETCH OUTPUT CODE 

LOAD BRANCH TO SET IN OUTPUT 

2 ADJ CONSTANT INDEX 

FETCH NEXT CONSTANT 

16 POSITION TO CK IF DONE 

LGD5.Z BRANCH IF NOT END OF WORD 



* 
* 
* 
LGD8 



ONE WORD CONVERTED-SET SPACE IN MESSG * 

* 
LDX LI *-* RESTORE IX 1 
MDX 1 1 ADJUST TO NEXT WORD 

LD L CODE FETCH CODED SPACE 
BSI LOAD SET SPACE IN OUTPUT 
LD HDSW FETCH HEX/DEC SWITCH 
MDX L LOGWC-1 SKIP IF ALL WORDS CMPLT 
MDX LGD1 GO CONVERT NEXT WORD 



* 
LGDXT 

* 

* 

HDSW 
DPWK1 
DPWK2 

* 
# 
DECTB 



BSC I LGDEC 



RETURN TO USER 



CONSTANTS 



DECTC 



* 

*- 

* 

*~ 

* 

* 

* 
* 
# 
* 

# 
* 
* 

* 
* 
* 
* 

# 
* 
* 
* 
* 
* 
# 



HEX/DEC SW STORAGE 

DBL PRECISION WRK STG 

DBL PRECISION WRK STG 

* 

DECIMAL CONVERSION CONSTANT TABLE * 

* 

10000000 

1000000 

100000 

10000 

1000 

100 

10 

1 





DC 

DEC 

DEC 



DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 



LG - BAKUP SUBROUTINE 



* 
THE PURPOSE OF THIS SUBROUTINE IS TO * 
DETERMINE IF THE DIAGNOSTIC MESSAGE * 
HAS BEEN SUCCESSFULLY PRINTED. IT * 
VERIFIES THE OPERATION BY CHECKING THE* 
ERROR PARAMETER IN THE I/O LIST OF THE* 
PRINT CALL. IF THE PARAMETER IS SET TO * 
l.THEN OPERATION COMPLETE IS SIGNIFIED* 
AND THE SUBROUTINE EXITS. * 

IF THE PARAMETER IS OTHER THAN li OFF * 
LINE, NOT READY OR ERROR ) AND THE CALL * 
WAS ISSUED TO THE MPX 1053 TYPEN RTN, * 
THEN BAKUP RETURNS TO LG AT A POINT * 
WHERE THE CALL CAN BE REISSUED. IF THE * 
PARAMETER IS OTHER THAN 1 AND THE CALL* 

* 
* 
* 



WAS TO THE MPX 1443 PRNTN ROUTINE, 
THEN BAKUP REINITIALIZES THE OUTPUT 
CODE TABLE AND THE I/O LIST FOR 1053 

OUTPUT. A RETURN IS THEN MADE TO LG * 

WHERE A CALL CAN BE MADE TO THE MPX * 

1053 TYPEN ROUTINE. 8AKUP WILL, ON THE * 

NEXT ENTRY, RESTORE THE I/O LIST AND * 

OUTPUT TABLE TO THE 1443 IN ANTICIPA- * 

TION OF SUCCESSFUL COMPLETION OF THE * 

NEXT MPX 1443 PRNTN CALL. * 



80 328580 
80 328590 
80 328600 
80 328610 
80 328620 
80 328630 
80 328640 
80 328650 
80 328660 
80 328670 
80328680 
80 328690 
80 328700 
80 328710 
80 328720 
80 328730 
80328740 
80 328750 
80 328760 
80 328770 
80 328780 
80328790 
80 328800 
80 328810 
80 328820 
80 328830 
80 328840 
80 328850 
80 328860 
80328870 
80 328880 
80328890 
80 328900 
80328910 
80 328920 
80328930 
80 328940 
80 328950 
80 328960 
80 328970 
80 328980 
80 328990 
80 329000 
80 3290 10 
80 3290 20 
80 3290 30 
80 329040 
80 3290 50 
80 3290 60 
80 3290 70 
80 3290 80 
80 3290 90 
80 329100 
80 329110 
80 329120 
80 329130 
80 329140 
80 329150 
80 329160 
80 329170 
80 329180 
80 329190 
80 329200 
80 329210 
80 329220 
80 3292 30 
80 329240 
80 329250 



DATE 
EC NO. 



17JUN68 
411939 



20MAR70 
431320 



31JUL70 
431327 



PROG ID 
PAGE 



0803-2 
22 
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0EB6 0000 

0EB7 1 74FF 0E1F 
0EB9 7015 
OEBA 1 7400 OEFO 
OEBC 700C 
OEBD 1 7400 OEEF 
OEBF 7002 

OECO 1 4C80 0EB6 



0EC2 
0EC4 
0EC6 
0EC7 
0EC8 
0EC9 
OECB 
OECC 
OECD 
OECF 
0EU1 
0ED2 
0ED4 
0ED^> 
0ED7 
0ED8 
0ED9 



6C00 FFDD 

1 6500 0EF7 
1010 

D027 

7019 

1 74FF OEFO 
700E 

C0E6 

1 4C00 0DF7 
7400 FFDD 

/OOA 

1 74FF 0E1F 

70E5 

1 C400 0995 
D018 

C018 
70F3 



OEDA 1 4C00 ODED 

OEDC 6812 
OEDD 1010 



* 


IF T 


HE 


1053 IS THE OUTPUT DEVICE.AND 


* 


80 329260 


* 


IT IS OFF LINE, THEN BAKUP WILL 1ST 


* 


80 3292 70 


* 


CALL 


TYPEN TO PLACE THE DEVICE ON LINE* 


80 329280 


* 


CALL 


TYPEN AGAIN TO OUTPUT THE MESSAGE* 


80 329290 


* 


AND 


FINALLY CALL TYPEN TO TAKE THE 


* 


80 329300 


* 


1053 


OFF LINE AGAIN. IN THIS MANNER 


* 


80 329310 


* 


SYSTEM* 


i WITH A SINGLE 1053 CAN BE 


* 


80 329320 


* 


ACCOMODATED. IT 


SHOULD BE NOTED THAT 


* 


80 329330 


* 


THE 


CALL TO PLACE THE 1053 ON OR OFF 


* 


80 329 340 


* 


LINE 


APPLIES TO 


THE 1ST TYPEWRITER 


* 


80 329350 


* 


ONLY 


. 






* 


80 329360 


* 










* 


80 329370 


* 






CALLING SEQUENCE 


* 


80 329380 


* 










$ 


80 329390 


* 






BSI 


: L BAKUP 


* 


80329400 


* 










* 


80 329410 


* 


CALLED 


ROUTINES 




* 


80 329420 


* 










* 


80 329430 


'•'■r 




NONE 




* 


80 329440 


* 










* 


80 329450 


* 


CALLED 


SUBROUTINES 


* 


80 329460 


* 










* 


80 329470 


* 




NONE 




* 


80 329480 


* 










* 


80 329490 


* POSSIBLE 


ABORT CONDITIONS 


* 


80 329500 


* 










* 


80329510 


* NONE 








* 


80 329520 


* 










* 


80 329530 


* SUBROUTINE 


ENTRY 


BAKUP 


* 


80 329540 


* SUBROUTINE 


EXITS 


BPXT1 - NORMAL 


* 


80 329550 


* 








BPXT2 - REISSUE TYPEN 


* 


80329560 


* 








BPXT3 - PRNTN TO TYPEN* 


80 329570 


# 










',' 


80 329580 












-$ 


80329590 


$ 










* 


80 329600 


BAKUP 


DC 




*-* 


RETURN ADDRESS 




80329610 


* 












80 329620 




MDX 


L 


LISTP+6, 


-1 SKIP IF OP COMPLETE 


80 329630 




MDX 




BKUP2 


OFF LINE OR ERROR [ 


3RANCH 


80 329640 


BPXTO 


MDX 


L 


OFFLN.O 


SKIP IF USING ON LINE 1053 


80 329650 




MDX 




BKP1A 


BRANCH-USING OFF LINE 1053 


80 329660 




MDX 


L 


BCKUP, 


SKIP IF NOT BACK UP DEVICE 


80 329670 




MDX 




BKUP1 


BACKUP DEVICE-BRANCH 


80 329680 


* 












80 329690 


BPXT1 


BSC 


I 


BAKUP 


RETURN TO USER 




80 329700 


* 












80 329710 


BKUP1 


STX 


L 


OUTUV 


SET FOR 1443 OUTPUT 


80329720 




LDX 


LI 


. PTRCD 


1443 HONG CODE TABLE 


80329730 




SLA 




16 


CLEAR BACKUP DEVICE 


80329740 




STO 




BCKUP 


* INDICATOR 




80329750 




MDX 




BKUP4 


GO RESTORE CODE TABLES 


80 329760 


BKP1A 


MDX 


L 


0FFLN,-1 


SKIP IF RESTORE OFF LINE 


80 329770 




MDX 




BPXT2 


BRANCH TO DO PRINT 




80 329780 




LD 




DECTC+1 


A = CONTROL FOR DEV OFF LN 


80 329790 




BSC 


L 


LG0 9 


BRANCH TO TAKE DEV 


OFF LN 


80 329800 


BKUP2 


MDX 


L 


OUTDV.O 


SKIP IF 1053 OUTPUT 


80 329810 




MDX 




BKUP3 


1443 OUTPUT - BRANCH 


80 329820 




MDX 


L 


LISTP+6, 


-1 SKIP IF DEVICE OFF 


LINE 


80 329830 




MDX 




BPXTO 


NOT OFF LINE, EXIT 




80 329840 




LD 


L 


K2 


FETCH CONSTANT 2 




80 329850 




STO 




OFFLN 


SET OFF LINE INDICATOR 


80 329860 




LD 




OLPRM 


A = CONTROL FOR DEV ON LIN 


80 329870 




MDX 




BKUP2-2 


BRANCH TO PUT DEV ON LINE 


80 329880 


* 












80 329890 


BPXT2 


BSC 


L 


LG0 8 


RE-ISSUE TYPEN CALL 


80 329900 


* 












80 329910 


BKUP3 


STX 




BCKUP 


SET THE BACKUP INDICATOR 


80 329920 




SLA 




16 


SET OUTPUT DEVICE 


IND 


80 329930 
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OEDE 
OEEO 
0EE2 
0EE3 
0EE4 
0EE6 
0EE7 
0EE8 
0EE9 1 
OEEB 
OEEC 
OEED 1 



D400 FFDD 
6500 0EF2 
62FB 
C100 

D600 FF6F 
7101 
7201 
70FA 

7400 OEEF 
7001 
70D3 
4C00 0DA5 



OEEF 0000 
OEFO 0000 
0EF1 0101 



0EF2 811E 
0EF3 B29A 
0EF4 9E2l 
0EF5 3676 
0EF6 1621 



0EF7 0033 
0EF8 1412 
0EF9 1300 
OEFA 3525 
OEFB 3700 



STO 
LDX 

BKUP4 LDX 
LD 
STO 
MDX 
MDX 
MDX 
MDX 
MDX 
MDX 

BPXT3 BSC 

* 

* 

BCKUP DC 
OFFLN DC 
OLPRM DC 

* 
* 
TYPCD 



L 

LI 
2 

1 

L2 

1 

2 



OUTDV * FOR 10 53 OUTPUT 

TYPCD 1053 HONG CODE TABLE 

-5 NMBR OF WORDS TO MOVE 

FETCH HEADING CODE 
PHDNG+5 STORE IN HIGH CORE AREA 

1 STORE INDEX + 1 

1 MOVE IX + 1-SKIP ON 

BKUP4+1 CONTINUE MOVE OP 

BCKUP.O SKIP IF NOT BACKUP DEV 

BPXT3 1053 BACKUP-BRANCH 

BPXT1 NOT BACKUP BRANCH 

LGOO EXIT TO LG-RECALL 



CONSTANTS 



BACKUP INDICATOR 

OFF LINE 1053 INDICATOR 

/0101 PAR AM TO PUT 10 5 3-1 ON LN 

* 



1053 CODED HEADING 'CUST ENG' 



DC 
DC 
DC 
DC 
DC 



/811E 
/B29A 
/9E21 
Z3676 
/1621 



CR/C 
U/S 
T/SP 
E/N 
G/SP 



* 

* 

PTRCD DC 
DC 
DC 
DC 
DC 



1443 CODED HEADING 'CUST ENG' 



/00 33 
/1412 
/1300 
/3525 
/3700 



SP/C 
U/S 
T/SP 
E/N 
G/SP 



** BGIN ** 



* 
* 
* 
THIS ROUTINE IS THE 1ST INTERFACE * 
BETWEEN THE DFT AND MPXDM,. THE CALL ON* 
BGIN BY THE DFT IS A RESULT OF THE DFT* 
LOADER BRANCHING TO THE DFT END CARD * 
ADDRESS. THE DFT CALLS ON BGIN TO 
INFORM MPXDM OF ITS PID AND LOCATION 
IN CORE. 



* * 

* * 

* * 

********************************************* 

* MPXDM - BEGIN ROUTINE * 

************* ******************************** 

* 
* 

* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



BGIN WILL PERFORM THE FOLLOWING 
FUNCTIONS. 



1. STORE THE PID ADDRESS 
2. COMPUTE AND STORE THE 

ADDRESS IN LOC DFTCF. 
3. COMPUTE AND STORE THE DFT EDIT 

ADDRESS IN LOC EDITA. 
4. SET THE DFT ON-LINE INDICATOR 

HEX 8000. 

CALLING SEQUENCE 



IN LOC DFTID. 
DFT MLSCF 



TO 



BSI I BEGIN 

DC PID 

C(BEGIN) = BGIN 

PID = ADDRESS OF DFT PID 



80 329940 
80 329950 
80 329960 
80 329970 
80 329980 
80 329990 
80 330000 
80 330010 
80 3300 20 
80 3300 30 
80 3300 40 
80 3300 50 
80 3300 60 
80 330070 
80 3300 80 
80 330090 
80 330 100 
80 330110 
80 330120 
80330 130 
80 330140 
80 330150 
80 330160 
80 330170 
80 330 180 
80 330 190 
80 330 200 
80330210 
80 330 220 
80 330 2 30 
80 330 240 
80 330 250 
80 330 260 
80 330 270 
80 330 280 
80 330 290 
80 330 300 
80 330 310 
80 330 320 
80 330 330 
80 330 340 
80 330 350 
80 330 360 
80 330 370 
80 330 380 
80 330 390 
80 330 400 
80 330 410 
80 330 420 
80 330 430 
80 330440 
80 330 450 
80 330 460 
80 330 470 
80 330 480 
80 330 490 
80 330 500 
80 330 5 10 
80 330 520 
80 330 530 
80 330 540 
80 330 550 
80 330 560 
80 330 570 
80 330 580 
80 330 590 
80 330 600 
80 330610 



OEFC 0000 



OEFD 
OEFF 
OFOO 
0F01 
0F02 
0F04 
0F05 
0F07 
0F09 
OFOA 
OFOC 
OFOD 
OFOE 
0F10 
0F11 
0F12 
0F14 
0F15 
0F16 
0F18 
0F19 
0F1A 



6500 
CUE 
E81C 

DUE 

1 C480 
D001 
6700 
6F00 
730A 
6F00 
7301 

C300 

1 F400 
4820 

70FA 

1 C400 
D305 
7307 
6F00 
CUE 
F003 
DUE 



FF02 



OEFC 

0000 
FFF2 

FFF1 



091C 



0C45 



FFD2 



0F1B 1 4C80 0F1E 
OF ID 0400 



CAL 



* 
* 
* 
* 
* 
* 

* POSSIBL 

* 

* NONE 
* 

* ROUTINE 

* ROUTINE 
# 
********** 



CALLED ROUTINES 

NONE 
LED SUBROUTINES 

NONE 
E ABORT CONDITIONS 



ENTRY 
EXIT 



BEGIN 
BEG1N3 



BGIN 
* 



DC 



* 
* 

*************** ******************** 

* 
* 
PID ADURS ON ENTRY 



LDX 

LD 

OR 

STO 

LD 

STO 

LDX 

STX 

MDX 

STX 

BGIN1 MDX 
LD 
EOR 
BSC 
MDX 
LD 

BGIN2 STO 
MDX 
STX 
LD 
EOR 
STO 



LI EDITA 
1 STATS- 
K0 400 
1 STATS- 
I BGIN 

*+I 
L3 *-* 
L3 DFTID 

3 10 
L3 DFTCF 
3 1 
3 
L TERM 
Z 

BGIN1 
L K8000 
3 5 
3 7 
L3 EDITA 
1 STATS- 

K0400 
1 STATS- 



SET MPXDM COMN INDEX 
-EDITA SET BEGIN ROUTINE 

*STATUS BIT - 
•EDITA *BIT 5 

FETCH PID ADDRESS 

SET 1X3 = PID ADDRS 
STORE IN HI-CORE AREA 
ADJSUT TO MLSCF ADDRS 
STORE IN HI-CORE AREA 
INCH MLSCF ADDRESS 
FETCH MLSCF ENTRY 
CK FOR TERMINATOR 
SKIP IF TERMINATOR 
BRANCH-SEARCH NEXT WD 
FETCH CONSTANT 8000 HEX 
SET ON LINE INDICATOR 
INCR TO EDIT AREA ADDRS 
STORE IN HI-CORE AREA 

EDITA CLEAR BEGIN 

*ROUTINE STATUS 

EDITA *BIT - BIT 5 



BGIN3 
K0400 

* 

***** 
* MPX 
***** 

* 
* 
* 



BSC I MPDM1 RETURN TO MPXDM CTRL 
DC /0400 CONSTANT HEX 0400 

* 

*****************************$#;{<.};$£££$,.;<. 

DM - DFT OBJECT DECK/PATCH CARD LOADER * 

******************************,•,;*.;. -j.^,,.,;.;;; 

* 

** MPDM1 ** * 



ROUTINE MPDM1 ID THE DFT OBJECT DECK 
AND PATCH CARD LOADER. IT IS CALLED 
BY THE MONITOR CONTROL ROUT INE ( MCTRL ) 
FOLLOWING MPXDM INT IAL IZAT ION, AND 
EACH TIME THE OPERATOR REQUESTS THE 
LOADING OF A NEW DFT. 

THE FUNCTIONS OF MPDM1 ARE AS FOLLOWS 

l.CALL READ1 TO II\tf>UT PROGRAM CARDS. 
2. CALL BYPE SUBROUTINE TO DETERMINE 

IF THE CARD IS A 12-4 OBJECT CARD 

OR A DFT PATCH CARD. 
3. CONVERT 12-4 OBJECT CARDS FROM CARD 

TO CORE IMAGE. 



80 330 620 
80 330 630 
80 330 640 
80 330 650 
80 330 66Q 
80 330670 
80 330 680 
80 330 690 
80 330 700 
80 330 710 
80 330 720 
80 330 730 
80 330 740 
80 330 750 
80 330 760 
80 330 770 
80 330 780 
80 330 790 
80 3 30 800 
80 330 810 
80 330 820 
80330830 
80 330 840 
80 330 850 
80 330 860 
80 330 870 
80 330 880 
80 330 890 
80 330 900 
80 330 910 
80 330 920 
80 330930 
80 330 940 
80 330950 
80 330 960 
80 330970 
80 330980 
80 330990 
80 331000 
80 3310 10 
80 3310 20 
80 3310 30 
80331040 
80 3310 50 
80 3310 60 
80 3310 70 
80 3310 80 
80 3310 90 
80 331100 
80 331110 
80331120 
80 331130 
80331140 
80331150 
80 331160 
80 331170 
80 331180 
80331190 
80 331200 
80 331210 
80 331220 
80 3312 30 
80331240 
80331250 
80 331260 
80 331270 
80 331280 
80331290 



DATE 
EC NO. 



17JUN68 
411939 



2OMAR70 
431320 



31JUL70 
431327 



PROG ID 
PAGE 



0803-2 
23 



DATE 
EC NO. 



17JUN68 
411939 



20MAR70 
431320 



31JUL70 
431327 



PROG ID 
PAGE 



0803-2 
23A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
ON LINE DIAGNOSTIC MONITOR 



PART NO. 2246289 
PAGE 24 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
ON LINE DIAGNOSTIC MONITOR 



PART NO. 2246289 
PAGE 24A 



0F1E 0000 

0F1F 1 6500 OFCD 
0F21 6600 FFD2 
0F23 1 6700 1233 
0F25 C105 
0F26 U306 
0F27 F207 
0F28 1 4C18 0F30 
0F2A C300 
0F2B D206 

0F2C 4480 FFE7 
0F2E E021 
0F2F 0002 

0F30 1010 
0F31 D100 
0F32 0104 
0F33 D207 



4. RELOCATE THE DFT TO THE VARIABLE 

CORE AREA. 
6. REPLACE ALL DFT OFF-LINE TRANSFER 

VECTORS WITH THEIR ON-LINE COUNTER 

PART. 
7. WHEN THE END CARD IS READ, VERIFY 

THAT THE DFT IS ON-LINE COMPATABLE 

BY CHECKING ITS COMPATABIL I TY WORD. 
8. VERIFY THATTHE OFF-LINE TRANSFER 

VECTORS WERE CHANGED. 
9. EXIT TO THE DFT VIA THE END CARD 

ADDRESS. 

CALLING SEQUENCE 



BSI L MPDM1 



CALLED ROUTINES 



1. 
2. 

3. 



READ1 - CARD INPUT ROUTINE 
ABORT - MPXDM ERROR ABORT RTN. 
DFT VIA END CARD ADDRESS. 



* 
* 

* 
* 

* 

* 
* 

* 
* 
* 

* 
* 
* 
* 

* 

* 
* 

* 
* 
* 
# 

* 

* 
* 

# 
* 
* « 



CALLED SUBROUTINES 



1. 
2. 



TYPE - DETERMINE CARD TYPE. 
CKADR- CK FOR EXCEEDING 
AVAILABLE CORE. 



POSSIBLE ABORT CONDITIONS 



CODE 

E021 

E022 
E023 
E024 



E025 



CONDITION 



MPDM1 HAS BEEN ENTERED FOR 
EXECUTION BUT WAS NOT CALLED 
CHECKSUM ERROR ON LAST CARD READ 
DFT LOADED IS NOT RELOCATABLE 
OFF-LINE TRANSFER VECTORS WERE 
NOT CHANGED INCORRECT DFT 
ASSEMBLY. 

DFT NOT COMPATABLE WITH ON LINE 
OPERATION. 



* 
* 

* 

* 
* 

* 
* 
* 

* 

* 

* 
* 
* 
* 



ROUTINE 
ROUTINE 



ENTRY 
EXIT 



MPDM1 
DM10Y 



MPDM1 

* 



DC 

LDX 

LDX 

LDX 

LD 

STO 

EOR 

BSC 

LD 

STO 

BSI 

DC 
DC 



DM10A SLA 
STO 
STO 
STO 



*-* 

LI CUCNT 
L2 EUITA 
L3 EXTAD 

1 CK1-CDCNT 
3 ABM3-EXTAD 

2 LCLID-EU1TA 



RETURN ADDRESS 

SET 

REFERENCE 

INDEXES 
FETCH MPDM1 CK WORD 
SAVE IN ABORT MSG 
TEST IF = CALL 



ID 



L DM10A,£- BRANCH IF CORRECT 
3 EXTAD-EXTAD FETCH ERR ABORT EXIT 
2 ABRTX-EDITA STORE IN COMN AREA 

I ABORT ABORT EXIT 

/E021 MID-MPDM1 XEQ-NOT CALLED 
2 WORD COUNT 

16 CLEAR CARD COUNTER 

NT-CDCNT 

CLR VECTOR SWAP IND 
CLEAR CHECK WORD 



1 CDCNT-CDCNT 

1 VCTCK-CDCNT 

2 LCLID-EDITA 



80 331300 
80331310 
80 331320 
80 331330 
80 331340 
80 331350 
80331360 
80 331370 
80 331380 
80 331390 
80 331400 
80 331410 
80 331420 
80 331430 
80 331440 
80 331450 
80 331460 
80 331470 
80331480 
80331490 
80331500 
80331510 
80331520 
80331530 
80 331540 
80331550 
80331560 
80 331570 
80331580 
80 331590 
80331600 
80 331610 
80331620 
80 331630 
80 331640 
80 331650 
80 331660 
80 331670 
80 331680 
80 331690 
80 331700 
80331710 
80 331720 
80331730 
80 331740 
80331750 
80 331760 
80 331770 
80 331780 
80 331790 
80 331800 
80331810 
80331820 
80331830 
80 331840 
80331850 
80331860 
80 331870 
80331880 
80331890 
80 331900 
80331910 
80 331920 
80 331930 
80 331940 
80 331950 
80 331960 
80 331970 



0F34 D301 
0F35 1 7401 OFCD 
0F37 1 4400 11C7 
0F39 1 4400 OFDC 
0F3B 70FB 



0F3C 
0F3E 
0F3F 
0F41 
0F42 
0F43 
0F44 
0F45 
0F46 
0F47 
0F48 
0F49 
0F4A 
0F4B 
0F4C 
0F4D 
0F4E 
0F4F 
0F50 
0F51 



6500 FF70 

62B8 

6700 FF70 

C100 

18D4 

C101 

18CC 

D300 

18C8 

C102 

18C8 

D301 

18CC 

C103 

18C4 

D302 

7104 

7303 

7204 

70EF 



0F52 62CA 
OF53 C079 
0F54 1 D400 1238 
0F56 8600 FFA6 
0F58 4802 
0F59 8075 
0F5A 7201 
0F5B 70FA 
0F5C 9072 
0F5D 1 4C18 0F65 
0F5F 1 D400 1239 

0F61 4480 FFE7 
0F63 E022 
0F64 0002 



STO 

DM10B MDX 

DM10C BSI 

BSI 

MDX 

* 



LDX 
LDX 
LDX 
DM10E LD 
RTE 
LD 
RTE 
STO 
RTE 
LD 
RTE 
STO 
RTE 
LD 
RTE 
STO 
MDX 
MDX 
MDX 
MDX 



LDX 
LD 

STO 

A 

BSC 

A 

MDX 

MDX 

S 

BSC 

STO 



DM10F 



BSI 
DC 

DC 



3 DTABT-EXTAD CLR DFT ABORTED IND 
L CDCNT.l INCR CARD COUNT 
L READ1 BRANCH TO READ CARD 
L TYPE CALL CARD TYPE ROUTINE 
DM10C HEX CARD RETURN. GO 
*READ NEXT CARD. THE 
*TYPE ROUTINE WILL 
♦RETURN TO THE NEXT • 
♦SEQUENTIAL LOCATION 
*0N 12-4 CARD TYPES. 
* 
UNPACK DATA * 

LI INOUT XR1 = IN AREA FETCH 

2 -72 XR2 = COLUMN COUNT 
L3 INOUT XR3 = IN AREA STORE 

1 FETCH 1ST COL OF GROUP 

20 POSITION IN Q 

1 1 FETCH 2ND COL OF GROUP 

12 UNPACKS 1ST WORD 

3 STORE 1ST WORD OF GROUP 
8 POSITION REMAIN CHARACT 

1 2 FETCH 3RD COL OF GROUP 

8 UNPACKS 2ND WORD 

3 1 STORE 2ND WORD OF GROUP 

12 POSITION REMAIN CHARACT 

1 3 FETCH 4TH COL OF GROUP 

4 UNPACKS 3RD WORD 

3 2 STORE 3RD WORD OF GROUP 

1 4 ADJ FETCH XR TO NEXT GRP 
3 3 ADJ STORE XR TO NEXT GRP 

2 4 ADJ COL XR-SKIP ON 
DM10E BRANCH-UNPACK NEXT 



PERFORM CHECKSUM 



I 



GROUP 

* 
* 



2 -54 

CDCNT 
L ABM2 
L2 INOUT+54 

C 

C0N1 
2 1 

DM10 F 

COM 
L DM10G.+- 
L ABM3 



ABORT 
/E022 
2 



SET WORD INDEX 

FETCH CARD COUNT 

SAVE IN ABORT MESSAGE 

SUM WORDS 

SKIP IF NOT CARRY 

ADD IN CARRY 

INCR WORD XR-SKIP UN 

CONTINUE SUM CHECK 

SUB 1 FOR CK SUM 

BRANCH ON CK SUM 

SAVE IN ABORT MESSAGE 

ABORT EXIT 
MID-CHECKSUM ERROR 
WORD COUNT 



0F65 





6500 


FF70 


DM10G 


LDX 


LI 


INOUT 


0F67 





C065 






LD 




CDCNT 


0F68 





1801 






SRA 




1 


0F69 


1 


4C2 


0F73 




BSC 


L 


DM10H.Z 


0F6B 





C102 






LD 


1 


2 


0F6C 





1809 






SRA 




9 


0F6D 


1 


4C04 


0F35 




BSC 


L 


DM10B.E 


0F6F 





4480 


FFE7 




BSI 


I 


ABORT 


0F71 





E023 






DC 




/E023 


0F72 





0000 




& 


DC 







0F73 





C102 




DM10H 


LD 


1 


2 


0F74 





1008 






SLA 




8 



CHECK FOR RELOCATABLE PROG ON CARD 1 



INITIALIZE FETCH IX 
FETCH CARD COUNT 
REMOVE BIT 15 
BRANCH IF NOT 1ST CD 
FETCH ABS/REL WORD 
POSITION RELOCATE BIT 
BRANCH IF RELOCATABLE 

ABORT EXIT 

MID-PROG NOT RELOCATABLE 

WORD COUNT 

FETCH WORD COUNT 
REMOVE UNWANTED BITS 



80 331980 
80 331990 
80 332000 
80 3320 10 
80 3320 20 
80 3320 30 
80 3320 40 
80 3320 50 
80 3320 60 
80 3320 70 
80 3320 80 
80 3320 90 
80 332100 
80332110 
80332120 
80 332130 
80332140 
80332150 
80 332160 
80 332170 
80 332180 
80 332190 
80332200 
80332210 
80 332220 
80 332230 
80332240 
80 332250 
80332260 
80 332270 
80 332280 
80332290 
80 332 300 
80332310 
80332320 
80 332330 
80332340 
80 332350 
80 332360 
80 332370 
80332380 
80 332390 
80332400 
80 332410 
80 332420 
80 332430 
80 332440 
80 332450 
80 332460 
80 332470 
80 332480 
80 332490 
80 332 500 
80332510 
80 332520 
80 332530 
80332540 
80 332550 
80 332560 
80 332570 
80 332580 
80 332590 
80 332600 
80 332610 
80332620 
80 332630 
80332640 
80 332650 
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0F75 1808 
0F76 D059 
0F77 1 4C18 OFAC 
0F79 C100 
0F7A 8053 
0F7B D100 
0F7C 6680 FF70 
0F7E 1 4400 1019 



0F80 





C109 


0F81 





0200 


0F82 





7201 


0F83 





7101 


0F84 


1 


74FF 


0F86 





70F7 



OF DO 



0F87 61FA 
0F88 6680 FF70 
0F8A 6308 
0F8B C500 FF79 
0F8D 18D0 
0F8E 1010 
0F8F 1082 
0F90 1 4C18 0FA6 
0F92 1 4C04 0FA3 



0F94 
0F95 
0F96 
0F97 
0F98 
0F99 
0F9A 
0F9B 
0F9D 
0F9F 
OFAO 
0FA1 
0FA2 



6B09 
6300 
C03C 
B200 
1000 
7006 

6836 

1 C700 0FD5 
6700 0000 
7005 

7301 
8020 
70F4 



0FA3 





C200 


0FA4 





8029 


0FA5 





D200 


0FA6 





7201 


0FA7 





73FF 


0FA8 





70E5 


0FA9 





7101 


OFAA 





70DF 


OFAB 





7089 



OFAC C103 
OFAD 8020 
OFAE D01D 
OFAF C021 
OFBO 1 4C20 0FB6 

0FB2 4480 FFE7 
0FB4 E024 



DM10J 



DM1 OK 
DM10L 

* 
DM10M 



DM10N 
OhlOP 



SRA 




8 


STO 




WRDCT 


BSC 


L 


DM10U,+- 


LD 


1 





A 




RELFC 


STO 


1 





LDX 


12 


INOUT 


BSI 


L 


CKADR 



REPOSITION WORD COUNT 
SAVE WORD COUNT 
BRANCH IF END CARD 
FETCH DATA ADDRESS 
ADD RELOCATE FACTOR 
SAVE ADDRESS 
SET 1X2 = ADDRESS 
CALL ADDRS CK ROUTINE 



LD 


1 


9 




STO 


2 







MDX 


2 


1 




MDX 


1 


1 




MDX 


L 


WRDCT,- 


-1 


MDX 




DM10J 





ADD RELOCATION FAC 



RELOCATE PROGRAM TO PROPER CORE AREA * 



FETCH DATA WORD 
RELOCATE IN CORE 
INCREMENT STORE IX 
INCREMENT FETCH IX 
SKIP WHEN ALL STORED 
CONTINUE RELOCATION 

* 
TOR TO PROGRAM WORDS* 

# 
1X1 = NMBR CTRL WURDS 
1X2 = RELOC ADDRESS 
1X3 = BITS/CTRL WORD 
FETCH CONTROL WORD 
PUT IT IN Q REG 
CLEAR A REG 

POSITION PAIR CTL BITS 
BRANCH ON ABS WORD 
BRANCH ON REL WORD 

# 
INTERFACE VECTORS * 

# 
SAVE IX 3 

SET VECTOR SEARCH IX 
FETCH VECTOR WORD 
SEARCH FUR VECTOR 

BRANCH-NUT FUUND 
SET VECTOR CK WORD 
FETCH ON LINE VECTOR 
RESTORE IX 3 
BRANCH TO UPDATE PROG 
INCREMENT SEARCH IX 
INCR EXPECTED VECTOR 
CONTINUE SEARCH 



LDX 

LDX 

LDX 

LD 

RTE 

SLA 

SLT 

BSC 

BSC 

BITS 

STX 

LDX 

LD 

CMP 

NOP 

MDX 

STX 

LD 

LDX 

MDX 

MDX 

A 

MDX 



1 -6 
12 INOUT 

3 8 
LI INOUT+9 
16 
16 
2 
L DM10T.+- 
L DMIOR.E 



L3 
L3 



10. MODIFY 

1 DM10N+1 
( 
OFVEC 

i 

DM10P 

VCTCK 

CNVEC 



DM10S 

1 

C0N1 

DM10M+1 



BITS = 01. ADD RELOC FACTOR TO WORD. 



* 
DM10R 



DM10S 
DM10T 



DM10U 



LD 

A 

STO 

MDX 

MDX 

MDX 

MDX 

MDX 

MDX 



FETCH DATA WORD 

RELFC ADD RELOCATION FACTOR 

UPDATE PROGRAM 

1 UPDATE STORAGE IX 
-1 SKIP ON END CTRL WD 
DM10L GO CK NEXT PAIR OF BITS 
1 SKIP ON ALL CTRL WDS 
DM10K BRANCH FOR NEXT CTRL WD 
DM10B BRANCH TO READ NEXT CARD 

SERVICE END CARD * 



FETCH XFER ADDRESS 
ADD RELOCATION FACTOR 
SET IN EXIT 
FETCH VECTOR CK WORD 
BRANCH IF VCTRS SWAPED 

ABORT EXIT 

MID-INTFACF VECTS OFF LINE 



LU 


1 


3 


A 




RELFC 


STO 




DM10Y61 


LD 




VCTCK 


BSC 


L 


DM10V, Z 


BSI 


I 


ABORT 


DC 




/E024 



80 332660 
80 332670 
80 332680 
80 332690 
80 332700 
80332710 
80 332720 
80 332730 
80 332740 
80 332750 
80 332760 
80 332770 
80 332780 
80 332790 
80 332800 
80332810 
80 332820 
80332830 
80 332840 
80332850 
80332860 
80 332870 
80 332880 
80 332890 
80 332900 
80332910 
80332920 
80332930 
80 332940 
80 332950 
80 332960 
80 332970 
80332980 
80 332990 
80 333000 
80 3330 10 
80 3330 20 
80 3330 30 
80 3330 40 
80 3330 50 
80 3330 60 
80 3330 70 
80 3330 80 
80 3330 90 
80333100 
80 333110 
80333120 
80333130 
80333140 
80333150 
80 333160 
80333170 
80333180 
80333190 
80 333200 
80333210 
80333220 
80333230 
80 333240 
80333250 
80 333260 
80333270 
80333280 
80 333290 
80333300 
80 333310 
80 333320 
80 333330 



OFBb 0000 



DC 



WORD COUNT 



CHECK DFT FOR ON-LINE COMPAT ABI LI TY 



0FB6 





6780 


FFF4 


DM10V 


LDX 


13 


DFTBG 


OFBB 





730A 






MDX 


3 


10 


0FB9 





C300 




DM10W 


LD 


3 





OFBA 


1 


F400 


091C 




EOR 


L 


TERM 


OFBC 


1 


4C18 


OFCO 




BSC 


L 


DM10X,& 


OFBE 





7301 






MDX 


3 


1 


OFBF 





70F9 






MDX 




DM10W 


OFCO 





C306 




DM10X 


LD 


3 


6 


0FC1 





D400 


FFEO 




STO 


L 


DFTCW 


0FC3 





F010 






EOR 




CMPAT 


0FC4 





1001 






SLA 




1 


0FC5 


1 


4C18 


OFCB 




BSC 


L 


DM10Y.+ 


0FC7 





4480 


FFE7 




BSI 


I 


ABORT 


0FC9 





E025 






DC 




/E025 


OFCA 





0000 






DC 







OFCB 





4C00 


0000 


DM10Y 


BSC 


L 


*-* 



OFCD 0000 

OFCE 0000 

OFCF 0001 

OFDO 0000 

0FD1 0000 

0FD2 1001 

0FD3 012C 

0FD4 0002 



CDCNT DC 

RELFC DC 

C0N1 DC 

WRDCT DC 

VCTCK DC 

CK1 DC 

OFVEC DC 

CMPAT DC 



1X3 # DFT LOAD ADDRESS 
SET TO MLSCF FIELD 
FETCH MLSCF ENTRY 
TEST FOR TERMINATOR • 
BRANCH ON TERMINATOR 
INCREMENT SEARCH IX 
LOOP TO TEST NEXT ENTRY 
FETCH DFT COMPAT WORD 
SAVE IN HIGH CORE AREA 
TEST FOR COMPATABILITY 
CLEAR OUT BIT 
BRANCH IF COMPATABLE 

ABORT EXIT 

MID-DFT NOT ON LINE COMPAT 

WORD COUNT 

BRANCH TO DFT 



CONSTANTS * 

* 
CARD COUNTER 

ACTIVE RELOC FACTUR 

1 CONSTANT DEC 1 

CARD DATA WORD COUNTER 

VECTOR CHECK WORD 

/100 1 MPDM1 CHECK WORD 
/012C 1ST VECTOR ADDRESS 

2 COMPATABILITY IND 



ON LINE INTERFACE VECTOR ADDRESSES 



OFDb FFF5 


ONVEC DC 


/FFF5 


BEGIN 


0FD6 FFF6 


DC 


/FFF6 


START 


0FD7 FFF7 


DC 


/FFF7 


END 


0FD8 FFF8 


DC 


/FFF8 


LOG 


0FD9 FFF9 


DC 


/FFF9 


ERROR 


OFDA FFFA 


DC 


/FFFA 


REODV 


OFDB FFFB 


DC 


/FFFB 


RELDV 



MPDM1 



TYPE SUBROUTINE 



* THIS SUBROUTINE IS USED TO DETERMINE 

* THE TYPE OF DATA CARD JUST READ IF T 

* CARD READ WAS A HEX PATCH CARD, TYPE 

* WILL CALL ON THE HEX ROUTINE TU 

* PROCESS IT, AND THEN RETURN TO THE 

* CALLER AT THE ADDRESS HELD IN LOCATI 

* TYPE. IF THE CARD READ WAS A 12-4 

* OBJECT CARD ,TYPE WILL RETURN TO THE 

* CALLER AT THE ADDRESS+1 HELD IN LOC. 

* TYPE. IF ANY OTHER TYPE OF CARD IS 

* DETECTED (8-8 B INARY , ED 1 T .CONTROL OR 

* BLANK), TYPE WILL CALL ON THE ABORT 

* ROUTINE. 



HE* 



ON* 



CALLING SEOUENCE 
BSI TYPE 
CALLED ROUTINES 



80333340 
80 333350 
80 333360 
80333370 
80 333380 
80333390 
80333400 
80333410 
80 333420 
80 333430 
80 333440 
80 333450 
80 333460 
80 333470 
80 333480 
80 333490 
80 333500 
80333510 
80333520 
80 333530 
80333540 
80333550 
80333560 
80333570 
80333580 
80 333590 
80333600 
80 333610 
80333620 
80333630 
80 333640 
80 333650 
80 333660 
80333670 
80333680 
80 333690 
80 333700 
80 333710 
80 333720 
80 333730 
80 333740 
80 333750 
80 333760 
80333770 
80333780 
80 333790 
80 333800 
80333810 
80 333820 
80 333830 
80333840 
80333850 
80 333860 
80333870 
80333880 
80 333890 
80 333900 
80333910 
80333920 
80333930 
80 3 33940 
80 333950 
80 333960 
80 333970 
80 333980 
80 333990 
80 334000 
80 3340 10 



DATE 
EC NO. 



17JUN68 
411939 
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31JUL70 
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PROG 10 
PAGF 
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# 






1. 


HEX - 1 


SEX TO BINARY CONVERT 


* 


80 3340 20 










* 






2. 


ABORT - 1 


1PXDM ERROR ABORT RTN 


* 


80 3340 30 










* 












* 


80 3340 40 










* 




CALLED 


SUBROUTINES 


* 


80 3340 50 










* 












* 


80 334060 










* 




1 


MONE 




* 


80 3340 70 










* 












* 


80 334080 










* 


POSSIBLE 


ABORT CONDITIONS 


* 


80 3340 90 










* 












* 


80 334100 










* 


CODE * 






CONDITION 


* 


80 334110 










* 












* 


80 334120 










* 


E026 * 


BLANK CARD MAS READ 


* 


80334130 










* 


E027 * 


8-8 BINARY OR BLANK CARD READ 


* 


80 334140 










* 


E028 * 


EDIT CARD 


READ-NO OFT END CARD. 


* 


80 334150 










* 


E029 * 


CONTROL CARD READ-NODFT END CD. 


* 


80 334160 










* 












* 


80 334170 










* 


SUBROUTINE 


ENTRY 


TYPE 


« 


80 334180 










* 


SUBROUTINE 


EXIT 


TYPEX IF HEX CARD 


* 


80334190 










* 










BYPEY IF 12-4 CARD 


* 


80 334200 










* 












* 


80 334210 
80 334220 
80 334230 










* 












* 


OFDC 





0000 




TYPE 


DC 




*-* 


RETURN ADDRESS 




80 334240 










* 














80 3342 50 


OFDD 





C400 


FF70 






LD 


L 


INOUT 


FETCH 1ST CARD ENTRY 


80 334260 


OFDF 


1 


4C20 


0FF2 






BSC 


L 


TYPE2.Z 


BRANCH IF NOT ZERO 




80 334270 


0FE1 





COEB 








LD 




CDC NT 


FETCH CARD COUNT 




80 3342 80 


0FE2 





1801 








SRA 




1 


REMOVE BIT 15 




80 334290 


0FE3 





4818 








BSC 




+- 


SKIP IF NOT 1ST CARD 


80 334300 


0FE4 





7004 




* 




MDX 




TYPE1 


BRANCH TO CONTINUE 


CK 


80334310 
80334320 


0FE5 





4480 


FFE7 






BSI 


I 


ABORT 


ABORT EXIT 




80 334330 


0FE7 





E026 








DC 




/E026 


MID-BLANK CARD READ 


80 334340 


0FE8 





0000 




* 




DC 







WORD COUNT 




80 334350 
80 334360 


0FE9 





C400 


FF71 


TYPE1 


LD 


L 


INOUT+1 


FETCH 2ND CARD ENTRY 


80 334370 


OFEB 





1008 








SLA 




8 


POSITION TO CK 8-8 




80 334380 


OFEC 





4820 








BSC 




Z 


SKIP IF ZERO 




80 334390 


OFED 





7024 




* 




MDX 




TYPE5 


BRANCH-12/4 TYPE 




80 334400 
80 334410 


OFEE 





4480 


FFE7 






BSI 


I 


ABORT 


ABORT EXIT 




80 334420 


OFFO 





E027 








DC 




/E027 


MID-8/8 DFT OBJECT 


DECK 


80 334430 


0FF1 





0000 




* 




DC 







WORD COUNT 




80 334440 
80 334450 


0FF2 


1 


F400 


0C45 


TYPE2 


EOR 


L 


K8000 


CHECK FOR PATCH CARD 


80 334460 


0FF4 





4820 








BSC 




Z 


SKIP IF PATCH CARD 




80 334470 


0FF5 





700A 








MDX 




TYPE3 


BRANCH-CONTINUE CK 




80 334480 


0FF6 





6821 








STX 




PATCH 


SET PATCH CARD INDCTR 


80 334490 


0FF7 





6101 








LDX 


] 


. 1 


SET CARD TYPE 'PATCH' 


80 334500 


0FF8 


1 


6D00 


1238 






STX 


LJ 


. ABM2 


*IN ABORT MESSAGE 




80 334510 


OFFA 


1 


4400 


114A 






BSI 


L 


HEX 


CALL ON HEX SUBRTN 




80 334520 


OFFC 





1010 








SLA 




16 


CLEAR PATCH 




80 334530 


OFFD 





D01A 








STO 




PATCH 


*CARD INDICATOR 




80 334540 


OFFE 


1 


4C80 


OFDC 


TYPEX 


BSC 


I 


TYPE 


RETURN TO USER 




80 334550 










* 














80 334560 


1000 





C400 


FF70 


TYPE3 


LD 


L 


INOUT 


FETCH 1ST COLUMN 




80 334570 


1002 





F013 








EOR 




K8100 


CK IF EDIT CARD 




80 334580 


1003 


1 


4C20 


1009 


* 




BSC 


L 


TYPE4.Z 


BRANCH IF NOT EDIT 




80 334590 
80 334600 


1005 





4480 


FFE7 






BSI 


I 


ABORT 


ABORT EXIT 




80 334610 


1007 





E028 








DC 




/E028 


MID-EDIT READ-NO END CARD 


80 334620 


1008 





0000 




* 




DC 







WORD COUNT 




80 334630 
80 334640 


1009 





C400 


FF70 


TYPE4 


LD 


L 


INOUT 


FETCH 1ST COLUMN 




80 334650 


100B 





FOOB 








EOR 




K4420 


CK IF CONTROL CARD 




80 334660 


100C 


1 


4C20 


1012 






BSC 


L 


TYPE5.Z 


BRANC IF NOT CONTRUL 


80 334670 










* 














80 334680 


100E 





4480 


FFE7 






BSI 


I 


ABORT 


ABORT EXIT 




80 334690 



1010 E029 

1011 0000 

1012 1 7401 OFDC 
1014 1 4C80 OFDC 



1016 8100 

1017 4420 

1018 0000 



1019 0000 
101A 6A11 
101B C400 FFF3 
101D 1 D400 1239 
101F 900C 

1020 1 4CB0 1019 

1022 C400 FFF3 

1024 9400 FFF4 

1026 1 D400 1238 

1028 4480 FFE7 

102A E030 

102B 0002 



102C 0000 



DC 
DC 
* 

TYPE5 MDX 
TYPEY BSC 



K8100 DC 
K4420 DC 
PATCH DC 

* 

* 



/E029 MID-CTRL READ-NU END CARD 

WORD COUNT 

TYPE.l ADJUST EXIT-12/4 CARD 

TYPE RETURN TO USER 



CONSTANTS 



/8100 
/4420 





CONSTANT HEX 8100 
CONSTANT HEX 4420 
PATCH CARD INDICATOR 

* 

* 



MPDM1 



CKADR SUBROUTINE 



THIS SUBROUTINE IS CALLED BY MPDM1 AND* 
THE HEX SUBROUTINE. ITS FUNCTION IS TO * 
VERITY THAT THE NEXT ADDRESS INTO * 
WHICH DFT DATA IS TO BE STORED DOES * 
NOT EQUAL OR EXCEED THE LIMIT ADDRESS * 
CONTAINED IN LOCATION DMBGN. * 



CALLING SEQUENCE 

BSI CKADR 

IX 2 = ADDRESS TO CHECK 



CALLED ROUTINES 



ABORT - MPXDM ERROR ABORT RTN 



CALLED SUBROTUINES 



* NONE 

* POSSIBLE ABORT CONDITIONS 

CONDITION 



* CODE * 

* * 

* E030 * ADDRESS EXCEEDS SPECIFIED LIMIT.* 

* * 

* SUBROUTINE ENTRY CKADR * 

* SUBROUTINE EXIT CKAD1 * 

* * 



* 
CKADR 



CKAD1 



DC 

STX 

LD 

STO 

S 

BSC 

LD 

S 

STO 

BSI 

DC 

DC 



HOLD DC 



*-* RETURN ADDRESS 

HOLD ENTRY -STORE ADDRS 

DMBGN FETCH LIMIT ADDRS 

ABM3 SAVE IN ABORT MESSAGE 

HOLD CHECK IF ADDRESS OK 

CKADR, Z- RETURN TO CALLER IF 
* ADDRESS IN LIMITS 

DMBGN FETCH UPPER LIMIT ADDRS 

DFTBG DETERMINE AVAILABLE CORE 

ABM2 SAVE IN ABORT MESSAGE 

ABORT ABORT EXIT 

/E030 MID-EXCEEDED CURE 

2 WORD COUNT 

CONSTANTS * 



SAVE LOCATION 

* ADDRESS 

* * 

* MPXDM - EDIT CARD LOADER/ANALYZER * 



80 334700 
80 334710 
80 334720 
80 334730 
80 334740 
80 334750 
80 334760 
80 334770 
80 334780 
80 334790 
80 334800 
80 334810 
80 334820 
80 334830 
80 334840 
80 334850 
80 334860 
80 334870 
80 334880 
80 334890 
80 334900 
80 334910 
80 334920 
80 334930 
80 334940 
80 334950 
80 334960 
80 334970 
80 334980 
80 334990 
80 335000 
80 3350 10 
80 3350 20 
HO 3350 30 
80 3350 40 
80 3350 50 
80 3350 60 
80 3350 70 
80 3350 80 
80 3350 90 
80335100 
80 335110 
80335120 
80 335130 
80335140 
80335150 
80335160 
80335170 
80 335180 
80335190 
80 335200 
80 335210 
80335220 
80 335230 
80335240 
80 335250 
80 335260 
80335270 
80335280 
80 335290 
80 335300 
80335310 
80 335320 
80335330 
80335340 
80 335350 
80 335360 
80 335370 
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** 

* 

* 

* 
* 

* 



if.****************************************** 

* 

** MPDM2 ** * 

* 

MPDM2 IS THE EDIT CARD LOADER AND * 
ANALYZER. IT IS CALLED BY THE DMIN * 
ROOTINE TO INPOT MPXDM EDIT CARDSt AND* 
BY THE MCTRL ROUTINE TO INPUT THE DFT * 
EDIT CARDS. 



MPDM2 FUNCTIONS ARE AS FOLLOWS 

1. DETERMINE PROGRAM TO EDIT BY CHECK- 
ING THE EOIT. ADDRESS IN LOCATION 
EDITA. 

2. SET PID CHECK WORD ACCORDING TO 
PROGRAM BEING EDITED. 

3. CALL READ1 TO INPUT EDIT CARDS. 

A. TEST EACH CARD FOR AN 'E' IN COLUMN 
ONEIEDIT CARD DESIGNATION). 

5. CALL HEX TO CONVERT THE CARD TO 
BINARY. 

6. VERIFY THAT THE EDIT IS FOR THE 
CORRECT PROGRAM. 

7. VERIFY THAT THE EDIT CARDS ARE IN * 
CORRECT SEQUENCE. * 

8. VERIFY THAT THE CARD ENTRY COUNTS * 

ARE VALID. * 

9. STORE THE EDIT DATA AT THE * 

DESIGNATED LOCATIONS. * 

10. VERIFY THAT AN END OF EDIT CARD DOES* 

NOT PRECEED EDIT DATA CARDS. * 

* 
ALTHOUGH ALL OFF-LINE MONITOR EDIT * 
CARDS ARE LOADED MPDM2 WILL NOT STORE * 
THE CONSOLE INTERRUPT DDEF FROM CARD 0* 
NOR WILL IT STORE ANY DATA FROM CARD 1* 
(INTERRUPT LEVEL DEF INIT ION) . THI S * 
INFORMATION IS NOT REQUIRED BY SPXDM. * 



CALLING SEQUENCE 
BSI L MPDM2 
CALLED ROUTINES 

1. READ1 - CARD INPUT ROUTINE 

2. HEX - CONVERT TO BINARY 

3. ABORT - MPXDM ERROR ABORT RTN 

CALLED SUBROUTINES 



NONE 



POSSIBLE ABORT CONDITIONS 
CODE * CONDITION 

E036 * MPDM2 HAS BEEN ENTERED FOR 

EXECUTION BUT WAS NOT CALLED. 

E037 * CARD READ WAS NOT AN EDIT CARD. 

E038 * EDIT CARD PID DOES NOT AGREE 
WITH LOADED PROGRAM PID. 

E039 * EDIT CARDS ARE OUT OF SEQUENCE 

E040 * A CARD DATA ENTRY COUNT GREATER 
THAN 12 WAS SPECIFIED. 

E041 * MPXDM EDIT CARD HAS AN ENTRY 



80 335380 
80 335390 
80 335400 
80335410 
80 335420 
80 335430 
80 335440 
80335450 
80 335460 
80 335470 
80 335480 
80 335490 
80 335500 
80335510 
80 335520 
80 335530 
80 335540 
80 335550 
80 335560 
80 335570 
80 335580 
80 335590 
80 335600 
80335610 
80 335620 
80 335630 
80 335640 
80 335650 
80 335660 
80 335670 
80 335680 
80 335690 
80 335700 
80335710 
80 335720 
80 335730 
80 335740 
80335750 
80 335760 
80 335770 
80 335780 
80 335790 
80 335800 
80335810 
80 335820 
80 335830 
80 335840 
80335850 
80 335860 
80335870 
80 335880 
80 335890 
80 335900 
80335910 
80 335920 
80335930 
80 335940 
80 335950 
80 335960 
80 335970 
80 335980 
80335990 
80 336000 
80 3360 10 
80 3360 20 
80 3360 30 
80 3360 40 
80 3360 50 











* 






COUNT OTHER THAN 2. * 










* 


E042 * AN EDN OF EDIT CARD WAS READ * 










* 






PRIOR TO ANY EDIT DATA CARDS. * 










* 


E043 * LESS THAN 3 MPXDM EDIT CARDS * 










* 

* 






WERE READ. 3 CARDS IS A MINIMUM.* 












ROUTINE 


ENTRY MPDM2 * 


' 








* 

if. 


ROUTINE 


EXIT DM200 * 










***** 


***** 


* 

=***********#*£# *#$$## **##££ ££####£# 


102D 





0000 




MPDM2 
* 


DC 




*-* RETURN ADDRESS 


102E 


1 


6500 


10CD 






LDX 


LI 


SEQCK SET CONSTANT INDEX 


1030 


1 


6600 


1233 






LDX 


L? 


EXTAD SET ABORT MSG INDEX 


1032 





6700 


FFD2 






LDX 


L3 


EDITA 1X3 # HCCA IX BASE 


1034 





C104 








LD 


XI 


CK2-SEQCK FETCH MPDM2 CK WORD 


1035 





D206 








STO 


2 


A8M3-EXTAD SAVE IN ABORT MSG 


1036 





F307 








EOR 


3 


LCLID-EDITA TEST IF = CALLED ID 


1037 


1 


4C18 


103F 






BSC 


L 


DM20A t S- BRANCH IF CORRECT 


1039 





C200 








LD 


2 


EXTAD-EXTAD FETCH ERROR ABORT EXIT 


103A 





D306 








STO 


3 


ABRTX-EDITA STORE IN HCCA 


103B 





4480 


FFE7 






BSI 


I 


ABORT ABORT EXIT 


103D 





E036 








DC 




/E036 MID-MPDM2 XEQ-NOT CALLED 


103E 





0002 








DC 




2 WORD COUNT 


103F 





C107 




DM20A 


LD 


XI 


KEDOO-SEQCK SET STARTING SEQ NUM 


1040 





0100 








STO 


XI 


SEQCK-SEQCK *IN SEQUENCE COUNTER 


1041 





1010 








SLA 




16 CLEAR LOADER 


1042 





D307 








STO 


3 


LCLID-EDITA *CHECK WORD 


1043 





C300 








LD 


3 


EOITA-EDITA FETCH EDIT AREA ADDRS 


1044 





D102 








STO 


XI 


EAREA-SEQCK SAVE ADDRESS IN POINTER 


1045 





C321 








LD 


3 


DMBGN-EDITA FETCH DM PID AOORS 


1046 





B300 








CMP 


3 


EDITA-EDITA TEST FOR DFT EDIT 


1047 





7005 








MDX 




*+5 DFT EDIT BRANCH 


1048 


1 


C400 


0911 






LD 


L 


DMPID STORE MPXDM PID 


104A 





0207 








STO 


2 


ABM4-EXTAD *IN MESSAGE STRING 


104B 





C106 








LD 


XI 


K0100-SEQCK DM EOIT-FETCH EDIT ID 


104C 





7003 








MDX 




*+3 BRANCH TO STORE 


104D 





C480 


FFF2 






LD 


I 


DFTID FETCH DFT ID 


104F 





D20 7 








STO 


2 


ABM4-EXTAD STORE IN MESSAGE STRING 


1050 





0101 








STO 


XI 


PIDCK-SEQCK STORE IN PID CK WORD 


1051 


1 


4400 


11C7 


DM20B 


BSI 


L 


READ1 BRANCH TO READ CARD 



TEST CARD FOR 'E' IN COLUMN 1 



1053 1 6500 1233 
1055 C400 FF70 

1057 FOBE 

1058 1 4C18 1060 
105A C107 
105B D105 

105C 4480 FFE7 
105E E037 
105F 0001 

1060 C06F 

1061 D105 

1062 1 4400 114A 



1064 1 6500 1233 
1066 6700 FF70 
1068 C300 



LDX 

LD 

EOR 

BSC 

LD 

STO 

BSI 

DC 

DC 

DM20D LD 
STO 
BSI 



LI EXTAD 
L INOUT 
K8100 
L DM20 D,+- 



SET ABORT MSG INDEX 
FETCH COLUMN 1 DATA 
DOES IT CONTAIN 'E' 
BRANCH IF IT DOES 



1 ABM4-EXTAD SET PROG PID IN 1ST 
1 ABM2-EXTAD * MESSAGE ENTRY 

I ABORT ABORT EXIT 

/E037 MID-NOT AN EDIT CARD 

1 WORD COUNT 

K0002 SET CARD TYPE 'EDIT' 
1 ABM2-EXTAD SAVE IN ABORT MESSAGE 
L HEX CALL HEX SUBROUTINE 



TEST EDIT CARD FOR PROPER P 1 , SEQUENCE* 
NUMBER AND WORD COONT. * 



LDX LI EXTAD 
LDX L3 INUUT 
LD 3 



SET ABORT MSG INDEX 
SET FETCH INDEX 
FETCH EDIT CARD PID 



80 3360 60 
80 3360 70 
80 3360 80 
80 3360 90 
80336100 
80 336110 
80 336120 
80 336130 
80336140 
80 336150 
80 336160 
80 336170 
80 336180 
80336190 
80336200 
80336210 
80336220 
80 3362 30 
80336240 
80 336250 
80 336260 
80 336270 
80 336280 
80 336290 
80 336300 
BO 336310 
80 336320 
80 336330 
80 336340 
80 336350 
80336360 
80336370 
80336380 
80 336390 
80 336400 
80336410 
80 336420 
80 336430 
80 336440 
80 336450 
80 336460 
80 336470 
80 336480 
80 336490 
80336500 
80336510 
80 336520 
80 336530 
80336540 
80 336550 
80 336560 
80336570 
80 336580 
80 336590 
80 336600 
80 336610 
80 336620 
80 336630 
80 336640 
80 336650 
80 336660 
80 336670 
80 336680 
80 336690 
80 336700 
80336710 
80336720 
80 336730 
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1069 D106 

106A F063 

106B 1 4C18 1073 

106D C060 

106E D105 

106F 4480 FFE7 

1071 E038 

1072 0002 



1073 





C301 




1074 





D106 




1075 





F060 




1076 


1 


4C18 


10B0 


1078 





C301 




1079 





F053 




107A 


1 


4C18 


1082 


107C 





C050 




107D 





D105 




107E 





4480 


FFE7 


1080 





E039 




1081 





0003 





STO 

EOR 

BSC 

LD 

STO 

BSI 

DC 

DC 

DM20E LD 
STO 
EOR 
BSC 
LD 
EOR 
BSC 
LD 
STO 

BSI 

DC 
DC 



1 ABM3-EXTAD 
PIDCK 
L DM20E.+- 
P1DCK 
1 ABM2-EXTAD 

I ABORT 
/E038 
2 



1 ABM3-EXTAD 

KFFFF 

DM20P.+- 
3 1 

SEOCK 

DM20F.+- 

SEQCK 
1 ABM2-EXTAD 



I ABORT 
/E039 
3 



SAVE IN ABORT MESSAGE 
IS IT CORRECT PID 
BRANCH IF IT IS 
FETCH EXPECTED PID 
SAVE IN ABORT MESSAGE 

ABORT EXIT 
MID-WRONG EDIT PID 
WORD COUNT 

FETCH SEQUENCE NMBR 
SAVE IN ABORT MESSAGE 
IS IT TERMINATOR 
BRANCH IF TERMINATOR 
FETCH SEQUENCE NMBR 
IS IT CORRECT 
BRANCH IF YES 
FETCH EXPECTED SEQ NMBR 
SAVE IN ABORT MESSAGE 

ABORT EXIT 

MID-CARD SEQUENCE ERROR 

WORD COUNT 



1082 C302 

1083 D106 

1084 904D 

1085 1 4C08 108B 



DM20F LD 3 2 FETCH CARD ENTRY COUNT 

STO 1 ABM3-EXTAD SAVE IN ABORT MESSAGE 
S KOOOC MORE THAN 12 ENTRIES 

BSC L DM20G.S BRANCH IF NOT 



ABORT EXIT 

MID-ENTRY COUNT TOO BIG 

WORD COUNT 

* 



FETCH CARD PID 

IS IT FOR MPXDM 

BRANCH IF NOT 

FETCH SEQUENCE NMBR 

IS IT CARD 

BRANCH IF NOT 

FETCH CARD ENTRY COUNT 

IS COUNT = 2 

BRANCH IF IT IS 

ABORT EXIT 

MID-DM CARD ENTRY ERR 

WORD COUNT 

ADJUST FETCH INDEX TO 
SET ENTRY COUNT INDEX 
BRANCH TO STORE WORD 

* 

ONE THROUGH N * 
* 

IS THIS DM EDIT CARD 1 
SKIP IF IT IS NOT 
BRANCH-BYPASS CARD 1 
SET ENTRY COUNT INDEX 
ADJUST FETCH IX TO 
♦1ST EDIT ENTRY 
SET STORE POINTER IX 
FETCH EDIT WORD 
STORE IN PROP LOC. 
INCREMENT FETCH IX 
INCREMENT STORE IX 
SKIP WHEN ALL MOVED 
BRANCH-CONTINUE MOVE 



1087 4480 
1089 E040 
108A 0003 


FFE7 


jje 


BSI 

DC 
DC 


I 


ABORT 
/E040 
3 






* 
* 

DM20G 


STORE REQUIRED El 


108B C300 
108C F046 
108D 1 4C20 
108F C301 

1090 F043 

1091 1 4C20 

1093 C302 

1094 F03B 

1095 1 4C18 


10A1 
109E 
109B 


LD 

EOR 

BSC 

LD 

EOR 

BSC 

LD 

EOR 

BSC 


3 

L 
3 

L 
3 

L 




K0100 

DM20K.Z 

1 

KEDOO 

DM20J.Z 

2 

K0002 

DM20H.+- 


1097 4480 
1099 E041 
109A 0003 


FFE7 


* 


BSI 

DC 
DC 


I 


ABORT 
/E041 
3 


109B 7301 
109C 6201 
1090 7005 




DM20H 


MDX 
LDX 
MDX 


3 
2 


1 
1 
DM20 L 






MONITOR 


EDIT CAR 


109E 1801 
109F 4818 
10A0 700C 
10A1 6680 
10A3 7303 


FF72 


DM20J 

DM20K 
DM20L 

* 


SRA 
BSC 
MDX 
LDX 
MDX 


12 
3 


1 

+- 

DM20 N 

INOUT+2 

3 


10A4 1 6580 
10A6 C300 
10A7 DlOO 
10A8 7301 
10A9 7101 
10AA 72FF 
10AB 70FA 


10CF 


DM20M 


LDX 

LD 

STO 

MDX 

MDX 

MDX 

MDX 


11 
3 
1 
3 
1 
2 


EAREA 





1 

1 

-1 

DM20M 



80 336740 
80336750 
80 336760 
80 336770 
80 336780 
80 336790 
80 336800 
80336810 
80 336820 
80 336830 
80 336840 
80 336850 
80 336860 
80336870 
80 336880 
80 336890 
80 336900 
80 336910 
80 336920 
80 336930 
80 336940 
80 336950 
80 336960 
80 336970 
80 336980 
80 336990 
80 337000 
80 3370 10 
80 3370 20 
80 3370 30 
80 3370 40 
80 3370 50 
80 3370 60 
80 3370 70 
80 3370 80 
80 3370 90 
80337100 
80337110 
80337120 
80 337130 
80 337140 
80 337150 
80 337160 
80337170 
80 337180 
80337190 
80 337200 
80337210 
80 337220 
80337230 
80 337240 
80 337250 
80 337260 
80 337270 
80 337280 
80 337290 
80 337300 
80337310 
80 337320 
80337330 
80 337340 
80 337350 
80 337360 
80 337370 
80 337380 
80 337390 
80 337400 
80337410 



10AC 6922 
10AD 1 7401 10CD 
10AF 70A1 



10B0 C01C 

10B1 F022 

10B2 1 4C20 10BB 

10B4 C019 

10B5 1 D400 1238 

10B7 4480 FFE7 

10B9 E042 

10BA 0001 

10BB C012 

10BC F016 

10BD 1 4C20 10CB 

10BF 1 6580 10CF 

10C1 C014 

10C2 DlOO 

10C3 C009 

10C4 9010 

10C5 4830 

10C6 7004 

10C7 4480 FFE7 

10C9 E043 

10CA 0000 

10CB 1 4C80 102D 



10CD 
10CE 
10CF 
10D0 
10D1 
10D2 
10D3 
10D4 
10D5 
10D6 



0000 
0000 
0000 
0002 
2002 
OOOC 
0100 
EDOO 
ED02 
FFFF 





STX 


1 


EAREA 


SAVE STORAGE POINTER 


80 337420 


DM20N 


MDX 


L 


SEQCK, 1 


INCR SEQUENCE COUNTER 


80 337430 




MDX 




DM20B 


BRANCH TO READ NEXT CARD 


80 337440 


* 








* 


80 337450 


* 


THIS 


SECTION SERVICES THE EDIT END CARD 


80 337460 


* 








* 


80 337470 


DM20P 


LD 




SEQCK 


FETCH SEQUENCE COUNTER 


80 337480 




EOR 




KEDOO 


IS IT AT CARD 00 


80 337490 




BSC 


L 


DM20 R,Z 


BRANCH IF IT IS NOT 


80 337500 




LD 




PIDCK 


FETCH PID 


80 337510 




STO 


L 


ABM2 


SAVE FOR POSS ERROR 


80 337520 


* 










80 3375 30 




BSI 


I 


ABORT 


ABORT EXIT 


80 337540 




DC 




/E042 


MID-END CARD-NO DATA CARDS 


80 337550 




DC 




1 


WORD COUNT 


80 337560 


* 










80 337570 


0M20R 


LD 




PIDCK 


FETCH PID 


80 337580 




EOR 




K0100 


IS IT MPXDM PID 


80 337590 




BSC 


L 


DM20 S,Z 


BRANCH IF NOT 


80 337600 




LDX 


11 


EAREA 


IX # END OF EDIT TABLE 


80337610 




LD 




KFFFF 


FETCH TERM WORD 


80 337620 




STO 


1 





TERMINATE TABLE 


80 337630 




LD 




SEQCK 


FETCH SEQ COUNTER 


80 337640 




S 




KED02 


GREATER THAN CARD 2 


80 337650 




BSC 




z- 


SKIP IF NOT 


80337660 




MDX 




DM20 S 


GO TO EXIT 


80 337670 


* 










80337680 




BSI 


I 


ABORT 


ABORT EXIT 


80 337690 




DC 




/E043 


MID-MISSING DM EDIT 


80 337700 




DC 







WORD COUNT 


80337710 


* 










80337720 


DM20S 


BSC 


I 


MPDM2 


EXIT TO CALLER 


80 337730 


* 








* 


80337740 


# 






CONSTANTS 


80 337750 


* 








* 


80 337760 


* 










80 337770 


SEQCK 


DC 







CARD SEQUENCE COUNTER 


80 337780 


PIDCK 


DC 







CARD PID CHECK WORD 


80 337790 


EARFA 


DC 




* — * 


EDIT DATA STORAGE PTR 


80 337800 


K0002 


DC 




2 


CONSTANT 2 


80337810 


CK2 


DC 




/200 2 


MPDM2 CHECK WORD 


80337820 


KOOOC 


DC 




/OOOC 


* 


80 337830 


K0100 


DC 




/0100 


* 


80337840 


KfcDOO 


DC 




/EDOO 


* CONSTANTS 


80 337850 


KED02 


DC 




/EDO 2 


* 


80 337860 


KFFFF 


DC 




/FFFF 


* 


80 337870 


* 








* 


80 337880 


*****: 


M=****** 


******************************** 


80 337890 


* 1 


1PXDM 


- 


CONTROL CARD LOADER/ANALYZER * 


80 337900 




{;****: 


*** 


******************************** 


80 337910 


* 








* 


60 337920 


* 






** MPDM4 ** * 


80 337930 


* 








* 


80 337940 


* 


MPDM4 IS ENTERED WHEN THE OPERATOR * 


80 337950 


* 


REQUESTS THE INPUT OF DFT CONTROL * 


80 337960 


* 


CARDSIC 


.F. SWITCH 


#8). * 


80 337970 


* 








* 


80337980 


* 


THE 1 


ROUTINE FUNCTIONS ARE AS FOLLOWS * 


80 337990 


* 








* 


80 338000, 


* 


l.CALL 


ROUTINE READ1 TO INPUT CONTROL * 


80 3380 10 


* 


CARDS 


. 


* 


80 3380 20 


* 


2. VERIFY THAT THE 


CARD READ WAS A * 


80 3380 30 


* 


CONTROL CARD BY 


CHECKING COLUMNS 1 * 


80 3380 40 


* 


THROUGH 4 FOR $$FN. * 


80 3380 50 


* 


3. CHECK 


COLUMN 5. 


IF IT CONTAINS 'F' * 


80 3380 60 


* 


(END 


CONTROL CARD) EXIT THE ROUTINE.* 


80 3380 70 


* 


4. IF 


COLUMN 5 DID 


NOT CONTAIN AN 'F' , * 


80 3380 80 


* 


CALL 


ON ROUTINE 


HEX TO CONVERT THE * 


80 3380 90 
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1007 0000 

10D8 1 6600 1233 

10DA 6700 FFD2 

10DC C064 

10DD D206 

10DE F307 

10DF 1 4C18 10E7 

10E1 C200 

10E2 D306 

10E3 4480 FFE7 

10E5 E044 

10E6 0002 

10E7 1010 

10E8 D307 

10E9 C059 

10EA 0306 

10EB D056 

10EC 1 4400 11C7 



CARD TO BINARY. 

5. VERIFY THAT THE FUNCTION NUMBER IN 
COLUMN 5 IS NOT GREATER THAN 3. 

6. VERIFY THAT THE PID PUNCHED IN THE 
CARD IS THE SAME AS THE PID OF THE 
DFT IN CORE. 

7. STORE THE CARD DATA IN THE DFT 
SWITCH LOCATION SPECIFIED BY THE 
FUNCTION NUMBER IN COLUMN 5. 

8. CALL THE LOG ROUTINE TO OUTPUT 

MESSAGE A003-C0NTR0L CARD ACKNOWL- 
EDGE. 

CALLING SEQUENCE 

BSI L MPDM4 

CALLED ROUTINES 

1. READ1 - CARD READ ROUTINE. 

2. HEX - CONVERT TO BINARY. 

3. LOG - PRINT ROUTINE. 

4. ABORT - MPXDM ERROR ABORT RTN. 

CALLED SUBROUTINES 
NONE 
POSSIBLE ABORT CONDITIONS 
CODE * CONDITION 



E044 * MPDM4 HAS BEEN ENTERED FOR 

EXECUTION BUT WAS NOT CALLED. 

E045 * CARD READ DOES NOT CONTAIN $$FN 
IN COLUMNS 1 THROUGH 4. 

E046 * COLUMN 5ISWITCH FUNCTION) DUES 
NOT CONTAIN 0,1,2,3 OR F. 



ROUTINE ENTRY 
ROUTINE EXIT 



MPDM4 
DM4XT 



****** 
* 

MPDM4 
* 



S********* ****************** *********** 



DC 

LDX 

LDX 

LD 

STO 

EOR 

BSC 

LD 

STO 

BSI 
DC 

DC 



L2 
L3 

2 

3 
L 
2 

3 



*-* RETURN ADDRESS 

EXTAD SET ABORT MESSAGE INDEX 
EDITA SET COMMUNICATION INDEX 
CK4 FETCH MPDM4 CK WORD 
ABM3-EXTAD SAVE IN ABORT MESSAGE 
LCL1D-EDITA TEST = CALLED ID 
DM4AA,6- BRANCH IF CORRECT 
EXTAD-EXTAD FETCH ERROR ABORT EXIT 
ABRTX-EDITA STORE IN HIGH CORE AREA 



I ABORT ABORT EXIT 

/E044 MID-MPDM4XEQ-N0T CALLED 
2 WORD COUNT 



DM4AA SLA 16 CLEAR LOADER 

STO 3 LCLIO-EDITA *CHECK WORD 
LD CTRXT FETCH CONTROL CARD ABORT 
STO 3 ABRTX-EDITA *EXIT - SET IN HCCA 
STO CTLRD SET CONTROL CARD IND 

DM40A BSI L READ1 BRANCH TO READ CARD 

* * 

* VERIFY THAT COLUMNS 1 THROUGH 4 * 

* CONTAIN $$FN . * 



80338100 
80338110 
80338120 
80 338130 
80 338140 
80 338150 
80338160 
80 338170 
80338180 
80338190 
80 338200 
80338210 
80338220 
80338230 
80338240 
80 338250 
80 338260 
80 338270 
80 338280 
80 338290 
80 338300 
80338310 
80 338320 
80 338330 
80 338340 
80 338350 
80 338360 
80338370 
80 338380 
80 338390 
80 338400 
80 338410 
80 338420 
80 338430 
80 338440 
80 338450 
80 338460 
80 338470 
80 338480 
80 338490 
80 338500 
80338510 
80 338520 
80 338530 
80 338540 
80 338550 
80 338560 
80 338570 
80 338580 
80 338590 
80 338600 
80338610 
80 338620 
80 338630 
80 338640 
80338650 
80 338660 
80 338670 
80 338680 
80 338690 
80 338700 
80338710 
80338720 
80 338730 
80 338740 
80338750 
80 338760 
80338770 



10EE 





61FC 




LDX 


1 


-4 


10EF 





C500 


FF74 


DM40C LD 


LI 


INOUT+4 


10F1 


1 


F500 


1140 


EOR 


LI 


CKWRD+4 


10F3 


1 


4C18 


10F9 


BSC 


L 


DM40 E,+- 



10F5 4480 FFE7 

10F7 E045 

10F8 0000 

10F9 1 C400 0D9A 

10FB 0500 FF74 

10FD 7101 

10FE 70F0 



10FF C400 FF74 
1101 F03C 



DH40D BSI I ABORT 
DC /E045 
DC 



SET COLUMN INDEX 
FETCH CARD COLUMN 
PROPER COLUMN DAT/! 
BRANCH IF IT IS 

ABORT EXIT 
MID-CARD NOT $$FN 
WORD COUNT 



DM40E 



LD L K2000 SET ZERO DATA 
STO LI INOUT+4 *IN CHECKED COLUMNS 
MDX 1 1 UPDATE COLUMN XR-SKIP 

MDX DM40C BRANCH TO CHECK NEXT 
*COLUMN 

* 
VERIFY AND COVERT COLUMNS 5 THRU 11 * 

* 
LD L INOUT+4 FETCH COLUMN 5 
EOR CKWRD+2 IS IF >F' 



1102 


1 


4C18 


1135 


1104 





C03B 




1105 





D205 




1106 


1 


4400 


114A 


1108 


1 


6600 


1233 


110A 





6500 


FF70 


HOC 





C100 




HOD 





D205 




110E 





9031 




110F 


1 


4C08 


1115 



DM40F 



1111 4480 FFE7 

1113 E046 

1114 0001 



BSC 


L 


DM40K,£- 


EXIT LOADER IF IT IS 


LD 




K3 


SET CARD TYPE 'CONTROL' 


STO 


2 


ABM2-EXTAD 


SAVE IN ABORT MESSAGE 


BSI 


L 


HEX 


CALL ON HEX SUBRTN 


LDX 


L2 


EXTAD 


SET ABORT MESSAGE INDEX 


LDX 


LI 


INOUT 


SET FETCH INDEX 


LD 


1 





FETCH SWITCH NUMBER 


STO 


2 


ABM2-EXTAD 


SAVE IN ABORT MESSAGE 


S 




K3 


IS IT GREATER THAN 3 


BSC 


L 


DM40 J, + 


BRANCH IF IT IS NOT 


BSI 


I 


ABORT 


ABORT EXIT 


DC 




/E046 


MID-ILLEGAL SWITCH NUMBER 


DC 




1 


WORD COUNT 



1115 





6780 


FFF2 


DM40J 


LDX 


13 


DFT1D 


1117 





C101 






LD 


1 


1 


1118 





D206 






STO 


2 


ABM3-EX 


1119 





F300 






EOR 


3 





111A 


1 


4C18 


1122 




BSC 


L 


DM40 M,+ 


111C 





C300 






LD 


3 





HID 





D205 






STO 


2 


ABM2-EX 


111E 





4480 


FFE7 




BSI 


I 


ABORT 


1120 





E049 






DC 




/E049 


1121 





0002 






DC 




2 


1122 





7303 




DM40M 


MDX 


3 


3 


1123 





7780 


FF70 




MDX 


13 


INOUT 


1125 





C102 






LD 


1 


2 


1126 





D300 






STO 


3 





1127 





D021 






STO 




MSG3B 


1128 





C480 


FFF2 




LD 


I 


DFTID 


112A 





18D0 






RTE 




16 


112B 





C100 






LD 


1 





112C 





1004 






SLA 




4 


112D 





1088 






SLT 




8 


112E 





D019 






STO 




MSG3A 


112F 





4480 


FFF8 


DM40L 


BSI 


I 


LUG 


1131 


1 


1145 






DC 




MSGA3 


1132 


1 


112F 






DC 




DM40L 


1133 





0000 






DC 




0000 


1134 





70B7 






MDX 




DM40 A 



STORE CONTROL CARD DATA IN PROPER DFT 
SWITCH LOCATIUN 

IX # DFT PID ADDRESS 
FETCH CARD PID 

ABM3-EXTAD SAVE FOR POSSIBLE ERROR 
CK AGAINST DFT PID 
BRANCH IF SAME 
FETCH OFT PID 

ABM2-EXTAD SAVE IN ABORT MESSAGE 

CALL ERROR ABORT RTN 
ERR CODE-INCORRECT PID 
WORD COUNT 

1X3 = DFT SWO LOCATION 

1X3 = SW LOC TO STORE 

FETCH SWITCH DATA 

STORE DATA IN SW LOC 

SET IN MESSAGE STRING 

FETCH PID 

POSITION 

FETCH SWITCH NUMBER 

POSITION 

DEVELOP XOZZ - FCN/PID 

SET IN MESSAGE STRING 

CALL LOG ROUTINE 

MESSAGE ADDRESS 

TERMINATION TYPE 

TERMINATION TYPE 

GO INPUT NEXT CARD 



80 338780 
80 338790 
80 338800 
80 338810 
80 338820 
80 338830 
80338840 
80 338850 
80 338860 
80 338870 
80 338880 
80 338890 
80 338900 
80 338910 
80 338920 
80 3389 30 
80 338940 
80 338950 
80 338960 
80 338970 
80 338980 
80 338990 
80 339000 
80 3390 10 
80 3390 20 
80 3390 30 
80 3390 40 
80 3390 50 
80 3390 60 
80 3390 70 
80 3390 80 
80 3390 90 
80 339100 
80339110 
80 339120 
80 339130 
80339140 
80339150 
80339160 
80 339170 
80 339180 
80339190 
80339200 
80339210 
80 339220 
80 339230 
80339240 
80339250 
80339260 
80 339270 
80 339280 
80 339290 
80 339300 
80339310 
80 339320 
80 339330 
80339340 
80 339350 
80 339360 
80 339370 
80339380 
80 339390 
80 339400 
80339410 
80339420 
80 339430 
80 339440 
80 339450 
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1135 COOE 

1136 D400 FFD8 

1138 1010 

1139 0008 
113A 1 4C80 10D7 



113C 





4420 


113D 





4420 


113E 





8080 


113F 





4100 


1140 





0003 


1141 





4004 


1142 





0000 


1143 


1 


1135 


1144 


1 


09B7 



1145 0002 

1146 0000 

1147 A003 

1148 OQOO 

1149 0000 



DM40K LD 
STO 
SLA 
STO 

DM4XT BSC 

* 

* 

CKWRD DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



CTRXT+1 RESTORE ABORT EXIT TO 

ABRTX SMAIN LINE CONTROL 

16 CLEAR CONTROL 
CTLRD *CARD INDICATOR 

MPDM4 EXIT LOADER 



CONSTANTS 



K3 
CK4 
CTLRD 
CTRXT 

* 
* 

MSGA3 



/4420 CARD CODE FOR •$• 

/4420 CARD CODE FOR '$• 

/80 80 CARD CODE FOR 'F' 

/4100 CARD CODE FOR 'N' 

3 CONSTANT 3 

/4004 MPDM4 CHECK WORD 

CONTROL CARD INDICATOR 

DM40K CONTROL CARD ABORT EXIT 

CTL1 MAIN LINE CONTROL EXIT 

* 
A003 MESSAGE STRING * 

* 
/0002 LINE NUMBER/WORD COUNT 
/OOOO HEX/DEC = HEX OUTPUT 
/A003 MESSAGE ID 
XOZZ FUNCTION AND PID 

YYYY DATA IMAGE 



DC 

DC 

DC 
MSG3A DC 
MSG3B DC 

* MPXDM - CARD CODE TO BINARY CONVERT * 
ft******************************************** 

* 
** HEX ** * 

* 
ROUTINE HEX IS USED TO CONVERT CARD * 
CODED HEXIDECIMAL TO B INARY (MACHINE * 
HEXIDECIMAD.IT IS CALLED BY THE TYPE * 
SUBROUTINE TO CONVERT HEX PATCH CARDS,* 
BY LOADER MPDM2 TO CONVERT EDIT CARDS * 



AND BY LOADER MPDM4 TO CONVERT DFT 
CONTROL CARDS. 

ROUTINE FUNCTIONS ARE AS FOLLOWS 



* 

* 

* 

* 

1. FETCH DATA TO CONVERT FROM LOCATIONS* 

INOUT(FF70) THROUGH IN0UT+79( FFBF ) . * 

2. CONVERT EACH DATA GROUP OF 4 CARD * 

COLUMNS TO ONE 16 BIT WORD. * 

3. VERIFY THAT THE DATA GROUPS CONTAIN * 

ONLY HEX DATAIO THRU 9 AND A THRU F)* 

4. CHECK RELOCATION COLUMNS (COLUMNS 6,* 

11,16,21 ETC.). * 

A. IF CONVERTING HEX PATCH CARDS, THE * 

RELOCATION COLUMN MAY BE BLANK OR * 

PUNCHED WITH AN 'R'.THE 'R' INDI- * 

CATES THAT THE FOLLOWING DATA * 

GROUP IS RELOCATABLE. * 

B.IF CONVERTING EDIT OR CONTROL * 

CARDS, THE RELOCATION COLUMN MUST * 

BE BLANK. * 

5. STORE THE CONVERTED DATA * 

A. IF PATCH CARDS, HEX WILL STORE THE * 

DATA STARTING AT THE ADDRESS * 

SPECIFIED IN COLUMNS 1 THRU 5. THE * 

ADDRESS AND DATA WILL BE RE-LOCAT-* 



ED AS REQUIRED. 
B.EOIT AND CONTROL CARD DATA WILL 
BE STOREO STARTING AT LOCATION 
INOUT.THE CALLING LOADER WILL 
STORE THE DATA AT ITS ULTIMATE 



80 339460 
80 339470 
80 339480 
80 339490 
80 339500 
80339510 
80 339520 
80339530 
80 339540 
80 339550 
80 339560 
80 339570 
80 339580 
80 339590 
80 339600 
80 339610 
80 339620 
80 339630 
80 339640 
80 339650 
80 339660 
80339670 
80 339680 
80 339690 
80 339700 
80339710 
80 339720 
80 339730 
80 339740 
80 339750 
80 339760 
80 339770 
80 339780 
80 339790 
80 339800 
80 339810 
80 339820 
80 339830 
80 339840 
80339850 
80 339860 
80 339870 
80 339880 
80339890 
80 339900 
80 339910 
80 339920 
80 339930 
80 339940 
80 339950 
80 339960 
80 339970 
80 339980 
80 339990 
80 340000 
80 340010 
80 3400 20 
80 3400 30 
80 3400 40 
80 3400 50 
80 3400 60 
80 3400 70 
80 3400 80 
80 3400 90 
80 340 100 
80 340 110 
80 340120 
80 340 130 



LOCATION. * 

6. ROUTINE EXIT WILL OCCUR WHEN EITHER * 

A BLANK DATA COLUMN IS DETECTED OR * 

WHEN THE ENTIRE CARD IS CONVERTED. * 



CALLING SEQUENCE 
BSI HEX 
CALLED ROUTINES 

1. ABORT - MPXDM ERROR ABORT RTN. 
CALLED SUBROUTINES 

1. CKADR - CHECK STORE ADDRESS 
POSSIBLE ABORT CONDITIONS 



CODE 
E031 
E032 
E033 
E034 

E035 
E047 



CONDITION 



A HEX PATCH CARD RELOCATION * 
COLUMN CONTAINED OTHER THAN 'R'.* 
11 ZONE PUNCH IN DATA COLUMN-NUT* 
A HEX CHARACTER. * 

BOTH A 12 AND ZONE PUNCH IN A * 
DATA COLUMN-NOT A HEX CHARACTER.* 
A BLANK OR A 12 ZONE ONLY PUNCH * 
IN A DATA COLUMN-NOT A HEX * 
CHARACTER. * 

MULTIPLE DIGIT PUNCHES IN A DATA* 
COLUMN-NOT A HEX CHARACTER. * 
EDIT OR CONTROL CARD RELOCATION * 
COLUMN WAS NOT BLANK. * 



ROUTINE ENTRY 
ROUTINE EXIT 



HEX 

HEXXT OR HEX05+2 



S=#*##^£**^***#*&*#***#***#$#$##*#*#*##*:}:#5[:*#aJ 



CONTAINS RETURN 
ADDRESS ON ENTRY 
ENTRY POINT -CLEAR A 
CLEAR ADDRESS POINTER 
SET COLUMN COUNTER 

CLEAR RELOCATE INDICATOR 
SKIP ON ZERO ADDRESS 
BRANCH TO CK RELOCATION 
BYPASS RELOCATION CHECK 
FETCH RELOCATION COLUMN 
BRANCH ON ZERO DATA 
SKIP IF EDIT CARD 
PATCH CARD BRANCH 

CALL ABORT ROUTINE 
MIO-IMO BLNK BETWEEN FLDS 
WORD COUNT 

CHECK FOR 'R' 

SKIP IF NOT 'R' 

BRANCH OVER ABORT CALL 

* 
ABORT EXIT 

MID-RELOC COL NOT 'R' 
WORD COUNT 

SET RELOCATE INDICATOR 



114A 





0000 




HEX 


DC 




*-* 


114B 





1010 






SLA 




16 


114C 





D077 






STO 




ADRS 


114D 





61AF 






LDX 


1 


-81 


114E 





1010 




HEX01 


SLA 




16 


114F 





D073 






STO 




RLIND 


1150 


1 


7400 


11C4 




MDX 


L 


ADRS,0 


1152 





7001 






MDX 




HEX0 2 


1153 





7013 






MDX 




HEX04 


1154 





C500 


FFC1 


HEX02 


LD 


LI 


INOUT+81 


1156 


1 


4C18 


1167 




BSC 


L 


HEX04,+- 


1158 


1 


7400 


1018 




MDX 


L 


PATCH.O 


115A 





7004 






MDX 




HEX2A 


115B 





4480 


FFE7 




BSI 


I 


ABORT 


115D 





E047 






DC 




/E047 


115E 





0001 






DC 




1 


115F 





F066 




HEX2A 


EOR 




K4010 


1160 





4818 






BSC 




+- 


1161 





7004 






MDX 




HEX03 


1162 





4480 


FFE7 


-r 


BSI 


I 


ABORT 


1164 





E031 






DC 




/E031 


1165 





0001 






DC 




1 


1166 





685C 




HEX03 


STX 




RLIND 



80340 140 
80 340 1 50 
80 340 160 
80 340 170 
80 340 180 
80 340 190 
80 340 200 
80 340 2 10 
80 340 220 
80 340 230 
80 340 240 
80 340 250 
80 340 260 
80 340 2 70 
80 340 280 
80 340 290 
80 340 300 
80 340 3 10 
80 340 320 
80 340 330 
80 340 340 
80 340 350 
80 340 360 
80 340 370 
80 340 380 
80 340 390 
80 340 400 
80 340 410 
80 340 420 
80 340 430 
80 340 440 
80 340 450 
80 340 460 
80 340 470 
80 340 480 
80 340 490 
80 340 500 
80 340 510 
80 340 520 
80 340 530 
80 340 540 
80 340 550 
80 340 560 
80 340 570 
80 340 580 
80 340 590 
80 340 600 
80 340 610 
80 340 620 
80 340 6 30 
80340640 
80 340 650 
80 340 660 
80 340 670 
80 340 680 
80 340 690 
80 340 700 
80 340 7 10 
80 340 720 
80 340 7 30 
80 340 740 
80 340 750 
80 340 760 
80 340 770 
80 340 780 
80 340 790 
80 340 800 
80 340 810 
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1167 





7101 




HEX04 


MOX 


1 


1 


1168 





7002 




HEXXT 


MDX 




HEX05 


1169 


1 


4C80 


114A 


BSC 


I 


HEX 


116B 





C500 


FFC1 


HEX05 


LD 


LI 


INOUT+81 


116D 


1 


4C98 


114A 




BSC 


I 


HEX,+- 


116F 





6204 






LDX 


2 


4 


1170 





1004 




HEX06 


SLA 




4 


1171 





0050 






STO 




W0RK1 


1172 





1010 






SLA 




16 


1173 





005 1 






STO 




ZONE 


1174 





6300 






LDX 


3 





1175 





C500 


FFC1 




LD 


LI 


INOUT+81 


1177 


1 


4C10 


117B 




BSC 


L 


HEX07,- 


1179 





7309 






MDX 


3 


9 


117A 





684A 






STX 




ZONE 


117B 





1001 




HEX07 


SLA 




1 


117C 


1 


4C10 


1182 


* 


BSC 


L 


HEX08,- 


117E 





4480 


FFE7 


BSI 


I 


ABORT 


1180 





E032 






DC 




/E0 32 


1181 





0001 




* 
HEX08 


DC 




1 


1182 





1001 




SLA 




1 


1183 


1 


4C10 


118D 




BSC 


L 


HEX09,- 


1185 


1 


7400 


11C5 




MDX 


L 


ZONE.O 


1187 





7001 






MDX 




*+l 


1188 





700E 




jji 


MDX 




HEX11 


1189 





4480 


FFE7 




BSI 


I 


ABORT 


118B 





E033 






DC 




/E033 


118C 





0001 




* 


DC 




1 


1180 


1 


4C20 


1193 


HEX09 


BSC 


L 


HEX10,Z 


118F 





4480 


FFE7 




BSI 


I 


ABORT 


1191 





E034 






DC 




/E034 


1192 





0001 






DC 




1 


1193 





7301 




HEX10 


MDX 


3 


1 


1194 





1001 






SLA 




1 


1195 





4810 






BSC 




- 


1196 





70FC 






MDX 




HEX10 


1197 





1001 




HEX11 


SLA 




1 


1198 


1 


4C18 


119E 


* 


BSC 


L 


HEX12.+- 


119A 





4480 


FFE7 


BSI 


I 


ABORT 


119C 





E035 






DC 




/E035 


1190 





0001 




A' 


DC 




1 


119E 





6B22 




HEX12 


STX 


3 


WORK 


119F 





C021 






LD 




WORK 


11A0 





E821 






OR 




W0RK1 


11A1 





7101 






MDX 


1 


1 


11A2 





72FF 






MDX 


2 


-1 


11A3 





70CC 






MDX 




HEX06 


11A4 


1 


6680 


11C4 




LDX 


12 


ADRS 


11A6 


1 


7400 


1018 




MDX 


L 


PATCH, 


11A8 





7003 






MDX 




HEX13 


11A9 





D600 


FF70 




STO 


L2 


INOOT 


11AB 





7012 






MDX 




HEX15 


11AC 


1 


7400 


11C4 


HEX13 


MDX 


L 


A0RS,0 


11AE 





7004 






MDX 




HEX14 


11AF 


1 


8400 


OFCE 




A 


L 


RELFC 


11B1 





D012 






STO 




ADRS 


11B2 





709B 






MDX 




HEX01 


11B3 


1 


7400 


11C3 


HEX14 


MDX 


L 


RLIND.O 



SKIP ON COLUMN COUNTER 
BRANCH TO CONTINUE 

EXIT 80 COLUMNS CONVERTED 

FETCH 1ST WORD OF GROUP 
EXIT HEX IF BLANK 
SET GROUP OF 4 INDEX 
POSITION A REG 
SAVE A REG 
CLEAR A REG 

CLEAR 12 ZONE INDICATOR 
SET CHARACTER IX 
FETCH CARD COLUMN 
BRANCH ON ZERO 12 ZONE 
SET XR FOR ALPHA DATA 
SET 12 ZONE INDICATOR 
POSITION 11 ZONE BIT 
BRANCH ON ZERO 11 ZONE 

ABORT EXIT 

MID-11 ZONE PUNCH-NOT HEX 

WORD COUNT 

POSITION ZONE 
BRANCH ON ZERO ZONE 
SKIP IF 12 ZONE 
12 ZONE ON-CALL ABORT 
CONTINUE BRANCH 

ABORT EXIT 

MID-11-0 PUNCHES-NUT HEX 

WORD COUNT 

BRANCH IF DIGITS ON 



ABORT EXIT 
MID-NO DIGIT PCH 
WORD COUNT 



-NOT HEX 



INCR CHARACTER XR 
POSITION DIGIT BIT 
SKIP IF DIGIT FOUND 
BRANCH TO CK NEXT DIGIT 
REMOVE FOUND DIGIT 
BRANCH IF NO OTHERS 

ABORT EXIT 

MID-MULT DIGITS-NOT HEX 

WORD COUNT 

STORE CHARACTER 

FETCH CHARACTER 

INCLUDE PREVIOUS CHARS 

INCR COLUMN XR 

SKIP IF GROUP COMPLETE 

GO CONVERT NEXT COLUMN 

IX 2 = STORAGE ADDRESS 

SKIP IF EDIT CARD 

PATCH CARD BRANCH 

SAVE CONVERTED EDIT WORD 

CONTINUE BRANCH 

SKIP IF ADDRESS FIELD 

DATA FIELD BRANCH 

ADO RELOCATION FACTOR 

SAVE ADJUSTED ADDRESS 

GO TO CONVERT DATA 

SKIP IF DATA NOT RfcLOC 



80 340 820 
80 340 830 
80 340 840 
80 340 850 
80 340 860 
80 340 870 
80 340 880 
80 340 890 
80 340900 
80 340 910 
80 340920 
80 340 930 
80 340940 
80 340 950 
80 340 960 
80 340970 
80 340 980 
80 340 990 
80 341000 
80 3410 10 
80 3410 20 
80 3410 30 
80 34 10 40 
80 3410 50 
80 34 10 60 
80 3410 70 
80 3410 80 
80 3410 90 
80 341100 
80 341110 
80 34 1 1 20 
80 341130 
80 341140 
80 341150 
80 341160 
80 341170 
80 34 1 1 80 
80 341190 
80 341200 
80341210 
80 341220 
80341230 
80341240 
80341250 
80 341260 
80 3412 70 
80 341280 
80341290 
80 341300 
80341310 
80 341320 
80 341330 
80 341340 
80341350 
80 341360 
80 341370 
80 341380 
80 341390 
80 341400 
80 341410 
80 341420 
80 341430 
80 341440 
80 341450 
80 341460 
80 341470 
80 341480 
80 341490 



BRNH TO ADD RELOC FACTOR 
BRANCH TO STORE WORD 
ADD RELOCATION FACTOR 
SAVE DATA WORD 
CALL ADDRESS CK RTN 
FETCH CONVERTED DATA 
STORE IN PROPER LUC 
INCREMENT STORAGE POINTER 
CONTINUE CONVERSION 
* 
CONSTANTS * 

WORK LUCATION 1 
WORK LOCATION 2 
RELOCATE GROUP IND 
HEX CARD ADDRESS 
12 ZONE INDICATOR 
"R» CARD CODE 

•r T- *r ty 3 6 t & 'r- *? & & & -!• 'r % & % *r 'f- & v & ^.' ',' -£ *r -f- '£ ?,• -r -. : - ■■','• «r ~'f % ',' ■',' # # £ ^l 1 # v % 'i' '^ 

* MPXOM - CARD INPUT ROUTINE * 

*«*#*#«*********«*«*«***********#*#«********# 

* * 

* ** READ1 ** * 

* THIS ROUTINE IS CALLED WHENEVER A CARD* 

* READ FUNCTION IS TO BE PERFORMED. IT IS* 

* CALLED BY MPDM1 TO READ THE OFT OBJECT* 

* DECK, BY MPDM2 TO READ MPXOM AND DFT * 

* EDIT CARDS AND BY MPDM4 TO READ DFT * 

* CONTROL CARDS. * 



11B5 





7001 






MDX 


*£1 


11B6 





7002 






MDX 


* + 2 


11B7 


1 


8400 


OFCE 




A 


L RELFC 


11B9 





0007 






STU 


WORK 


11BA 


1 


4400 


1019 




BSI 


L CKADR 


11BC 





C004 






LD 


WURK 


11BD 





D200 






STO 


2 


11BE 


1 


7401 


11C4 


HEX15 


MDX 


L ADRS.l 


11C0 





7080 




* 
* 


MDX 


HEX0 1 

CO 


11C1 





0000 




WORK 


DC 





11C2 





0000 




W0RK1 


DC 





11C3 





0000 




RLIND 


DC 





11C4 





0000 




ADRS 


DC 


*-* 


11C5 





0000 




ZONE 


DC 





11C6 





4010 




K4010 


DC 


/40 10 



* READ1 CALLS ON THE 

* ROUTINE TO PERFORM 

* OF CARDS. THE CARDS 

* CARDZ,1N LOCATIONS 

* IN0UT+79IFFBF) .THE 

* CARD IMAGE. 



MPX CARDZ ( 1442) * 

THE ACTUAL READING * 

WILL BE PLACED, BY * 

IN0UTIFF70) THROUGH * 

DATA IS STORED IN * 



IF THE 1442 IS OFF-LINE WHEN READ1 IS * 
ENTERED, A CALL IS MADE ON CARDZ TO * 

PLACE IT UN-LINE. AFTER A CARD HAS BEEN* 
REAO.READl WILL CALL CARDZ TO RESTORE * 
THE 1442 OFF-LINE. * 

ONE CARD WILL BE READ EACH TIME READ1 * 
IS CALLED. * 

* 
MPX WILL INFORM THE OPERATOR, VIA A * 

TYPED MESSAGE IF THE 1442 GOES NOT * 

READY. BOTH MPX AND MPXDM WILL INFORM * 
THE OPERATOR OF 1442 ERROR CONDITIONS.* 

CALLING SEOOENCE * 

* 
BSI L READ1 * 

CALLED ROUTINES * 

1. CARDZ - MPX CARD READ ROUTINE * 

2. ABORT - MPXDM ERROR ABORT RTN * 

CALLED SUBROUTINES * 

NONE * 

* 
POSSIBLE ABORT CONDITIONS * 



80 341500 
80 341510 
80341520 
80 341530 
80341540 
80 341550 
80341560 
80341570 
80 341580 
80341590 
80 341600 
80 341610 
80341620 
80 341630 
80341640 
80 341650 
80 341660 
80 341670 
80341680 
80 341690 
60341700 
80 341710 
80341720 
80 3417 30 
80 341740 
80 341750 
80 341760 
80 341770 
80341780 
80 341790 
80 341800 
80 341810 
80 3418 20 
80 341830 
80 341840 
80 341850 
80 341860 
80 341870 
80341880 
80 341890 
80 341900 
80 341910 
80341920 
80 341930 
80 341940 
80 341950 
80 341960 
80 341970 
80 341980 
80 341990 
80 342000 
80 3420 10 
80 3420 20 
80 3420 30 
80 3420 40 
80 3420 50 
80 3420 60 
80 3420 70 
80 3420 80 
80 3420 90 
80 342100 
80 342110 
80 342120 
80 342130 
80 342140 
80 342150 
80 342160 
80 342170 
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* 


CODE * 




CONDITION * 


80 342180 










* 










* 


80 342190 










* 


EC04 * 


1442 PARITY 1 


ERROR * 


80 342200 










* 


EC05 * 


1442 FEED CHECK * 


80 342210 










* 


EC06 * 


1442 READ/PUNCH CHECK * 


80 342220 










* 










* 


80 3422 30 










* 


ROOTINE ! 


ENTRY READ1 


* 


80 342240 










* 


ROUTINE i 


EXIT RD106 


* 


80 342250 










# 










* 


80 342260 










********************************************* 


80 342270 










'* 










* 


80 3422 80 


11C7 





0000 




READ1 


DC 







ENTRY POINT 


80 342290 










* 












80 342300 


11C8 





6150 








LDX 


1 


80 


IX 1 = WORD COUNT 80 


80 342 310 


11C9 





6D00 


FF6F 


* 




STX 


LI 


INOUT-1 


SET WORD CNT IN I/O AREA 


80 342320 
80 342 330 


11CB 


1 


4400 


123C 






BSI 


L 


CARDZ 


CALL CARDZ ROUTINE 


80 342340 


11CD 


1 


120E 




* 




DC 




LIST1 


I/O LIST ADDRESS 


80 342350 
80 342360 


11CE 





C03F 




RD100 


LD 




LIST1 


FETCH LINK/BUSY PARAM 


80 342370 


11CF 


1 


4C20 


11CE 






BSC 


L 


RD100.Z 


BRANCH IF BUSY 


80 342380 


11D1 





C042 








LD 




LIST1+6 


FETCH ERROR PARAMETER 


80342390 


11D2 





D01D 








STO 




RD102+2 


SAVE IT 


80 342400 


11D3 


1 


74FF 


1214 






MDX 


L 


LISTU6,-1 


SKIP IF OP COMPLETE 


80 342410 


11D5 





7001 








MDX 




*&1 


BRANCH-NOT OP COMP 


80 342420 


11D6 





7020 








MDX 




RD104 


BRANCH-OP COMPLETE 


80 342430 


11D7 





C03C 








LD 




LIST1&6 


FETCH ERROR PARAMETER 


80 342440 


11D8 


1 


B400 


0995 






CMP 


L 


K2 


CK FOR 1442 NOT READY 


80 342450 


11DA 





7002 








MDX 




*£2 


GT 2 - ERROR OR LAST CARD 


80 342460 


11DB 





7016 








MDX 




RD103 


LT 2 - DEVICE OFF LINE 


80 342470 


UDC 





70EB 








MDX 




READltl 


= 2 - 1442 NRDY-REPEAT 


80 342480 


HDD 





F02F 








EOR 




K7 


TEST IF LAST CARD 


80 342490 


11DE 


1 


4C18 


11F7 






BSC 


L 


RD104,6- 


BRANCH ON LAST CARD IND 


80 342500 


11E0 





COOF 








LD 




RD102+2 


FETCH ERROR CODE 


80 342 510 


11E1 





E82A 








OR 




KECOO 


ADD MID PREFEX 


80 342520 


11E2 





DOOD 








STO 




RD102+2 


SAVE CODE 


80 342 530 


11E3 





6824 








STX 




ABTID 


SET ABORT INDICATOR 


80 342540 


11E4 


1 


7400 


120A 






MDX 


L 


DVOL.O 


SKIP IF OFF LINE IND =0 


80 342550 


UE6 





701A 








MDX 




RD105 


BRANCH - IND IS ON 


80 342560 


11E7 





C023 




RU101 


LI) 




RDFCN 


SET 1/0 LIST FUNCTION 


80 342570 


11E8 





D02C 








STO 




LIST1+7 


* TO READ CARD 


80 342580 


11E9 





C01E 








LD 




ABTID 


FETCH ABORT INDICATOR 


80 342 590 


11EA 





4818 








BSC 




+- 


SKIP IF ON 


80 342600 


11EB 





701A 








MDX 




R0106 


CARD READ-CONTINUE 


80 342610 


11EC 





1010 








SLA 




16 


CLEAR ABORT 


80 342620 


11ED 





D01A 




* 




STO 




ABTID 


* INDICATOR 


80 342630 
80 342640 


11EE 





4480 


FFE7 


RD102 


BSI 


I 


ABORT 


ABORT EXIT 


80 342650 


UFO 





ECOO 








DC 




/ECOO 


MID-CARD READ-CARDN-ERROR 


80 342660 


11F1 





0000 




* 




DC 







WORD COUNT 


80 342670 
80 342680 


11F2 





6817 




RU103 


STX 




DVOL 


SET DEV OFF LINE IND 


80 342690 


11F3 


1 


C400 


10D3 






LD 


L 


K0100 


SET I/O LIST PARAMETER 


80 342700 


11F5 





D01F 








STO 




LIST1+7 


* TO PLACE DEV ON LINE 


80 342 710 


11F6 





70D1 








MDX 




REA01£1 


BRANCH-PUT DEV ON LINE 


80 342 720 


11F7 





C012 




RD104 


LD 




DVOL 


FETCH DEV OFF LINE IND 


80 342730 


11F8 


1 


4C18 


11E7 






BSC 


L 


RD101.+- 


BRANCH IF IND = 


80 342740 


UFA 


1 


7400 


1209 






MDX 


L 


RDIND.O 


SKIP IF READ IND OFF 


80 342750 


HFC 





7004 








MDX 




R0105 


BRANCH-INDICATOR ON 


80 342760 


11FD 





680B 








STX 




RDIND 


SET READ INDICATOR 


80 342770 


11FE 





COOC 








LD 




RDFCN 


SET I/O LIST PARAMETER 


80 342780 


11FF 





0015 








STO 




LIST1+7 


* TO READ CARD 


80 342 790 


1200 





70C7 








MDX 




READ161 


BRANCH TO READ A CARD 


80 342800 


1201 





1010 




RD105 


SLA 




16 


CLEAR READ 


80 342810 


1202 





0006 








STO 




RDIND 


* AND DEVICE OFF 


80 342820 


1203 





D006 








STO 




DVOL 


* LINE INDICATORS 


80342830 


1204 





0010 








STO 




LIST1+7 


I/O PARAM FOR OFF LINE 


80 342840 


1205 





70C2 








MDX 




READ1&1 


BRANCH TO TAKE DEV OFF LN 


80 342 8 50 



1206 1 4C80 11C7 



1208 





0000 


1209 





0000 


120A 





0000 


120B 





1000 


120C 





ECOO 



120D 0007 



120E 
120F 
1210 
1211 
1212 
1213 



0000 
0000 
0000 
0000 
0000 
0000 



1214 0000 

1215 1000 

1216 FF6F 



RD106 

* 

* 

ABTID 

RDIND 

DVOL 

RDFCN 

KECOO 

K7 

* 

* 
LIST1 



BSC I READ1 



RETURN TO CALLER 



CONSTANTS 



DC ABORT INDICATOR 

DC READ INDICATOR 

DC DEV OFF LINE IND 

DC /1000 CONSTANT FOR CARD READ 

DC /ECOO CONSTANT HEX ECOO 

DC 7 CONSTANT DEC 7 

* 
CARDN I/O PARAMETER LIST 

DC *-* LINK/BUSY 

DC EXIT TYPE 

DC *-* SYSTEM RESERVED 

DC *-* SYSTEM RESERVED 

DC *-* SYSTEM RESERVED 

DC *-* SYSTEM RESERVED 

DC ERROR INDICATOR 

DC /1000 CONTROL PARAMETER 

DC INOUT-1 I/O ADDRESS 



******************************************** 

MPXDM - ERROR ABORT ROUTINE * 

**************************************** 

* 
** ABRT ** * 

THIS ROUTINE IS ENTERED WHENEVER MPXDM* 
DETECTS AN ERROR CONDITION. * 

ROUTINE FUNCTIONS ARE AS FOLLOWS * 



l.CALL MPXDM LOG ROUTINE TO OUTPUT THE* 

ERROR MESSAGE DEFINED IN THE ABORT * 

CALL. * 

2. CALL TSCTL SUBROUTINE TO UNLOCK TIME* 

SHARE MODE IF IT IS LOCKED IN. * 

3. CALL MTERM SUBROUTINE TO DE-EXECUTE * 

THE DFT IF IT IS EXECUTING. * 

4. EXIT VIA VECTOR ABRTXIFFD8) * 

A. IF THE ERROR WAS DUE TO OR DURING * 

AN MPXDM OPERATION, IT IS CONSIDER-* 

ED UNRECOVERABLE AND THE EXIT VIA * 

ABRTX WILL RESULT IN A CALL ON THfc* 

MPX EXIT ROUTINE. A CALL ON EXIT * 

WILL TERMINATE ON-LINE OPERATIONS.* 

B.IF THE ERROR WAS DUE TO A DFT * 

OPERATION.IT IS CONSIDERED RESTART* 

RECOVERABLE. THE EXIT VIA ABRTX * 

WILL CAUSE A BRANCH TO THE MPXDM * 

MCTRL ROUTINE. TIME SHARE WILL NOT * 

BE ENDED, AND THE C.E. MAY CALL FOR* 

A DFT RE-LOAD FROM THE C.E.SWITCHS* 

* 
CALLING SEQUENCE * 



BSI I ABORT 

DC EID - ERROR ID 

DC WDCNT-MSG WORD CNT 

C(ABORT) = ABRT 



CALLED ROUTINES 



1. LOG - MPXDM PRINT ROUTINE * 

2. MCTRL-MPXDM CONTROL ROUTINE VIA* 



80 
80 
80 
80 
80 
80 
80 
80 
FCN 80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 
80 



342860 
342870 
342880 
342890 
342900 
342910 
342920 
342930 
342940 
342950 
342960 
342970 
342980 
342990 
343000 
3430 10 
3430 20 
3430 30 
3430 40 
34 30 50 
3430 60 
3430 70 
3430 80 
3430 90 
343100 
343110 
343120 
343130 
343140 
343150 
343160 
343170 
343180 
343190 
343200 
343210 
343220 
3432 30 
343240 
343250 
343260 
343270 
343280 
343290 
343300 
343310 
343320 
343330 
343340 
343350 
343360 
343370 
343380 
343390 
343400 
343410 
343420 
343430 
343440 
343450 
343460 
343470 
343480 
343490 
343500 
343510 
343520 
343530 
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1217 0000 

1218 C400 FFF3 
121A D400 FFDA 
121C 1 6780 1217 
121E C300 
121F D017 

1220 C301 

1221 D013 

1222 

1224 1 

1225 1 

1226 



4480 FFF8 
1235 
1222 
0000 



1227 
1229 
122A 
1228 
122C 
122E 
1230 



C400 1142 

4820 

7006 

6300 

4400 0A61 

4400 0A40 

6803 



1231 4C80 FFD8 

1233 1 0AA2 

1234 0000 



1235 0000 

1236 0000 

1237 0000 

1238 0000 

1239 0000 
123A 0000 
123B 0000 



DATE 
EC NO. 
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411939 



20MAR70 
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# 




VECTOR ABRTX. 


* 




80 343540 




* 




3. EXIT -MPX EXIT ROUTINE VIA 


* 




80 343550 




* 




VECTOR ABRTX. 


* 




80 343560 




* 








* 




80 343570 




* 


CALLED SUBROUTINES 




* 




80 343580 




* 








* 




80 343590 




* 




1. TSCTL-LOCK/UNLOCK TIME SHARE 


* 




80 343600 




* 




2. MTERM-TERMINATE DFT OPERATION 


* 




80 343610 




* 








* 




80 343620 




* POSSIBLE 


; ABORT CONDITIONS 


* 




80 343630 




* 








* 




80 343640 




* NONE 






* 




80 343650 




* 








* 




80 343660 




* ROUTINE 


ENTRY ABRT 




* 




80 343670 




* ROUTINE 


EXIT ABRXT 




* 




80 343680 




* 








* 




80 343690 




********************************************* 




80 343700 




* 








* 




80 343710 




ABRT 


DC 


*-* 


RETURN ADDRESS 






80 343720 




* 












80 343730 






LD 


L DMBGN 


SET ACTIVE POLL 






80 343740 






STO 


L ACTIV 


* TO MPXDM 






80 343750 






LDX 


13 ABRT 


SET IX TO CALL STRING 




80 343760 






LD 


3 


FETCH ERROR CODE 






80 343770 






STO 


ABM1 


STORE IN MESSAGE STRING 




80 343780 






LD 


3 1 


FETCH WORD COUNT 






80 343790 






STO 


ABMSG 


SET IN MESSAGE STRING 




80 343800 




ABRT1 


BSI 


I LOG 


CALL LOG ROUTINE 






80 343810 






DC 


ABMSG 


MESSAGE ADDRESS 






80 343820 






DC 


ABRT1 


BUSY RETURN 






80 343830 






DC 


/oooo 


TERMINATION TYPE 






80 343840 




* 












80 343850 






LD 


L CTLRD 


FETCH CONTROL CARD 


IND 




80 343860 






BSC 


Z 


SKIP IF OFF 






80 343870 






MDX 


ABRXT 


BYPASS DXEO DFT 






80 343880 






LDX 


3 


SET TO UNLOCK TIME 


SHARE 




80 343890 






BSI 


L TSCTL 


BRNH TO UNLOCK TIMESHARE 




80 343900 






BSI 


L MTEKM 


DXEO PRESENT PROGRAM 




80 343910 






STX 


DTABT 


SET DFT ABORTED IND 




80 343920 




* 












80 343930 




ABRXT 


BSC 


I ABRTX 


EXIT ABRT ROUTINE 






80 343940 




* 












80 343950 




EXTAD 


DC 


EXIT 


UNRECOVERABLE ABORT EXIT 




80 343960 




DTABT 


DC 





DFT ABORTED INDICATOR 




80 343970 




# 








* 




80 343980 




* 




ABORT MESSAGE STRING 


* 




80 343990 




* 








# 




80 344000 




ABMSG 


DC 


/OOOO 


LINE NMBR/WORD COUNT 




80 3440 10 






DC 


/OOOO 


HEX/DEC = HEX OUTPUT 




80 3440 20 




ABM1 


DC 





MESSAGE ID 






80 3440 30 




ABM2 


DC 


*-* 


MOD 1 






80 3440 40 




ABM3 


DC 


*-* 


MOD 2 






80 3440 50 




ABM4 


DC 


*-* 


MOD 3 






80 3440 60 




ABM5 


DC 


*-* 


MOD 4 






80 3440 70 




* 












80 3440 80 




*********************************«***************; 


{;* 


80 3440 90 




* 




CARDZ SUBR FOR IBM SYSTEM PROGRAMS 


* 


80 344100 




r£ Jf. ip Tyfi i? '. 


*******************: 


******************** 


******** 


80344110 




* 










* 


80 344120 




* 


NOTE THIS SUBR IS 


THE SAME AS CARDN 




* 


80 344130 




* 




EXCEPT FOR THE FOLLOWING THINGS 




* 


80 344140 




« 










* 


80 344150 




£ 




1. SUPORTS 


ONLY ONE 1442 




* 


80 344160 




* 




2. ALLOWS 1 


3NLY TYPE 1 EXITS 




* 


80 344170 




* 




3. MUST RESIDE IN CALLING PROGRAM 


* 


80 344180 




* 




4. READS ONLY IN C.I. FORMAT 




* 


80 344190 




* 




5. STORAGE 


PROTECTS 9 WORDS OF 


* 


80 344200 




* 




THE LIST ALWAYS 




* 


80 344210 




31JUL70 
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* 






6. DOES NOT REMOVE PUNCH STOP BIT 


* 80 344220 










* 






FRO* 


\ I/O AREA AFTER A PUNCH 


* 80 3442 30 










* 






OPERATION 


* 80344240 










« 










* 80344250 










*********:$ 


:************* 


j**************************** 80 344260 










# 










80 344270 










# 


CARE 


) DEVICE TABLE 


: EQUATES 


80 344280 










* 










80 344290 






0003 




CDROI 


EQU 




3 


PAST NOT READY INDICATOR 


80 344300 






0004 




CDRDC 


EQU 




4 


READ CARD IMAGE 


80 344310 






0006 




CDRDP 


EOU 




6 


READ PACKED 


80 344320 






0008 




CDWRT 


EOU 




8 


PUNCH 


80 344330 






OOOA 




CDFED 


EQU 




10 


FEED 


80 344340 






OOOC 




CDSSL 


EOU 




12 


STACKER SELECT 


80 344350 






OOOE 




CDSEN 


EOU 




14 


SENSE 


80 344360 






0010 




CDSNR 


EQU 




16 


SENSE/RESET 


80 344370 






0012 




CDOPC 
* 


EQU 




18 


OPCOP SUBR ENTRY POINT 


80 344380 
80 344390 










* 


CALL 


SECTION 




80 344400 










* 










80 344410 






123C OOOO 




CARDZ 


DC 







CALL ENTRY PUINT 


80 344420 






123D 4480 


0075 




BSI 


I 


SIOSA 


CALL IOSAVE 


80 344430 






123F D102 






STO 


XI 


SYSR1 


SAVE CALL ADDR IN LIST 


80 344440 






1240 1090 






SLT 




16 




80 344450 






1241 D104 






STO 


XI 


SYSR3 


SAVE LEV/AREA IND IN LIST 


80 344460 






1242 C039 






LD 




CDINI 




80 344470 






1243 D103 






STO 


XI 


SYSR2 


PUT INT ENTRY ADDR IN LIST 


80 344480 






1244 637F 






LDX 


3 


CON 


XR3 POINTS TO FIXED AREA 


80 344490 






1245 6680 


00D9 




LDX 


12 


$1442 


XR2 POINTS TO DEVICE TABLE 


80 344500 






1247 720E 






MDX 


2 


-DVSTR 




80 344510 






1248 C100 






LD 


XI 


LINKB 


TEST FOR LINK ERROR 


80 344520 






1249 1 4420 


1259 




BSI 


L 


CDCER,Z 


BRANCH IF LINK/BUSY NOT 


80 344530 






124B C107 






LD 


XI 


CP 


TEST FOR ON/OFF FUN 


80344540 






124C 188C 






SRT 




12 




80 344550 






124D 1 4C20 


1262 




BSC 


L 


CDB1.Z 


BRANCH IF NOT ON/OFF FUNCT 


80 344560 






124F 1084 






SLT 




4 


SET ON/OFF-LINE INOICATUR 


80 344570 






1250 2E40 


FFF8 




STS 


L2 


DVONF, /40 




80 344580 






1252 D2F8 






STO 


X2 


DVONF 




80 344590 






1253 2E41 


FFF8 




STS 


L2 


DV0NF./41 




80 344600 






1255 C306 






LD 


X3 


SD1-C0N 


SET ERROR PARAMETER 


80 344610 






1256 D106 






STO 


XI 


ERP 




80 344620 






1257 4480 


0076 


CDCEX 


BSI 


I 


$IOEX 


EXIT VIA IOEXIT 


80 344630 






1259 OOOO 




CDCER 


DC 







ILLEGAL CALL TO CARDN 


80 344640 






125A 0BB3 






XIO 


X3 


SMK1-C0N 


MASK 


80 344650 






125B 0BB5 






XIO 


X3 


SMK2-C0N 




80 344660 






125C 4480 


00C7 




BSI 


I 


SRSAV 


CALL RSAVE 


80 344670 






125E 4480 


0078 




BSI 


I 


SIOER 


CALL ERROR SUBR 


80 344680 






1260 OOOA 






DC 




10 




80 344690 






1261 0002 






DC 




2 




80 344700 






1262 1 4408 


1259 


CDB1 


BSI 


L 


CDCER.S 


BRANCH IF ILLEGAL FUNCTION 


80 344710 






1264 9308 






S 


X3 


SD4-C0N 


TEST FUNCTION CODE FOR 1-4 


80 344720 






1265 1 4430 


1259 




BSI 


L 


CDCER, -Z 


BRANCH IF ILLEGAL FUNCTION 


80 344730 






1267 8307 






A 


X3 


SD2-C0N 


IS FUN READ/PUNCH FUNCTION 


80 344740 






1268 1 4C30 


1271 




BSC 


L 


CDB1A.Z- 


BRANCH IF NOT R/P 


80 344750 






126A C580 


0008 




LD 


11 


IOAP 


TEST FOR VALID WORD COUNT 


80 344760 






126C 1 4408 


1259 




BSI 


L 


CDCER, 6 


BRANCH IF I OR - WD COUNT 


80 344770 






126E 902C 






S 




C0D80 


TEST FUR WD CNT GREATER 


80 344780 






126F 1 4430 


1259 




BSI 


L 


CDCER, -Z 


THAN 80--BRANCH YES 


80 344790 






1271 C2F8 




CDB1A 


LD 


X2 


DVONF 


TEST FOR DEVICE ON-LINE 


80 344800 






1272 1 4C20 


1277 




BSC 


L 


CDB2,Z 


BRANCH IF ON-LINE 


80 344810 






1274 C307 






LD 


X3 


SD2-C0N 


TELL CALL THAT DEVICE IS 


80 344820 






1275 D106 






STO 


XI 


ERP 


OFF-LINE 


80 344830 






1276 70E0 






MDX 




CDCEX 


EXIT 


80 344840 






1277 0BB3 




CDB2 


XIO 


X3 


SMK1-C0N 


MASK 


80 344850 






1278 0BB5 






XIO 


X3 


SMK2-C0N 




80 344860 






1279 4480 


0063 




BSI 


I 


SIOST 


CALL IOSET 


80 344870 






127B 0001 






DC 




1 


NUMBER OF PARAMETERS 


80 344880 






127C 1 12DF 




CDINI 


DC 




CDINT 


ADDR OF IOCR INT SECTION 


80 344890 




DATE 
EC NO. 


17JUN68 20MAR70 
411939 431320 


31JUL70 
431327 
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127D 
127E 
127F 
1280 
1281 
1282 
1283 
1285 
1286 
1287 
1288 
128A 
128B 
128D 
128E 
128F 
1291 
1292 
1293 
1295 
1296 
1298 
1299 
129A 



129B 
129C 
129D 
129E 
129F 
12A0 
12A2 
12A3 
12A5 
12A6 
12A8 
12A9 
12AA 
12AB 
12AC 
12AD 
12AE 
12B0 
12B1 
12B3 
12B4 
12B5 
12B6 
12B7 
12B8 
12B9 
12BA 
12BB 
12BC 
12BE 
12BF 
12C1 
12C2 
12C4 
12C5 
12C6 
12C7 
12C9 
12CA 
12CB 
12CC 



0BB3 

0BB5 

D105 

D013 

6904 

6A02 

4480 010A 

0000 

0000 

0000 

4C20 1293 

4011 

4C08 1293 

D106 

6A02 

4480 0109 

0000 

70C4 

7401 0000 

1000 

4480 OOFE 

0009 
COOO 
70BC 



0050 
0000 
COFE 
D388 
C2F8 
4C20 
C307 
4C80 
OAOE 
4C04 
1010 
D203 
C3AB 
D2FB 
C107 
180C 
4C04 
1801 
4C04 
OAOC 
1010 
D2FB 
C306 
70EB 
C108 
8306 
D208 
C108 
8580 
D3B7 
C480 
EBA8 
D480 
0A08 
7007 
1801 
4C04 
C108 
8306 
D204 
0A04 



12A5 
0037 
12D5 



12C6 
12B8 



0008 
0036 

0036 

12D3 



CDPQ2 
CDP01 



CDGQ1 

CDBSY 

CDSP1 



XIO 

XIO 

STO 

STO 

STX 

STX 

BSI 

DC 

DC 

DC 

BSC 

BSI 

BSC 

STO 

STX 

BSI 

DC 

MDX 

MDX 

NOP 

BSI 

DC 

LD 

MDX 



X3 
X3 



$MK1-C0N 
SMK2-C0N 
XI SYSR4 
CDBSY+1 

1 CDPQ1 

2 CDPQ2 
I SPUTO 

#-* 

*-* 


L CDBSY, Z 

CDSIO 
L CDBSY, & 
XI ERP 

2 CDG01 
I $GETO 

*-* 

CDCEX 
L *-*,! 



I 



$STPR 
9 

CDCEX 



* 

CDD80 

CDSIO 



CDSEX 
CDS1 



START I/O SECTION 



DATE 
EC NO. 



17JUN68 
411939 



20MAR70 
431320 



DC 

DC 

LD 

STO 

LD 

BSC 

LD 

BSC 

XIO 

BSC 

SLA 

STO 

LD 

STO 

LD 

SRA 

BSC 

SRA 

BSC 

XIO 

SLA 

STO 

LD 

MDX 

LD 

A 

STO 

LD 

A 

STO 

LD 

OR 

STO 

XIO 

MDX 

SRA 

BSC 

LD 

A 

STO 

XIO 



31JUL70 
431327 



CDFSS 



CDFPH 



CDFNE 
CDFRD 



80 


CDSIO 
X3 $WK5-C0N 
X2 DVONF 
L CDS1.Z 
X3 SD2-C0N 
I $WK5 
X2 CDSEN 
L CDNOT.E 

16 
X2 CDRDI 
X3 1DM1-C0N 
X2 DVRES 
XI CP 

12 
L CDFNE, E 

1 
L CDFPH, E 
X2 CDSSL 

16 
X2 DVRES 
X3 SD1-CUN 

CDSEX 
XI IOAP 
X3 $D1-C0N 
X2 CDWRT 

IOAP 

IOAP 
X3 $WK4-C0N 
I $WK4 
X3 SD8-C0N 
I $WK4 
X2 CDWRT 

CDSEA 

1 

CDFFD.E 

IOAP 
X3 SD1-C0N 
X2 CDRDC 
X2 CDRDC 



XI 
II 



L 
XI 



MASK 


80 344900 
80 344910 




SAVE ADDR OF I/O BUSY IND 


80 344920 




PUT IN SET BUSY INSTRUCTION 


80 344930 




SET UP PUTQ CALL 


80 344940 
80 344950 




ENTER LIST IN QUEUE 


80 344960 




LCT ADDR 


80 344970 




LIST ADDR 


80 344980 




PRIORITY 


80 344990 




BRANCH IF NOT FIRST Q ENTRY 


80 345000 




BRANCH TO START I/O SECTION 


80 3450 10 




BRANCH FUNCTION 


80 3450 20 




SET ERROR PARAMETER 


80 3450 30 




SET UP GETQ CALL 


80 3450 40 




CALL GETQ 


80 3450 50 




LCT ADDR 


80 3450 60 




EXIT 


80 3450 70 




INCREMENT I/O BUSY INDICATR 


80 3450 80 
80 3450 90 




STORAGE PROTECT LIST 


80 345100 




NO. OF PARAMETER 


80345110 




FORCE TYPE 1 EXIT 


80 345120 




EXIT 


80 345130 
80 345140 
80 345150 
80 345160 




CONSTANT 


80 345170 




START I/O ENTRY POINT 


80 345180 




SAVE RETURN ADDRESS 


80 345190 
80 345200 




TEST FOR OFF-LINE 


80 345210 




BRANCH IF ON-LINE 


80 3452 20 




RETURN WITH OFF-LINE 


80 3452 30 
80 345240 




TEST FOR NOT READY 


80 345250 




BRANCH IF NOT READY 


80 345260 




CLEAR PAST NOT RDY INDICATR 


80 345270 
80 345280 




SET NO RESPONSE INDICATOR 


80 345290 
80 345300 




DETERMINE FUNCTION 


80 345310 
80 345320 




BRANCH FUNCTION RD/FEED 


80 345330 
80 345340 




BRANCH FUNCTION PUNCH 


80 345350 




FUNCTION IS STACKER SELECT 


80 345360 




CLEAR NO RESPONSE IND 


80 345370 
80 345380 




FUNCTION IS COMPLETED 


80345390 
80 345400 




SET UP IOCC 


80345410 
80 345420 
80 345430 




PUT IN PUNCH STOP BIT 


80 345440 
80 345450 
80 345460 
80 345470 




OR IN THE BIT 


80 345480 
80 345490 




START PUNCH 


80 345500 




EXIT 


80345510 




IS FUN READ OR FEED 


80 345520 




BRANCH IF FEED 


80345530 




SET UP READ IOCC 


80 345540 
80 345550 
80 345560 




START READ 


80 345570 
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12CD 





C103 




CDSEA 


LD 


XI 


SYSR2 


SET INTERRUPT BRANCH 


80 345580 






12CE 





D2F5 






STO 


X2 


DVISS 




80 345590 






12CF 





C3AB 






LD 


X3 


$DM1-C0N 


SET INT RESPONSE INDICATOR 


80 345600 






12D0 





D2FB 






STO 


X2 


DVRES 




80 345610 






12D1 





1010 






SLA 




16 


INDICATE FUNCTION STARTED 


80 345620 






12D2 





70D0 






MDX 




CDSEX 


EXIT 


80 345630 






12D3 





OAOA 




CDFFD 


XIO 


X2 


CDFED 


FEED A CARD 


80 345640 






12D4 





70F8 






MDX 




CDSEA 


EXIT 


80 345650 






12D'5 





C203 




CUNOT 


LD 


X2 


CDRDI 


WAS CARD READY ON LAST CALL 


80 345660 






12D6 


1 


4C20 


12A3 




BSC 


L 


CDSEX, Z 


BRANCH IF NO 


80 345670 






12D8 





C3E1 






LD 


X3 


$D3-C0N 


SET IND FOR NOT READY 


80 345680 






12D9 





D203 






STO 


X2 


CDRDI 




80 345690 






12DA 





4480 


0078 




BSI 


I 


SIOER 


TELL OPERATOR THAT 1442 IS 


80 345700 






12DC 





OOOF 






DC 




15 


NOT READY 


80 345710 






12DD 





0001 






DC 




1 




80345720 






12DE 





70F6 




* 


MDX 




CDNOT 


EXIT 


80 345730 
80 345740 














* 


INTERRUPT SECTION 




80 345750 














* 










80 345760 






12DF 





637F 




CDINT 


LDX 


3 


CON 


XR3 POINTS TO FIXED AREA 


80 345770 






12E0 





1010 






SLA 




16 


RESET INT RESPONSE IND 


80345780 






12E1 





D2FB 






STO 


X2 


DVRES 




80 345790 






12E2 





C201 






LD 


X2 


DVXEQ 


XR1 POINTS TO LIST 


80 345800 






12E3 





D3B7 






STO 


X3 


SWK4-C0N 




80 345810 






12E4 





6580 


0036 




LDX 


11 


$WK4 




80 345820 






12E6 





D210 






STO 


X2 


CDSNR 


SAVE FOR OPCOP SUBR CALL 


80 345830 






12E7 





0A10 






XIO 


X2 


CDSNR 


SENSE/RESET DSW 


80 345840 






12E8 





EAFA 






OR 


X2 


DVDOW 


OR PROG INDICATORS 


80 345850 






12E9 





D2F9 






STO 


X2 


DVDSW 


SAVE DSW 


80 345860 






12EA 





1004 






SLA 




4 


TEST FOR OPCOP BIT 


80 345870 






12EB 





4C90 


0074 




BSC 


I 


SIMIC,- 


BRANCH IF NOT ON 


80 345880 






12ED 





100C 






SLA 




12 


CLEAR OR WORD 


80 345890 






12EE 





D2FA 






STO 


X2 


DVDOW 




80 345900 






12EF 





C2F9 






LD 


X2 


DVDSW 


TEST FOR ERROR 


80 345910 






12F0 





1002 






SLA 




2 




80345920 






12F1 


1 


4C10 


131F 




BSC 


L 


CDFOK,- 


BRANCH IF NO ERROR 


80 3459 30 






12F3 





0BB3 






XIO 


X3 


1MK1-C0N 


MASK 


80345940 






12F4 





0BB5 






XIO 


X3 


SMK2-C0N 




80 345950 






12F5 





4480 


00C7 




BSI 


I 


$RSAV 


SAVE REGISTERS 


80 345960 






12F7 





C2F6 






LD 


X2 


DVERR 


INCREMENT ERROR COUNT 


80 345970 






12F8 





8306 






A 


X3 


$D1-C0N 




80 345980 






12F9 





D2F6 






STO 


X2 


DVERR 




80 345990 






12FA 





C3E1 






LD 


X3 


$U3-C0N 


SETUP TO STOP FUTURE 


80 346000 






12FB 





D203 






STO 


X2 


CDRDI 


NOT READY ERROR MESS 


80 3460 10 






12FC 





C2F9 






LD 


X2 


DVDSW 


SETUP TO TEST TYPE OF 


80 3460 20 






12FD 





1005 






SLA 




5 


ERROR 


80 3460 30 






12FE 


1 


4C10 


1306 




BSC 


L 


CDE1,- 


BRANCH NOT PARITY 


80 3460 40 






1300 





4480 


0078 




BSI 


1 


$IOER 


CALL IOERR SUBR 


80 3460 50 






1302 





0000 






DC 









80 3460 60 






1303 





0001 






DC 




1 




80 3460 70 






1304 





C308 






LD 


X3 


SD4-C0N 


LD ERROR CODE 


80 3460 80 






1305 





7020 






MDX 




CDC ON 


CONTINUE OPERATION 


80 3460 90 






1306 





1001 




CDE1 


SLA 




1 


TEST STORAGE PROTECT 


80 346100 






1307 


1 


4C10 


1310 




BSC 


L 


CDE2,- 


BRANCH IF NOT STORAGE PROT 


80 346110 






1309 





4480 


0078 




BSI 


I 


$IOER 


CALL I/O ERROR SUBROUTINE 


80 346120 






1306 





0005 






DC 




5 




80 346130 






130C 





0002 






DC 




2 




80346140 






130D 





4480 


00C6 




BSI 


I 


$ECRL 


FORCE RELOAD 


80 346150 






130F 





0000 






DC 









80 346160 






1310 





1001 




CDE2 


SLA 




1 


TEST OTHER ERRORS 


80 346170 






1311 


1 


4C10 


1319 




BSC 


L 


CDE3,- 


BRANCH NOT FEED CHECK 


80 346180 






1313 





4480 


0078 




BSI 


I 


$IOER 


CALL IOERR 


80 346190 






1315 





0019 






DC 




25 




80 346200 






1316 





0001 






DC 




1 




80 346210 






1317 





C309 






LD 


X3 


S05-C0N 


LD ERROR CODE 


80 346220 






1318 





700D 






MDX 




CDC ON 


CONTINUE 


80 3462 30 






1319 





4480 


0078 


CDE3 


BSI 


I 


SIOER 


ANY ERROR 


80 346240 






131B 





001E 






DC 




30 




80 3462 50 
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131C 





0001 






DC 




1 




80 346260 


131D 





C341 






LD 


X3 


SD6-C0N 


LD ERROR CODE 


80 346270 


131E 





7007 






MDX 




CDC ON 




80 346280 


131F 





1001 




CDFOK 


SLA 




1 


TEST LAST CARD 


80 346290 


1320 


1 


4C10 


1325 




BSC 


L 


CDCON-l,- 


BRANCH IF NOT LAST CARD 


80 346300 


1322 





OAOA 






XIO 


X2 


CDFED 


FEED OUT LAST CARD 


80 346310 


1323 





C3A8 






LD 


X3 


SD8-C0N 


SET ERROR CODE 


80 346320 


1324 





7001 






MDX 




CDC ON 


CONTINUE 


80 346330 


1325 





C306 






LD 


X3 


$D1-C0N 


LD OKAY ERROR CODE 


80 346340 


1326 





2D40 


0006 


CDC ON 


STS 


LI 


ERP./40 


PUT ERROR COOE IN I/O LIST 


80 346350 


1328 





0106 






STO 


XI 


ERP 




80 346360 


1329 





0BB3 




CDCN2 


XIO 


X3 


SMK1-C0N 


MASK 


80 346370 


132A 





0BB5 






XIO 


X3 


SMK2-C0N 




80 346380 


132B 





6A02 






STX 


2 


*62 


CALL GETQ 


80 346390 


132C 





4480 


0109 




BSI 


I 


$GETO 




80 346400 


132E 





0000 






DC 




*-* 




80 346410 


132F 





4480 


OOFF 




BSI 


I 


$STRL 


UNSTORAGE PROTECT LIST 


80 346420 


1331 





0009 






DC 




9 


CONSTANT 


80 346430 


1332 





C580 


0005 




LD 


11 


SYSR4 


RESET I/O BUSY INDICATOR 


80 346440 


1334 





9306 






S 


X3 


$D1-C0N 




80 346450 


1335 





D580 


0005 




STO 


11 


SYSR4 




80 346460 


1337 





OBAF 






XIO 


X3 


$OMK1-CON 


UNMASK 


80 346470 


1338 





0BB1 






XIO 


X3 


SUMK2-C0N 




80 346480 


1339 





C?01 






LD 


X2 


DVXEQ 


OPERATE ON NEXT LIST 


80 346490 


133A 





4C98 


0074 




BSC 


I 


tlMIC.e- 


EXIT IF NO MORE TO DO 


80 346500 


133C 





D3B7 






STO 


X3 


$WK4-C0N 




80 346510 


133D 





6580 


0036 




LDX 


11 


$WK4 


XR1 IS LIST POINTER 


80 346520 


133F 


1 


4400 


129C 




BSI 


L 


CDSIO 


CALL 10 START SECTION 


80 346530 


1341 





4C98 


0074 




BSC 


I 


$IMIC,£- 


EXIT IF STARTED 


80 346540 


1343 





70E2 






MDX 




CDCON 


BRANCH IF COMPLETED 


80 346550 


1344 





0AC9 




PGSIZ 


DC 




*-l-DMPID+150 PROGRAM SIZE 


80 346560 










* 








* 


80 3465 70 


1346 




0001 






END 




DM IN 




80 3465 80 


NO 


STATEMENTS FLAGGED IN THE 


ABOVE ASSEMBLY 





DATE 
EC NO. 



17JUN68 
411939 



20MAR70 
431320 



31JUL70 
431327 
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SABRT 


00A4 






$AESP 


002C 






$AIIN 


OODD 


OCCE OCDO 




$ANEO 


OOAE 






$BDSH 


010F 






$BIND 


0003 






$BKEX 


0108 






$BKSA 


0107 






$BMIC 


0028 






$BTAD 


006A 






$BULK 


007C 






$CBAS 


00B2 


OBOF 0D49 




$CEML 


0100 


0001 




$CLK 


005C 






$CLNT 


006F 






SCORE 


00A8 






$C1TV 


0115 






$C10V 


011E 






$C11V 


011F 






$C12V 


0120 






SC13V 


0121 






$C14V 


0122 






$C15V 


0123 






SC16V 


0124 






$C17V 


0125 






$C18V 


0126 






$C19V 


0127 






$C2TV 


0116 






$C20V 


0128 






$C21V 


0129 






$C22V 


012A 






SC23V 


012B 






SC3TV 


0117 






SC4TV 


0118 






$C5TV 


0119 






$C6TV 


011A 






$C7TV 


011B 






$C8TV 


one 






$C9TV 


01 ID 






$DAOP 


0OE2 


0CD6 




$DAY 


006C 






$DINP 


00E1 


0CD3 




SDIRC 


OOFD 






$DKPH 


00E7 


OCBC OCBE OCCO 




$DM1 


002A 


12AA 12CF 




$DM10 


002B 






$DM50 


005F 






SDPME 


00B3 






$DQLS 


00E6 






$DSW 


005B 






SDXEQ 


005A 






$D1 


0085 


1255 12B6 12B9 




$D10 


0070 






$011 


0071 






$D12 


0072 






$D13 


0097 






$D14 


009F 






$D2 


0086 


1267 1274 12A2 




$D24 


OOBD 






$D25 


OOBE 






$D3 


0060 


12D8 12FA 




$0319 


OOAF 






$0320 


OOBD 






$0321 


0090 






$D4 


0087 


1264 1304 




$D5 


0088 


1317 




$D6 


OOCO 


131D 




$D7 


0089 




DATE 
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EC NO. 


411939 431320 431327 
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1. PURPUSE 

A DIAGNOSTIC MONITOR DESIGNED TO OPERATE THE 1800 OFF LINE DIAGNOSTIC 

FONCTION TESTS IN THE ON LIME ENVIRONMENT OF THE 1800 MULTIPROGRAMMING 

EXECUTIVE (MPX) SYSTEM. MPXDM IS PROVIDED AS A MEANS TO INCREASED SYSTEM 
AVAILABILITY. 

2. REQUIREMENTS 

2.1 PROGRAM REQUIREMENTS 

A. THE 1800 MPX SYSTEM, WITH THE TIME SHARE FEATURE, MUST BE 
CURRENTLY OPERATING. 

B. A MINIMUM OF 5K OF VARIABLE CORE MUST BE AVAILABLE IN THE 
MPX SYSTEM IN ORDER TO OPERATE THE ON LIME DIAGNOSTICS. 

C. THE CURRENTLY OPERATING VERSION OF MPX MUST BE CUMPATABl i- WITH 
THE VERSION OF MPXDM BEING USED. 

U. THE PROPFR MPX CONTROL CARDS MUST BE USED TU LOAD AND EXECUTE 
MPXDM. SEE OPERATING PROCEDURE SECTION 3.0 AND THE PICTORIAL 
REPRESENTATION OF THE MPXDM DECK MAKE OP, APPENDIX SECTION 6.2. 

E. THE PROPER EDIT CARDS MOST FOLLOW THE MPXDM OBJECT DECK AND MPX 
CONTROL CARDS. EDITING IS DESCRIBED IN THE APPENDIX OF THE 
PROGRAM DESCRIPTION FOR THE OFF LINE DIAGNOSTIC MONITOR PID 0801. 

F. THE DEVICE TO BE TESTED MUST BE DEFINED IN THE MPX SYSTEM AND 
MUST BE LOGICALLY OFF LINE IF SO REQUIRED BY THE DFT. 

2.2 HARDWARE REQUIREMENTS 

A. THE HARDWARE WHICH SATISFIES THE REQUIREMENTS OF THE MPX 
SYSTEM ALSO SATISFIES THE REQUIREMENTS OF MPXDM. 

3. OPERATING PROCEDURE 

3.1 LOADING PREPARATION 

1. READ THE GENERAL DESCRIPTION FOR ON LINE DFT OPERATION, APPENDIX 
SECTION 6.5.1. 

2. READ THE DESCRIPTION FOR THE PARTICULAR DFT TO BE RUN ON LINE, 
APPENDIX SECTION 6.5.X. 

3. PUNCH THE MPX CONTROL CARDS. 

IN ORDER TO LOAD MPXDM, THE PROPER MPX CONTROL CARDS MOST BE 
INCLUDED AS PART OF THE ON LINE DIAGNOSTIC DECK. THE NORMAL 
PROCEDURE FOR LOADING IS TO INPUT THE MPXDM OBJECT DECK VIA 
THE 1442 CARD READER AND STORE IT ON THE TEMPORARY AREA OF DISK. 
THE EXECUTE CONTROL CARD THEN CAUSES MPXDM TO BE CALLED FROM 
TEMPORARY DISK TO CORE. 

IT IS ALSO POSSIBLE TO STORE MPXDM IN THE CURE IMAGE AREA OF 
THE CUSTOMERS DISK PACK AS A PERMANENT DISK RESIDENT PROGRAM. 
SINCE THE CUSTOMERS DISK PACK IS INVOLVED, MPXDM MUST NOT BE 
STORED ON IT UNLESS CUSTUMER PERMISSION IS FIRST OBTAINED. 

A. TO PERFORM THE NORMAL LOAD FUNCTION VIA THE 1442, PUNCH THE 
MPX CONTROL CARDS AND ARRANGE THEM INTO A DECK AS DESCRIBED 
IN THE APPENDIX SECTION 6.2.1, CONTROL CARD FORMAT - 
NORMAL LOAD VIA 1442. 

B. IF CUSTOMER PERMISSION HAS BEEN OBTAINED TO STORE MPXDM IN 
THE CORE IMAGE AREA OF THE USER PACK, PUNCH THE CONTROL 
CARDS AND ARRANGE THEM INTO A HECK AS DESCRIBED IN THE 
APPENDIX SECTION 6.2.2, CONTROL CARD FORMAT - PERMANENT STORE 
ON DISK. 
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4. OBTAIN THE EDIT CARDS FROM THE OFF LINE DIAGNOSTIC MONITOR (PID 
0801) AND PLACE THEM BEHIND THE DECK OBTAINED IN STEP 3 ABOVE. 

**NOTE** 

ALTHOUGH MPXDM HAS A PID OF 0803 IT WILL ONLY ACCEPT THE OFF 
LINE MONITOR EDIT CARDS PUNCHED WITH THE OFF LINE MONITOR PID (IE 
E0100). DO NOT REPUNCH THE OFF LINE MONITOR EDIT CARDS TO 
REFLECT THE ON LINE MONITOR PID. 



5. 



6. 



7. 



OBTAIN THE DIAGNOSTIC FUNCTION TEST (DFT) OBJECT DECK AND ITS 
EDIT CARDS FOR THE DEVICE TO BE TESTED AND PLACE THEM BEHIND 
THE DECK OBTAINED IN STEP 4 ABOVE. 

WHILE OPERATING ON LINE, SELECTION OF DFT PROGRAM OPTIONS MUST 
BE ACCOMPLISHED THROUGH THE USE OF DFT CONTROL CARDS. REFER TO 
THE DFT PROGRAM DESCRIPTION FOR AVAILABLE OPTIONS. IF ANY 
OPTIONS ARE DESIRED, PUNCH THE NECESSARY CONTROL CARDS ACCORDING, 
TO THE APPENDIX SECTION 6.4 AND PLACE THEM BEHIND THE DECK 
OBTAINED IN STEP 5 ABOVE. 



AT THIS POINT A COMPLETED ON LINE DIAGNOSTIC DECK EXISTS. 
THAT THE DECK IS IN CORRECT ORDER BY COMPARING IT AGAINST 



VERIFY 



1. IF NORMAL LOAD VIA THE 1442, THE PICTORIAL REPRESENTATION 
OF THE ON LINE DECK IN THE APPENDIX SECTION 6.3.1. 

2. IF CUSTOMER PERMISSION HAS BEEN OBTAINED, AND STORING ON THE 
USER DISK, THE PICTORIAL REPRESENTATION OF THE ON LINE DECK 
IN THE APPENDIX SECTION 6.3.2. 

8. IF THE DFT TO BE RUN REQUIRES THE TEST DEVICE BE LOGICALLY OFF 
LINE (REFERENCE DFT ON LINE OPERATION SECTION 6.5.X), THEN, 
WITH CUSTOMER PERMISSION, TAKE THAT DEVICE OFF LINE ACCORDING 
TO THE C.E. CORELOAD PROCEDURE SECTION 6.1. 

#* NOTE ** 

THE ON LINE DIAGNOSTIC SYSTEM CANNOT PREVENT THE MPX SYSTEM FROM 
ADDRESSING ANY DATA CHANNEL. IF THE DEVICE TO BE TESTED IS A 
CHANNEL DEVICE, AND IT IS SHARING IT'S CHANNEL WITH ANOTHER 
DEVICE, THEN IT MUST BE RECOGNIZED THAT THE POSSIBILITY OF 
CHANNEL CONTENTION EXISTS. THIS CHANNEL CONTENTION IS DEPENDENT 
UPON THE MANNER IN WHICH THE OTHER DEVICE IS USED. THE C.E. 
SHOULD DISCUSS THIS POSSIBILITY WITH THE CUSTOMER AND EITHER, 
TAKE THE SHARED DEVICE OFF LINE IN ADDITION TO THE TEST DEVICE, 
OR NOT RUN THE DFT IN QUESTION. 

9. PERFORM ANY REQUIRED DEVICE 'SETUP' AS MAY BE DEFINED IN THE DFT 
PROGRAM DESCRIPTION. 

10. LOADING PREPARATIONS ARE NOW COMPLETED. REFER TO SECTION 3.2 
OPERATING PROCEDURE, FOR THE STEPS NECESSARY TO LOAD AND OPERATE 
THE ON LINE DIAGNOSTIC MONITOR. 
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3.2 PROGRAM OPERATION 

I. PROGRAM LOADING 

A. COMPLETE THE LOADING PREPARATION AS DEFINED IN SECTION 3.1. 

B. TO LOAD AND GO WITHOUT OPTIONS. 

1. SET ALL C.E. SWITCHES TO THEIR OFF POSITION. 

**NOTE** 

WHEN THIS MODE OF OPERATION IS PERFORMED, THE DIAGNOSTIC 
MONITOk ASSUMES THE FOLLOWING CUNOITONS- 

A. NO CONTROL CARDS ARE TO BE READ. 

B. THE DEVICE TO BE TESTED IS THE ONE DEFIINED BY THE 1ST 
DDEF ENTRY IN THE DFT EDIT CARD. 

C. THE DEVICE TO BE TESTED IS CURRENTLY OFF LINE. IN THE 
CASE OF THE AIDPC PROGRAM (PID 0823), AI NEED NOT BE 
OFF LINE. REFER TO APPENDIX SECTION 6.S.5 FOR MORE 
INFORMATION. 

2. PROCEED TO STEP E. 

C. TO LOAD AND GO WITH OPTIONS 

1. SET THE C.E. SWITCHES FOR THE DESIRED OPTIONS ACCORDING 
TO TABLE 1. 

2. IF CONTROL CARDS ARE TO BE READ, C.E. SWITCH 8 MUST BE 
ON AND THE DESIRED CONTROL CARDS MUST BE PLACED BEHIND 
THE DFT EDIT CARDS PRIOR TO LOADING. 

3. TO ACCOMPLISH THE LOAD AND GO, C.E. SWITCHES 11, 14 AND 
15 MUST BE OFF AT LOAD TIME. 

4. PROCEED TO STEP E. 
U. TO LOAD AND PAOSE 

1. THIS LOADING MODE SHOULD BE USED IF THE DEVICE TO BE 
TESTED IS ON LINE AT LOAD TIME, IF DEVICE SETUP IS TO BE 
PERFORMED PRIOR TO DFT EXECUTION, OR FOR ANY REASON IT IS 
DESIRED TO LOAD THE DFT BUT NOT IMMEDIATELY EXECUTE IT. 

2. SET C.E. SWITCH 11 TO IT'S UN POSITION. THIS PREVENTS DFT 
EXECUTION AFTER LOADING. 

3. IF CONTROL CARDS ARE TO BE READ, SET C.E. SWITCH 8 ON. 

IT SHOULD BE NOTED THAT WHEN THIS MODE OF LOADING IS USED 
CONTROL CARDS CAN BE READ AFTER THE DFT IS LOADED SINCE 
DFT EXECUTION IS DEPENDENT ON C.E. SWITCH 11 BEING TURNED 
OFF. 

4. SELECT ANY OTHER OPTIONS ACCORDING TO TABLE 1. 
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E. IF TIME SHARING IS NOT PRESENTLY IN PROGRESS, PROCEED TO 
STEP F, OTHERWISE PROCEED AS FOLLOWS. 

IF TIME SHARING IS PRESENTLY IN PROGRESS, AND THE CUSTOMER 
HAS BATCH JOBS STACKED IN THE 1442 HOPPER, THEN AFTER OBTAIN- 
ING CUSTOMER PERMISSION, PLACE THE DIAGNOSTIC DECK OBTAINED 
IN SECTION 3.1 BEHIND THE LAST CUSTOMER JOB. INSURE THAT THE 
DIAGNOSTIC DECK PRECEEDS THE // JOB 6 // END CARDS WHICH ARE 
USED TO END TIME SHARING OPERATION. 

NO FORTHER ACTION IS REQUIRED TO EFFECT THE DIAGNOSTIC SYSTEM 
LOADING. WHEN ALL JOBS PRECEED1NG THE DIAGNOSTIC DECK HAVE 
BEEN COMPLETED, KPX WILL BEGIN LOADING THE DIAGNOSTIC MONITOR 
(MPXDM). 

IF TIME SHARING IS PRESENTLY IN PROGRESS, BUT NO CUSTOMER 
BATCH JOBS ARE WAIT ING, PLACE THE DIAGNOSTIC DECK OBTAINED 
IN SECTION 3.1 IN THE 1442 HOPPER AND MAKE THE 1442 READY. 

PROCEED TO STEP H. 

F. IF TIME SHARING IS NOT PRESENTLY IN PROGRESS, PLACE THE 
DIAGNOSTIC DECK IN THE 1442 HOPPER AND MAKE THE 1442 READY. 

G. OBTAIN CUSTOMER PERMISSION TO ENVOKE TIME SHARING. TIME 
SHARING IS STARTED BY SETTING SENSE/PROGRAM SWITCH 7 ON 
AND DEPRESSING THE CONSOLE INTERRUPT BUTTON. 

H. CUSTOMER BATCH JOBS MAY BE STACKED BEHIND THE ON LINE 

DIAGNOSTIC DECK, HOWEVER IF MORE THAN 1 DFT IS TO BE RUN 
DURING ON LINE DIAGNOSTIC OPERATION, OR IF PERIODIC READING 
OF CONTROL CARDS IS ANTICIPATED, THEN THE STACKING OF JOBS 
SHOULD BE DELAYED UNTIL JUST BEFORE TERMINATION OF THE 
DIAGNOSTIC OPERATION. 

I. THE MPX DATA PROCESSING MONITOR WILL INPUT MPXDM FROM CARDS 

AND STORE IT ON TEMPORARY DISK AREA. THIS ACTION IS INTIATED 
BY THE 3 CONTROL CARDS PRECEEDING THE MPXDM OBJECT DECK. 

J. IF ANY ERRORS ARE DETECTED DURING THE READING OF THE MPXDM 
OBJECT DECK, MPX WILL INFORM THE OPERATOR VIA A MESSAGE. 
REFER TO THE MPX USERS GUIDE FOR RECOVERY PROCEDURES. 

K. THE 2 CONTROL CARDS WHICH FOLLOW THE MPXDM OBJECT DECK WILL 
INFORM THE MPX DATA PROCESSING MONITOR TO LOAD MPXDM FROM 
DISK TO CORE AND PASS CONTROL TO IT. 

L. MPXDM UPON RECEIVING CONTROL WILL INPUT ITS EDIT CARDS. 

SUCCESSFUL LOADING AND EDITING OF MPXDM WILL BE INDICATED 
BY MESSAGE D002. 

M. THE DFT AND IT'S EDIT CARDS WILL THEN BE READ. SUCCESSFUL 
LOADING AND EDITING OF THE DFT WILL BE INDICATED BY MESSAGE 
DOOl. 

N. IF C.E. SWITCH 6 IS ON CONTROL CARDS WILL BE READ. MESSAGE 
A003 WILL BE PRINTED FOR EACH VALID CONTROL CARD READ. 

0. IF C.E. SWITCH 11 IS OFF (LOAD AND GO) DFT EXECUTION WILL 
BEGIN. THIS IS INDICATED BY MESSAGE A00 1. 



IF C.E. SWITCH 11 IS ON (LOAD AND PAUSE) THE DIAGNOSTIC 
MONITOR WILL LOUP IN IT'S CONTROL ROUTINE AWAITING C.E. 
ACTION. 

IF THE LOAD AND PAUSE MODE WAS SELECTED IN URUEK TO TAKE THE 
DEVICE TO BE TESTED OFF LINE AFTER THE DFT WAS LOADED, 
PROCEED AS FOLLOWS- 



SET C.E. SWITCH- 15 ON 



ENTER DIAGNOSTIC MONITOR PAUSE. 



CALL THE C.E. CORE LOAD AND TAKE THE DEVICE TO BE TESTED 
OFF LINE ACCORDING TO THE DESCRIPTION GIVEN IN THE 
APPENDIX SECTION 6.1. 

UPUN COMPLETION UF THE C.E. CORELOAD, (ALL C.E. SWITCHES 
OFF) AUTOMATIC EXECUTION OF THE DFT WILL OCCUR - MESSAGE 
A001 INDICATES WHEN EXECUTION IS STARTED. 

SET ThE C.E. SWITCHES FOR DESIRED UPTIONS. 



IF THE LOAD AND PAUSE MODE WAS SELECTED FOR FUNCTIONS UTHEk 
THAN TAKING THE DEVICE OFF LINE, COMPLETE ThUSE FUNCTIONS AMD 
THEN TURN C.E. SWITCH 11 UFF TO BEGIN DFT EXECUTION. 

0. THE PROGRAM OPTIONS SPECIFIED IN TABLE 1 MAY BE PERFORMED AT 

AMY TIME DURING DFT EXECUTION. REFER TO THE DETAILED 

DESCRIPTION AND USE SECTION OF THE TABLE FOR THE OPERATION UF 
THESE OPTIONS. 

CHANGING DEVICES 

A. WHEN MULTIPLE DEVICES EXIST FOR THE SAME AREA CODE, AS IS 
THE CASE FOR 1053/1B16 AND 1810, THEN EACH UF THE DEVICES MAY 
BE TESTED WITH OOT RELOADING THE DFT BY FOLLOWING THE PRO- 
CEDURE OUTLINED BELOW. 

B. REFER TO THE DFT PROGRAM DESCRIPTION TO OBTAIN THE INFORMA- 
TION REQUIRED BY THE DFT FOR DEVICE SELECTION. 

C. PUNCH THIS INFORMATION INTO A CONTROL CARD AS OUTLINED IN 
APPENDIX SECTION 6.4 UF THIS DOCUMENT. 

D. PLACE THE CONTROL CARDS IN THE 1442 HOPPER AND MAKE THE 1442 
READY. 

E. TORN C.E. SWITCH 11 ON TO DE-EXECUTE THE DFT. CHANGING 
DEVICES WITH OUT FIRST DE-EXECUTING THE DFT WILL CAUSE 
THE DFT TO BE ABORTED. 

F. COMPLEMENT C.E. SWITCH 8 TO READ THE DFT CONTROL CARDS. 

G. IF THE NEWLY SELECTED DEVICE WAS PREVIOOSLY TAKEN OFF LINE, 
TURN C.E. SWITCH 11 UFF TO EXECUTE THE DFT. 

H. IF THE NEWLY SELECTED DEVICE IS UN LINE, PROCEED AS FOLLOWS- 

1. TURN C.E. SWITCH 15 ON TO ENTER THE DIAGNOSTIC MONITOR 
PAOSE. 

2. GALL THE C.E. CORE LOAD AND TAKE THE DEVICE OFF LINE AS 
DESCRIBED IN THE APPENDIX SECTION 6.1. 

3» WHEN THE C.E. CORELOAD IS TERMINATED, AND CONTROL IS 
RETURNED TO THE DIAGNOSTIC MONITOR THE DFT WILL BE 
AUTOMATICALLY EXECUTED. 

4. SET THE C.E. SWITCHES TU DESIRED UPTIONS. 
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LOAD NEW OFT 

A. THIS PROCEDURE SHOULD BE USED TO RELOAD THE DFT PRESENTLY IN 
CORE (REQUIREMENT IF THE DFT WAS ABORTED) OR TO LOAD A NEW 
DFT FOR THE PURPOSE OF TESTING A DIFFERENT DEVICE. 

PLACE THE DFT OBJECT DECK, ITS EDIT CARDS AND ANY DESIRED 
CONTROL CARDS IN THE 1442 HOPPER AND MAKE THE 1442 READY. 

IF A DPT IS PRESENTLY OPERATING, OR IF THE DEVICE TO BE TEST- 
ED BY THE NEW DFT IS CURRENTLY ON LINE, TURN C.E. SWITCH 11 
ON. THE EXECUTING DFT WILL BE DE-EXECUTED AND THE LOAD AND 
PAUSE MODE WILL BE SPECIFIED. 



B. 



C. 



E. 



G. 



COMPLEMENT C.E. SWITCH 9. 
LOADING. 



THE DFT OBJECT DECK WILL BEGIN 



IF CONTROL CARDS ARE TO BE READ, SET C.E. SWITCH 8 ON, 
OTHERWISE TURN IT OFF. 

**NOTE** 

C.E. SWITCH 9 MUST BE COMPLEMENTED PRIOR TO SETTING C.E. 
SWITCH 8, OTHERWISE CHANGING C.E. SWITCH 8 IS INTERPRETED AS 
A REQUEST TO READ CONTROL CARDS PRIOR TO LOADING. 

UPON COMPLETION OF THE DFT AND EDIT CARD LUAD, CONTROL CARDS 
WILL BE READ IF C.E. SWITCH 8 IS ON. 

IF C.E. SWITCH 11 IS OFF UPON COMPLETION UF THE LOAD, THE 
DFT WILL BE AUTOMATICALLY EXECUTED. 

IF C.E. SWITCH 11 IS ON, AND THE DEVICE TO BE TESTED WAS 
PREVIOUSLY TAKEN OFF LINE, THEN DFT EXECUTION CAN BE STARTED 
BY TURNING C.E. SWITCH 11 OFF. 

IF THE DEVICE TO BE TESTED IS ON LINE, PROCEED AS FOLLOWS- 



1. TURN C.E. SWITCH 15 ON TO ENTER THE DIAGNOSTIC MONITOR 
PAUSE. 

2. CALL THE C.E. CORE LOAD AND TAKE THE DEVICE OFF LINE AS 
DESCRIBED IN THE .APPENDIX SECTION 6.1. 

3. WHEN THE C.E. CORELOAD IS TERMINATED, AND CUNTROL IS 
RETURNED TO THE DIAGNOSTIC MONITOR, THE DFT WILL BE 
AUTOMATICALLY EXECUTED. 

4. SET THE C.E. SWITCHES FOR DESIRED OPTIONS. 
READING CONTROL CARDS 

A. CONTROL CARDS MAY BE READ AT ANY TIME DURING DFT OPERATION, 
IN ORDER TO COMMUNICATE WITH IT. 

B. REFER TO THE DFT PROGRAM DESCRIPTION FOR AVAILABLE OPTIONS. 

C. PUNCH THE DESIRED OPTIONS INTO CONTROL CARDS AS DESCRIBED 
IN THE APPENDIX SECTION 6.4 OF THIS DOCUMfcNT. 

D. PLACE THE CONTROL CARDS IN THE 1442 HOPPER AND MAKE IT HEADY. 

E. COMPLEMENT C.E. SWITCH 8 TO READ THE CONTROL CARDS. 

F. ANY NUMBER OF CONTROL CARDS MAY BE READ, HOWEVER IF MORfc 
THAN 1 CARD CONTAINS THE SAME FUNCTIUN NUMBER, THEN ONLY THE 
DATA FROM THE LAST CARD READ WITH THAT FUNCTION NUMBER WILL 
APPEAR IN THE DFT. 
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3.3 ERROR RECOVERY 

IN ORDER TO AVOID THE POSSIBILITY OF AFFECTING SYSTEM INTEGRITY, ALL 
ERRORS DETECTED, OTHER THAN THOSE DIRECTLY ASSOCIATED WITH THE DEVICE 
UNDER TEST, WILL RESULT EITHER IN A DFT ABORT, CONTROL CARD ABORT OR 
A COMPLETE DIAGNOSTIC SYSTEM ABORT. ERROR RECOVERY THEREFORE WILL 
BE TO PERFORM A RELOAD. 

THE RELOAD PROCEDURE TO BE OSED IS GIVEN IN THE EXPLANATION OF THE 
ERROR MESSAGE WHICH DEFINES THE CAUSE OF THE ABORT. 

3.4 PROGRAM TERMINATION 

TO PERFORM A NORMAL TERMINATION OF ON LINE DIAGNOSTIC OPERATION, 
PROCEFD AS FOLLOWS- 



1. 



TURN C.E. SWITCH 14 ON. 
OUTPUT DEVICE. 



MESSAGE C002 WILL BE PRINTED ON THE 



2. IF CUSTOMER JOBS ARE TO BE RUN FOLLOWING THE TERMINATION OF ON 
LINE DIAGNOSTICS, HAVE THE CUSTOMER STACK HIS JOBS IN THE 1442 
HOPPER AND MAKE THE 1442 READY. 

3. IF NO CUSTOMER JOBS ARE TO BE RUN, AND TIME SHARING IS TO BE 
ENDED, PLACE A // JOB FOLLOWED BY A // END CARD IN THE 1442 
HOPPER AND MAKE THE 1442 READY. 

4. TURN ALL C.E. SWITCHES OFF. MPXDM WILL CALL ON THE MPX EXIT 
ROUTINE AND ON LINE DIAGNOSTICS WILL BE TERMINATED. 

!>. RESTORE THE DEVICES TESTED TO THE ON LINE STATUS VIA THE C.E. 
CORELOAD. 

UN LINE DIAGNOSTICS CAN ALSO BE TERMINATED AT ANY TIME BY SETTING 
SENSE/PROGRAM SWITCH 7 AND DEPRESSING CONSOLE INTERRUPT. BEFORE DOING 
SO, HOWEVER, THE JOB CONTROL CARDS FOR THE NEXT FUNCTION SHOULD BE 
READIED IN THE 1442. 
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* * 

* C.E 

* 8 9 10 1 

* , 

* . 

* , 



TABLE 1 MPXDM OPTIONS 



DESCRIPTION 



SWITCHES * 

12 13 14 15 *$«**##«***«****«#**#*#*«**#*«#***#**#******=: 




. C (SEE NOTE 1) 
1 (SEE NOTE 2). 



* 
* 

* 

* 

* 

* C.E. SWITCH * 



ENTER DIAGNOSTIC MONITOR PAUSE * 

TERMINATE ON LINE DIAGNOSTIC OPERATIONS * 

BYPASS DFT ERROR PRINTOUTS * 

LOOP ON DFT ERROR * 

DE-EXECUTE DFT * 
LOCK IN TIME SHARE MODE (SEE DETAILED DESCRIPTION) * 

LOAD NEW DFT FROM CARD READER * 

READ DFT CONTROL CARDS FROM CARD READER * 



NOTE 1- C = COMPLEMENT OR CHANGE STATE. THIS SWITCH HAS NO EFFECT UNTIL * 

AFTER THE 1ST DFT HAS BEEN LOADED. * 

NOTE 2- IF THIS SWITCH IS ON AT DFT LOAD TIME, CONTROL CARDS WILL BE READ * 

IMMEDIATELY AFTfcR THE DFT IS LOADED. TO READ CONTROL CARDS AT OTHER * 

THAN LOAD TIME, COMPLEMENT THE SWITCH. * 

* 

** DETAILED DESCRIPTION AND USE ** * 



-DESCRIPTION AND USE - 



* 

* 

* 

D* 

E* 



* READ DFT CUNTROL CARDS 

CONTROL CARDS ARE USED TO COMMUNICATE TO THE DFT THAT INFOR- 
MATION WHICH IS ENTERED VIA THE SENSE/PROGRAM AND DATA ENTRY 
SWITCHES DURING OFF LINE OPERATION. THIS INFORMATION INCLUDES 
ROUTINE SELECTION, DEVICE SELECTION, OPERATING OPTIONS AND 
PARAMETER DATA. THE OPTIONS AVAILABLE FOR ANY DFT CAN BE FOUN 
IN THAT DFT'S PROGRAM DESCRIPTION UNDER SECTION 3. IN THE CAS 

OF SPECIAL ENTRIES FOR ON LINE OPERATIONS, REFER TO THE * 

APPENDIX SECTION 6.5.X OF THIS DOCUMENT UNDER THE APPROPRIATE * 

PID. * 

IF SWITCH 8 IS ON AT DFT LOAD TIME, THEN CONTROL CARDS WILL BE * 

READ IMMEDIATELY FOLLOWING THE DFT LOAD FUNCTION. ONCE A DFT * 

IS LOADED, CONTROL CARDS MAY BE READ BY COMPLEMENTING THE * 

SWITCH (ON TO OFF OR OFF TO ON). * 

EACH TIME THIS OPTIONS IS ACTIVATED, ALL CONTROL CARDS WHICH * 

PRECEED THE 'END CONTROL CARD', WILL BE READ. IF MULTIPLE * 

CONTROL CARDS SPECIFYING THE SAME FUNCTION NUMBER ARE READ, * 

THEN THE DATA FROM THE LAST CARD READ WITH THAT FUNCTION NUM- * 

BER WILL APPEAR IN THE DFT. * 

REFER TO APPENDIX SECTION 6.4 FOR CONTROL CARD FORMAT. * 

* LOAD DFT OBJECT DECK * 

THIS OPTION IS USED TO RELOAD THE DFT FOLLOWING A DFT ERROR * 

ABORT, OR TO LOAD A NEW DFT TO TEST A DIFFERENT DEVICE. * 

THIS SWITCH BECOMES EFFECTIVE AFTER MPXDM AND THE 1ST DFT HAVF * 
BEEN LOADED INTO CORE. THE OPTION IS ACTIVATED BY CHANGING THE* 

POSITION OF THE SWITCH, IE- ON TO OFF UR OFF TO ON. EACH * 
COMPLIMENT OF THE SWITCH RESULTS IN THE READING OF 1 DFT OBJECT* 

DECK. * 



10 



11 



1? 



IF A DFT IS EXECUTING WHEN SWITCH 9 IS COMPLEMENTED, THEN THAT * 
DFT WILL BE DE-EXECUTED PRIOR TO LOADING THE NEW DFT. * 

SINCE COMPLEMENTING SWITCH 9 ESTABLISHES A LOAD FUNCTION, THE * 
POSITION OF SWITCH 8 MUST ALSO BE CONSIDERED. AFTER COMPLE- * 
MENTING SWITCH 9, SET SWITCH 8 TO ON IF CONTROL CARDS ARE TO BE* 
READ, OR TO OFF IF NO CONTROL CARDS ARE DESIRED. * 

SWITCH 9 MAY BE EITHER ON OR OFF AT MPXDM LOAD TIME. * 

LOCK IN MPX TIME SHARE MODE * 

OBTAIN CUSTOMER PERMISSION BEFORE OSING THIS OPTION. * 



SETTING SWITCH 10 ON CAUSES THE DIAGNOSTIC SYSTEM TO BE LOCKED * 
IN THE TIME SHARING MODE OF MPX. * 

LOCKED IN TIME SHARING MODE IS DEFINED AS FOLLOWS- ANY * 

INTERRUPT WHICH WUULD NORMALLY CALL A CORE LOAD INTO THE AREA * 
OCCUPIED BY THE DIAGNOSTIC SYSTEM, WILL BE ENTERED IN THE QUEUE* 
AND NOT EXECUTED UNTIL EITHER C.E. SWITCH 10 IS TURNED OFF, OR * 
THE OOEUE BECOMES FULL. WHEN THE OUEOE BECOMES FULL, TIME * 
SHARING WILL BE UNLOCKED AND THE CORE LOADS WAITING FOR SERVICE* 
WILL BE EXECUTED. WHEN THE QUEUE IS EMPTIED, TIME SHARING WILL* 
AGAIN BE LUCKED IN. * 

THE EFFECT OF THIS UPTIUN IS TO PREVENT THE DIAGNOSTIC SYSTEM * 

FROM BEING SWAPPED TO DISK EACH TIME AN INTERROPT REQUIRES ITS * 

AREA. THIS RESULTS IN INCREASED RUNNING TIME BLOCKS FOR THE * 

DFT. * 

THIS SWITCH CAN BE TURNED ON OR OFF AT ANY TIME. * 

EXECUTE/DE-EXECUTE DFT * 

THE FUNCTION OF THIS SWITCH IS TO EITHER EXECUTE OR DE-EXECOTE * 
THE DFT PRESENTLY IN CORE. * 

IF THE SWITCH IS IN THE OFF (EXEUCTE) POSITION AT LOAD TIME, * 
THE 'LOAD AND GO' MODE OF OPERATION IS PERFORMED. * 

IF THE SWITCH IS IN THE ON (DE-EXECUTE) POSITION AT LOAD TlHE * 

THE DFT IS LOADED BUT NOT EXECUTED. THIS CONDITION SHOULD BE * 

OSEO IF THE DEVICE TO BE TESTED HAS NOT YET BEEN TAKEN OFF * 

LINE, OF IF DFT SETUP IS TO BE PERFURMEU PRIUR TO DFT EXECU- * 

T10N. CONTROL CARDS MAY ALSO BE READ WHILE IN THIS STATE. * 

IF A CURRENTLY OPERATING DFT IS DE-EXECUTED, IT IS NOT * 

ELIMINATED FROM FORTHER OPERATION. TORNING SWITCH 11 OFF AGAIN * 
WILL RE-EXECUTE THE DFT. * 

LOOP ON DFT ERROR ' * 

WHEN THIS SWITCH IN ON, ANY DFT CALL ON THE DIAGNOSTIC MONITOR * 
ERROR ROUTINE WILL RESULT IN A RETURN TO THE DFT AT A SPECIFIED* 
LOOP ON ERROR ADDRESS. * 

AS A SAFEGUARD TO THE OPERATING SYSTEM DIAGNOSTIC MONITOR * 
ERRORS CANNOT BE LOOPED. =:- 

THIS SWITCH MAY BE TORNED ON UR OFF AT ANYTIME. * 
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14 



15 



* 13 

* 
* 
* 
* 

* 
* 

* 
* 
* 
* 

* 
* 

* 
* 
* 
* 

* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
******* 



* BYPASS DFT ERROR PRINTOUTS 

WHEN THIS SWITCH IS IN THE ON POSITION, ALL DFT ERROR MESSAGES 
IEXXX TYPE) WILL BE BYPASSED. 

DIAGNOSTIC MONITOR ERROR MESSAGES CANNOT BE BYPASSED. 

THIS SWITCH MAY BE TURNED ON OR OFF AT ANY TIME. 

* TERMINATE ON LINE DIAGNOSTICS 



THIS SWITCH IS USED TO PERFORM A 
DIAGNOSTIC OPERATIONS. 



NORMAL TERMINATION OF ON LINE 



COMMAND MESSAGE C002 WILL BE PRINTED UPON DETECTION OF THIS 
SWITCH BEING ON. THIS MESSAGE INFORMS THE OPERATOR TO TURN 
C.E. SWITCHES OFF. WHEN THE SWITCHES ARE SET TO OFF, MPXDM 
WILL CALL THE MPX EXIT ROUTINE TO EFFECT THE TERMINATION. 

PRIOR TO TERMINATING, THE FOLLOWING OPERATIONS OCCUR, 

1. ALL PENDING INTERRUPTS FROM THE DEVICE UNDER TEST WILL BE 
SERVICED. 

2. THE DFT IN EXECUTION WILL BE DE-EXECUTED. 

3. THE DEVICE TABLE INTERRUPT TRANSFER VECTOR WILL BE RESTORED 
TO THE MPX SYSTEM. 

4. THE AREA BUSY INDICATOR WILL BE DECREMENTED IF PREVIOUSLY 
INCREMENTED BY MPXDM. 

5. TIME SHARING WILL BE UNLOCKED IF IT HAD BEEN PREVIOUSLY 
LOCKED BY TURNING SWITCH 10 ON. 

* ENTER DIAGNOSTIC MONITOR PAUSE 



# 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
ALL* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



TURNING THIS SWITCH ON CAUSES THE DIAGNOSTIC MONITOR TO SUSPEND* 
DFT OPERATION. 



WHEN THE PAUSE IS ENTERED, TIME SHARING WILL BE UNLOCKED IF 
HAD BEEN PREVIOUSLY LOCKED. 

THIS FUNCTION IS PROVIDED FOR 2 MAJOR PURPOSES- 



IT 



IF TIME SHARING HAD BEEN LOCKED IN, AND THE CUSTOMER 
REQUIRES THE SERVICING OF ALL PROGRAMS IN THE QUEUE, ENTER 
ING THE DIAGNOSTIC MONITOR PAUSE FREES VARIABLE CORE SO THAT* 
THOSE PROGRAMS MAY BE EXECUTED. TERMINATING THE PAUSE (TURN-* 
ING SWITCH 15 OFF) WILL AGAIN LOCK TIME SHARING AND RESUME * 
DFT OPERATION FROM THE POINT AT WHICH IT WAS SUSPENDED. * 



IF THE C.E CALLS FOR THE LOADING OF A NEW DFT WHICH IS TO * 
TEST A DEVICE STILL ON LINE, THEN PRIOR TO EXECUTING THAT * 
DFT THE DIAGNOSTIC PAUSE SHOULD BE ENTERED. WHILE IN THE * 
PAUSE, THE C.E. CORELOAD MAY BE REQUESTED TO TAKE THE DEVICE* 

* 
* 
* 
* 
* 
* 
* 
* 



OFF LINE. TERMINATING THE C.E. CORELOAD RESULTS IN AUTO- 
MATIC DFT EXECUTION (THE C.E. CORELOAD IS TERMINATED WITH 
ALL C.E. SWITCHES OFF. WHEN CONTROL RETURNS TO MPXDM, IT 
FINDS SWITCHES 11 AND 15 OFF WHICH TERMINATES THE PAUSE AND 
EXECUTES THE DFT). 



IN ORDER TO AVOID CONFLICT IN THE USE OF THE C.E. SWITCHES 
BETWEEN MPXDM AND THE C.E. CORELOAD, MPXDM WILL NOT HONOR A 
CHANGE IN STATE OF C.E. SWITCHES 8 AND 9, IF THE CHANGE OCCURED* 
WHILE THE DIAGNOSTIC MONITOR WAS IN ITS PAUSE STATE. IN ORDER * 
TO EXIT FROM THE PAUSE, C.E. SWS 8 THRU 14 MUST EITHER BE IN * 
THE SAME POSITION AS WHEN THE PAUSE WAS ENTERED OR BE ALL OFF. * 

* 
************************************************************************* 
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PRINTOUTS 

ALL PRINTOUTS PROVIDED BY MPXDM ARE OF THE SAME FORMAT AS THOSE PROVIDED BY 
THE OFF LINE DIAGNOSTIC MONITOR. 

THE FORMAT IS AS FOLLOWS. 

PID MID RID RAD MODI M0D2...M00N 

PID = THE PROGRAM IDENTITY TO WHICH THE MESSAGE APPLIES. 

MID = THE MESSAGE IDENTIFICATION- 
MESSAGE TYPES- 
AXXX = STATUS MESSAGES 
CXXX = COMMAND MESSAGES 
DXXX = DATA MESSAGES 
EXXX = ERROR MESSAGES 



RID = THE ROUTINE IDENTIFICATION. 
CURRENTLY IN OPERATION. 



THE NUMBER OF THE ROUTINE WHICH IS 



RAD = THE ROUTINE ADDRESS. THE ACTUAL CORE ADDRESS OF THE ROUTINE WHICH 
IS CURRENTLY IN OPERATION. 

MOD = MESSAGE MODIFIERS. THE MODIFIERS ARE USED TO PRESENT INFORMATION 

PERTINANT TO THE MID. THE NUMBER OF MODIFIERS, AND THE DATA CONTENT 
IS VARIABLE WITH EACH MESSAGE. 

EVERY MESSAGE PRINTED BY THE ON LINE MONITOR WILL BE PRECEDtD BY THE 
HEADING »CUST ENG'. THE HEADING IS INCLUDEO TO MAKE THE DIAGNOSTIC SYSTEM 
MESSAGES EASILY RECOGNIZED. 



4.1 



STATUS MESSAGES 



PID MID RID RAD MODI M0D2 
0300 A001 0001 RRRR OOOY 00ZZ 



THE MONITOR HAS STARTED EXECUTION OF, OR TERMINATED EXECUTION OF 
THE DFT IN CORE WHOSE PID IS ZZ. DFT EXECUTION OCCURS WHEN C.E. 
SWITCH 11 IS TURNED OFF, AND DFT TERMINATION OCCURS WHEN C.E. SWITCH 
11 IS TURNED ON. 

MODI OOOY = DFT OPERATION HAS BEEN TERMINATED ( DE EXECUTED). 

OOOY = 1 DET OPERATION HAS BEEN STARTED (EXECUTED). 
M0D2 OOZZ THE ID OF THE PROGRAM WHOSE OPERATION HAS BEEN 
STARTED OR TERMINATED. 



PID MID RID RAD MODI M0D2 
0300 A003 0001 RRRR XOZZ YYYY 



THE MONITOR ACKNOWLEDGES ACCEPTANCE OF DFT CONTROL CARDS, AND HAS 
STOREO THE CONTROL DATA AT THE DESIGNATED FUNCTION (SWITCH) 
LOCATION. ONE MESSAGE WILL OCCUR FOR EACH CONTROL CARD ACCEPTED, 
EXCEPT THE END OF CONTROL CARD. 

MODI XOZZ X IS THE FUNCTION OF PROGRAM ZZ INTO WHICH THE CONTROL 
CARD DATA HAS BEEN STORED. THE FUNCTION NUMBERS ARE 
THROUGH 3. 

M0D2 YYYY THE HEXIDECIMAL REPRESENTATION OF THE CONTROL CARD DATA 
WHICH WAS STORED IN THE FUNCTION LOCATION (X IN MODI). 
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4.2 COMMAND MESSAGES 
0300 C002 0001 RRRR 



4.3 



THIS MESSAGE IS PRINTED AS A RESULT OF TURNING C.E. SWITCH 14 ON 
(TERMINATE ON LINE DIAGNOSTIC OPERATION). 

REFER TO THE TERMINATION PROCEDURE, SECTION 3.4, THEN TURN ALL C.E, 
SWITCHES OFF TO EFFECT THE TERMINATION. 



DATA MESSAGES 



PID MID RID RAD MODI M0D2 M0D3 M0D4 
0300 D001 0001 RRRR ZZOO 07FF XXXX YYYY 

THIS MESSAGE IS PRINTED FOLLOWING THE SUCCESSFUL LOADING AND EDITING 
OF A DFT. THE MESSAGE INFORMS THE OPERATOR WHICH PROGRAM WAS LOADED 
AND WHERE IT IS LOCATED IN CORE STORAGE. 



MODI ZZOO 
M0D2 07FF 
M0D3 XXXX 

M0D4 YYYY 



THE ID OF THE PROGRAM JUST LOADED. 

THE PROGRAM ORIGIN AT WHICH THE DFT WAS ASSEMBLED 
ADDRESS AT WHICH DFT WAS ACTUALLY LOADED. M0U3 = 
(M0D2 + M0D4) . 

RELOCATION FACTOR USED IN LOADING THE DFT. THE RELOCA- 
TION FACTOR IS OBTAINED BY SUBTRACTING 2047 FROM THE 1ST 
ODD LOCATION OF VARIABLE CORE. 



PID MID RID RAD MODI M0D2 M0D3 M0D4 
0300 D002 0001 RRRR 0000 XXXX YYYY ZZZZ 

THIS MESSAGE IS PRINTED FOLLOWING THE SUCCESSFUL LOADING AND EDITING 
OF THE ON LINE DIAGNOSTIC MONITOR. IT IS USED TO INFORM THE OPERATOR 
OF THE VARIABLE CORE LOCATION AT WHICH THE MONITOR WAS LOADED. 



MODI 0000 
M002 XXXX 

M0D3 YYYY 
M0D4 ZZZZ 



THE RELOCATABLE ORIGIN AT WHICH MPXDM WAS ASSEMBLED. 
ADDRESS AT WHICH MPXDM WAS ACTUALLY LOADED. THIS 
ADDRESS ALSO DEFINES THE START OF THE DFT OVERLAY AREA. 
THE ACTUAL ADDRESS AT WHICH MPXDM PROPER BEGINS. 
RELOCATION FACTOR. THE RELOCATION FACTOR IS OBTAINED BY 
ADDING THE ADDRESS IN M0D2 TO THE ORG. ADDRESS IN MODI. 



4.4 ERROR MESSAGES 

ALL ERROR MESSAGES ARE PRINTED VIA THE ABORT ROUTINE WITH THE EXCEP- 
TION OF THE MPX/MPXDM INCOMPATIBILITY MESSAGE WHICH IS PRINTED BY 
ROUTINE DMIN. 

THE ORIGIN OF THE ABORT CALL AND A RECOVERY PROCEDURE IS INCLUDED 
IN THE EXPLANATION OF EACH ERROR MESSAGE. 

WHEN THE AREA CODE OF A DEVICE IS INCLUDED IN THE MESSAGE, IT IS 
IN HEXIDECIMAL NOTATION AND LEFT JUSTIFIED IN BITS 1 THROUGH 4 (AS 
IT APPEARS IN AN IOCC WORD). 

EXAMPLE DIGITAL INPUT AREA = 11 DECIMAL 
11 DECIMAL = OOOB HEXIDECIMAL 
OOOB LEFT JUSTIFIED = 5800 
5800 WOULD BE PRINTED IN THE MESSAGE. 

MPX/MPXDM NOT COMPAT-MPXDM VER 000 1 

THE VERSION OF MPXDM JUST LOADED IS NOT COMPATIBLE WITH THE VERSION 
OF THE OPERATING MPX SYSTEM. BOTH MPX AND MPXDM MAINTAIN A VERSION 
CHECK WORD. THE CHECK WORDS MUST BE IDENTICAL IN ORDER TO OPERATE 
THE ON LINE DIAGNOSTIC MONITOR. 

ANY CHANGE TO MPX WHICH REOUIRES A CHANGE TO MPXDM, RESULTS IN A 
CHANGE OF THE VERSION NUMBER. THE VERSION CHECK WORDS ARE CHANGED 
AT ASSEMBLY TIME. 

FOLLOWING THE OUTPUT OF THIS MESSAGE, MPXDM WILL CALL ON THE MPX EXIT 
ROUTINE AND THE ON LINE MONITOR OPERATION WILL BE TERMINATED. 

ORIGIN OF ABORT CALL - ROUTINE DMIN 

RECOVERY PROCEDURE. 

OBTAIN THE CORRECT VERSION OF MPXDf AND RELOAD IT ACCORDING TO THE 
OPERATING PROCEDURES SECTION 3.2. 

PID MID RID RAD MODI 
0300 E010 0001 RRRR XXXX 

THE OPERATING DFT HAS REOUESTEIJ A DEVICE WHICH HAS NOT BEEN DEFINED 
IN THE DIAGNOSTIC MONITOR SYSTEM EDIT. FOR EVERY ODEF EDITED IN 
A DFT, THERE MUST BE A MATCHING DDEF IN THE MONITOR EDIT. 

MPXDM WILL DE-EXECUTE THE DFT FOLLOWING THE PRINT OUT. 

MODI XXXX THE DDEF AS IT APPEARED IN THE DFT REQUEST DEVICE CALL. 

ORIGIN OF ABORT CALL - ROUTINE RODV 

RECOVERY PROCEDURE. 

1. IF THE DDEF (MODI) IS IN ERROR, REPUNCH THE EDIT CARD FOR THE 
DFT TO REFLECT THE CORRECT DDEF, THEN FOLLOW RELOAD PROCEDURE 
3 SECTION 3.3.3. 

2. IF THE DDEF (MUD1) IS VALID, BUT THE SAME DDEF WAS NOT IN THE 
MONITOR EDIT, THEN A RELOAD OF MPXDM WILL BE REQUIRED. MODIFY 
THE MONITOR EDIT TO INCLUDE THE MISSING DDEF (AND ITS AREA 
CODE). TERMINATE ON LINE DIAGNOSTIC OPERATION BY FOLLOWING THE 
TERMINATION PROCEDURE, SECTION 3.4, THEN RELOAD THE DIAGNOSTIC 
DECK ACCORDING TO THE PROGRAM LOAD PROCEDURE, SECTION 3.2.1. 
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PID MID RIO RAD MODI M0D2 M0D3 
0300 E011 0001 RRRR XXXX YYYY ZZZZ 

THE OPERATING DFT REQUESTED A DEVICE ALREADY ASSIGNED TO IT. THIS 
IS A LOGIC ERROR AND CAN BE CAUSED BY LOSS OF DFT CONTROL OR 
SEQUENCING (INCORRECT BRANCH, INSTRUCTION FAILURE ETC). 

THE DFT WILL BE DE-EXECUTED FOLLOWING THE PRINTOUT. 

MODI XXXX THE DDEF OF THE DEVICE PRESENTLY ASSIGNED TO THE DFT. 

M0D2 YYYY THE AREA CODE OF THE DEVICE PRESENTLY ASSIGNED TO 
THE DFT. 

M0D3 ZZZZ THE DDEF OF THE DEVICE PRESENTLY BEING REQUESTED. THIS 
DDEF WILL BE THE SAME AS MODI. BIT OF MOD 3 WILL ALSO 
BE ON INDICATING DEVICE ASSIGNEO. 



ORIGIN OF ABORT CALL 
RECOVERY PROCEDURE. 



ROUTINE RQDV 



RELOAD THE DFT ACCORDING TO THE'LOAD NEW DFT' PROCEDURE, 
SECTION 3.2.3. 

PID MID RID RAD MODI M0D2 M0D3 
0300 E012 0001 RRRR XXXX YYYY ZZZZ 

THE DFT MADE A REQUEST DEVICE CALL WITH A DIFFERENT DDEF THAN THE 
ONE IT USEO ON PREVIOUS REQUESTS. THE OFT IS ALLOWED TO RUN ONLY 
1 DEVICE EACH TIME IT IS EXECUTED. 

WHERE MULTIPLE DEVICES EXIST WITH THE SAME AREA CODE, AS WITH THE 
1053/1816, A NEW DEVICE MAY BE SELECTED FOR TEST (VIA CONTROL 
CARDS) ONLY AFTER THE CURRENT OPERATION IS DE-EXECUTED. CHANGING 
DEVICES IN THE MIDDLE OF A DFT PASS WILL RESULT IN THIS ERROR. 

THE DFT WILL BE DE-EXECUTED FOLLOWING THIS PRINTOUT. 

MODI XXXX DDEF OF THE DEVICE REQUESTED ON PREVIOUS CALLS. 
M0D2 YYYY AREA CODE OF THE DEVICE REQUESTED ON PREVIOUS CALLS. 
M0D3 ZZZZ DDEF OF THE DEVICE PRESENTLY BEING REQUESTED. 

ORIGIN OF ABORT CALL - ROUTINE RQDV 

RECOVERY PROCEDURE 

RELOAD THE DFT ACCORDING TO THE •LOAD NEW DFT» PROCEDURE, 
SECTION 3.2.3. 
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PID MID RID RAD MODI M0D2 
0300 E013 0001 RRRR XXXX YYYY 

THE DFT REQUESTED A DEVICE WHICH IT WAS NOT DESIGNED TO TEST. THIS 
ERROR RESULTS FROM INCORRECT EDITING. EITHER THE DDEF PUNCHED IN 
DFT EDIT CARDS IS INCORRECT, OR THE AREA CODE RELATING TO THAT ODEF 
WAS INCORRECTLY PUNCHED IN THE MONITOR EDIT CARDS. 

THE DFT WILL BE DE-EXECUTED FOLLOWING THIS PRINTOUT. 

MODI XXXX THE DDEF AS IT APPEARED IN THE OFT REQUEST DEVICE CALL. 
M0D2 YYYY THE AREA CODE EDITED IN THE MONITOR FOR THE ODEF IN 
MODI. 

ORIGIN OF ABORT CALL - ROUTINE RQDV 

RECOVERY PROCEDURE 

1. IF THE DFT EDIT IS INCORRECT (MODI), REPUNCH THE DFT EDIT 
CARDS TO REFLECT THE CORRECT DDEF THEN RELOAD THE DFT ACCORDING 
TO THE 'LOAD NEW DFT' PROCEDURE, SECTION 3.2.3. 

2. IF THE AREA CODE IN THE MONITOR IS INCORRECT (M0D2) REPUNCH 
THE MONITOR EDIT CARDS TO REFLECT THE CORRECT AREA CODE. TERMI- 
NATE ON LINE DIAGNOSTIC OPERATION BY FOLLOWING THE TERMINATION 
PROCEDURE, SECTION 3.4. THEN RELOAD THE DIAGNOSTIC DECK ACCORDING 
TO THE PROGRAM LOAD PROCEDURE, SECTION 3.2.1. 

PID MID RID RAD MODI M0D2 M0D3 M0D4 
0300 E014 0001 RRRR XXXX YYYY ZZZZ 0000 

THE DEVICE REQUESTED BY THE DFT IS UNDEFINED IN THE MPX SYSTEM. 
THE DEVICE IS CONSIDERED UNDEFINED WHEN THE DEVICE TABLE ADDRESS 
(IN THE MPX FIXED AREA OF CORE) FOR THE REQUESTED DEVICE IS ZERO. 

THE DFT WILL BE DE-EXECUTED FOLLOWING THE PRINTOUT- 
MODI XXXX THE DDEF OF THE REQUESTED DEVICE. 
M0D2 YYYY THE AREA CODE OF THE REQUESTED DEVICE. 
M0U3 ZZZZ THE ADDRESS IN THE MPX FIXED AREA OF CORE WHERE THE 

DEVICE TABLE ADDRESS IS STORED. 
M0D4 0000 THE DEVICE TABLE ADDRESS FOR THE REQUESTED DEVICE. 

URIGIN OF ABORT CALL - ROUTINE RQDV 
RECOVERY PROCEDURE 

1. TO LOAD A NEW DIAGNOSTIC TEST FOR A DEFINED DEVICE, FOLLOW 
THE PROCEDURE FOR 'LOADING NEW DFT', SECTION 3.2.3. 

2. TO TERMINATE ON-LINE OPERATIONS, FOLLOW THE PROGRAM TERMINATION 
PROCEDURE, SECTION 3.4. 
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PID MID RID RAD MODI M0D2 
0300 E015 0001 RRRR XXXX YYYY 



THE INTERRUPT LEVEL SPECIFIED IN THE DDEF, CHARACTERS AND 1, IS 
GREATER THAN 17 HEX (23 DEC). THIS IS AN ILLEGAL INTERRUPT LEVEL. 
THE DDEF IS INCORRECTLY EDITED IN THE DFT AND MONITOR EDIT CARDS. 

THE DFT WILL BE DE-EXECUTED FOLLOWING THE PRINTOUT. 



MODI XXXX 
M0D2 YYYY 



THE DDEF IN ERROR. 

THE AREA CODE ASSIGNED TO THE DDEF IN MODI. 



ORIGIN OF ABORT CALL - ROUTINE RODV 



RECOVERY PROCEDURE. 



REPUNCH THE DFT AND MONITOR EDIT CARDS TO REFLECT THE CORRECT DOEF. 
TERMINATE MPXDM ACCORDING TO THE TERMINATION PROCEDURE, SECTION 3.4, 
THEN RELOAD THE DIAGNOSTIC DECK ACCORDING TO THE PROGRAM LOAD 
PROCEDURE, SECTION 3.2.1. 



PID MID RID RAD MODI M0D2 
0300 E020 0001 RRRR XXXX YYYY 



THE DFT HAS SPECIFIED THE RELEASE OF A DEVICE WHICH IT DID NOT 
PREVIOUSLY REQUEST. THIS IS A DFT LOGIC ERROR AND CAN "BE CAUSED BY 
LOSS OF DFT CONTROL OR SEQUENCING (INCORRECT BRANCH, INSTRUCTION 
FAILURE ETC). 

THE DFT WILL BE DE-EXECUTED FOLLOWING THE PRINTOUT. 

MODI XXXX THE DDEF OF THE DEVICE WHICH WAS PREVIOUSLY REQUESTED. 
M0D2 YYYY THE DDEF OF THE DEVICE SPECIFIED FOR RELEASE AS IT 
APPEARED IN THE RELEASE DEVICE CALL. 

ORIGIN OF ABORT CALL - ROUTINE RLDV 

RECOVERY PROCEDURE. 

RELOAD THE DFT ACCORDING TO THE 'LOAD NEW DFT' PROCEDURE , SECT . 3.2.3. 



PID MID RID RAD MODI M0D2 M0D3 
0300 E016 0001 RRRR XXXX YYYY ZZZZ 

THE INTERRUPT LEVEL TO WHICH THE REQUESTED DEVICE IS ASSIGNED IS 
MASKED. THE DEVICE CANNOT BE RUN WITH A MASKED INTERRUPT LEVEL. 

THE DFT WILL BE DE-EXECUTED FOLLOWING THE PRINTOUT. 

MODI XXXX THE DDEF UF THE RQUESTED DEVICE. THE INTERRUPT LEVEL 

IS IN CHARACTERS 1 AND 2. 
M0D2 YYYY MPX SYSTEM USER MASK REGISTER 1 - LEVELS 1 THROUGH 13 

IN BIT POSITIONS 1 THROUGH 13. 
M0D3 ZZZZ MPX SYSTEM USER MASK REGISTER 2 - LEVELS 14 THROUGH 

23 IN BIT POSITIONS 1 THROUGH 9. 

ORIGIN OF ABORT CALL - ROUTINE RQUV 

RECOVERY PROCEDORE 

RELUAD THE DIAGNOSTIC FUNCTION TEST ACCURDING TO THE 'LOAD NEW DFT' 
PROCEDURE, SECTION 3.2.3. 



PID MID RID RAD MODI M0D2 
0300 E021 0001 RRRR XXXX 1001 



THE DFT OBJECT DECK AND PATCH CARD LOADER, MPDM1, HAS BEEN ENTERED 
FUR EXECUTION, BUT WAS NOT CORRECTLY CALLED BY THE CONTROL SECTION. 
PRIOR TO BRANCHING TO ANY OF THE 3 LOADERS, THE CONTROL SECTION 
STORES AN 10 WORD IN LOCATION LCLID (EED9). WHEN THE LOADER IS 
ENTERED, IT COMPARES ITS CHECK WORD AGAINST THE CONTENTS OF LCLIO. 
THIS ERRUR OCCURS WHEN THE 2 WURDS DO NUT COMPARE. 

THIS ERRUR IS A LOGIC FAILURE WITHIN MPXDM, AND ON LINE OPERATION 
WILL BE TERMINATED FOLLOWING THE PRINTOUT. 

MUD1 XXXX THE CONTENTS OF LOCATIUN LCLID. 
MUD2 1001 THE CHECK WORD ASSIGNED TO MPDM1. 

ORIGIN OF ABORT CALL - LOADER MPDM1 

RECOVERY PROCEDURE. 

RELOAD THE ON LINE DIAGNUSTIC SYSTEM ACCURDING TO THE 'PROGRAM LOAD' 
PROCEDURE, SECTION 3.2.1. 



PID MID RID RAD MODI M0D2 
0300 E017 0001 RRRR XXXX YYYY 



PID MID RID RAD MODI M0D2 
0300 E022 0001 RRRR XXXX YYYY 



THE DEVICE REQUESTED BY THE DFT IS NOT UFF-LINE, AND CANNOT BE 
TESTED. 

THE DFT WILL BE DE-EXECTUED FOLLOWING THE PRINTOUT. 

MODI XXXX THE DDEF OF THE DEVICE BEING REQUESTED. 
M0U2 YYYY THE AREA CODE OF THE DEVICE BEING REQUESTED. 

ORIGIN OF ABORT CALL - ROUTINE RQUV 

RECOVERY PROCEDURE. 

RELOAD THE DFT ACCORDING TO THE 'LOAD NEW DFT' PROCEDURE, 
SECTION 3.2.3. INSURE C.E. SWITCH 11 IS ON AT LOAD TIME (LOAD AND 
PAUSE) SO THAT THE DEVICE MAY BE TAKEN OFF LINE AFTER LOADING i -AS 
BEEN COMPLETED. 



A CHECKSUM ERROR WAS DETECTED WHILE READING THE DFT OBJECT DECK. 
BESIDES HAVING AN ACTUAL BAD CARD, A CHECKSOM ERRUR WILL OCCUR 
IF THE OBJECT DECK IS OUT UF SEQUENCE, OR IF THE OBJECT DECK 
IS IN 8-8 FORMAT. 

THE READING OF THE DFT WILL BE TERMINATED FOLLOWING THE PRINTOUT. 

MODI XXXX THE CARD SEQUENCE NUMBER, IN HEX, UN WHICH THE CHECKSUM 
UCCOREU. IF THE CARDS ARE OUT OF SEQUENCE, THEN MODI 
Coo TAINS THE EXPECTED CARD .SEQUENCE NUMBER. 

MUD2 YYYY THE CHECKSUM AS COMPUTED BY THE LUADER. A CORRECT 
CHECKSUM IS 0000 . 

ORIGIN UF ABORT CALL - LOADER MPDMi. 

RECOVERY PROCEDURE. 



CLEAR THE REMAINDER OF THE ON LINE DIAGNOSTIC DECK FROM THE 1442. 
CORRECT THE CAUSE OF THE ChECKSUM AND THEN REIOAD Thi: DFT ACCORDING 
TO THE 'LOAD NEW DFT' PROCEDORE, SECTION 3.2.3 
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PID MID RID RAD 
0300 E023 0001 RRRR 



THE DFT OBJECT DECK BEING LOADED IS NOT RELOCATABLE AND CANNOT BE 
RUN. 

THE LOADING OPERATION WILL BE TERMINATED FOLLOWING THE PRINTOUT. 

ORIGIN OF ABORT CALL - LOADER MPDM1. 

RECOVERY PROCEDURE. 

CLEAR THE REMAINDER OF THE DIAGNOSTIC DECK FROM 1442, OBTAIN AN ON 
LINE COMPATABLE DFT AND LOAD IT ACCORDING TO THE 'LOAD NEW DFT' 
PROCEDURE, SECTION 3.2.3. 



PID MID RID RAD 
0300 E024 0001 RRRR 



THE OFF LINE DFT/MONITOR INTERFACE TRANSFER VECTORS WERE NOT 
MODIFIED TO CONTAIN THEIR ON LINE COUNTER PARTS. 

THIS ERROR WILL OCCUR WHEN THE DFT JUST LOADED WAS ASSEMBLED WITHOUT 
SPECIFYING THE ASSEMBLER OPTION WHICH CHECKS FOR AND IDENTIFIES OFF 
LINE TRANSFER VECTORS. AN OFF LINE VECTOR IS FLAGGED BY A BIT 
CONFIGURATION OF 10 IN THE RELOCATION FIELD (APPEARS AS A 2 IN THE 
PROGRAM LISTING). WHEN THE DFT LOADER ,MPDM1, DETECTS THE 1-0 
PATTERN, IT WILL REPLACE THE REFERENCED WORD WITH ITS CORRESPONDING 
ON LINE VECTOR. 

ORIGIN OF ABORT CALL - ROUTINE MPDM1. 

RECOVERY PROCEDURE. 

OBTAIN A CORRECT DFT DECK AND LOAD IT ACCORDING TO THE 'LOAD NEW DFT' 
PROCEDURE, SECTION 3.2.3. 



PID MID RID RAD 
0300 fc02i> 0001 RRRR 



THE DFT JUST LOADED IS NOT COMPATIBLE WITH ON LINE OPERATIONS. 

fcACH DFT CONTAINS A COMPATIBILITY WORD IN ITS STANDARD 'FRONT END' 
StCTION. WHEN THE DFT HAS BEEN CONVERTED AND TESTED FOR ON LINE 
OPERATIONS, THIS WORD WILL BE PERMANENTLY ASSEMBLED TO A 
PRE-DETERMINED VALUE. 

ORIGIN OF ABORT CALL - LOADER MPDM1 

RECOVERY PROCEDURE. 

OBTAIN ThE CORRECT DFT DECK AND LOAD IT ACCORDING TO THE 
•LOAD NEW DFT' PROCEDURE, SECTION 3.2.3. 



PID MID RID RAO 
0300 E026 0001 RRRR 



A BLANK CARD WAS READ DURING DFT INPUT. 

ORIGIN OF ABORT CALL - SUBROUTINE TYPE. 

RECOVERY PROCEDURE. 

REMOVE BLANK CARDS FROM THE OBJECT DECK AND RELOAD THE DFT ACCORDING 
TO THE 'LOAD NEW DFT' PROCEDURE, SECTION 3.2.3. 



PID MID RID RAD 
0300 E027 0001 RRRR 



A BLANK CARD OR 8-8 FORMAT OBJECT CARD WAS READ DURING DFT INPUT. 

ORIGIN OF ABORT CALL - SUBROUTINE TYPE. 

RECOVERY PROCEDURE. 

INSURE THAT NO BLANK OR 8-8 FORMAT CARDS ARE IN THE DFT OBJECT 
DECK. RELOAD THE DFT ACCORDING TO THE 'LOAD NEW DFT' PROCEDURE, 
SECTION 3.2.3. 



PID MID RID RAD 
0300 E028 0001 RRRR 



AN EDIT CARD WAS READ PRIOR TO READING A DFT OBJECT DECK END CARD. 

ORIGIN OF ABORT CALL - SUBROUTINE TYPE. 

RECOVERY PROCEDURE. 

INSURE THAT THE DFT DECK CONTAINS AN END CARD AND THAT ONLY DFT AND 
PATCH CARDS PRECEED IT. RELOAD THE DFT ACCORDING TO THE 'LOAD NEW 
DFT' PROCEDURE, SECTION 3.2.3. 



PID MID RID RAD 
0300 E029 0001 RRRR 



A CONTROL CARD WAS READ PRIOR TO READING A DFT OBJECT DECK END 
CARD. 

ORIGIN UF ABORT CALL - SUBROUTINE TYPE. 

RECOVERY PROCEDURE. 

INSURE THAT THE DFT DECK CONTAINS AN END CARD AND THAT ONLY 
DFT AND PATCH CARDS PRECEED IT. RELOAD THE DFT ACCORDING 
TO THE 'LOAD NEW DFT' PROCEURE, SECTION 3.2.3. 



PID MID RID RAD MODI M0D2 
0300 E030 0001 RRRR XXXX YYYY 



A DFT OBJECT CARD OR PATCH CARD SPECIFIED AN ADDRESS WHICH EXCEEDED 
THE UPPER CORE BOUNDARY (THE RELOCATED ADDRESS) ASSIGNED TO THE DFT 
CORE AREA. 



MODI XXXX 
M0D2 YYYY 



AMOUNT OF CORE AREA AVAILABLE TO THE DFT. 
UPPER CORE BOUNDARY ADDRESS. 



ORIGIN OF ABORT CALL - SUBROUTINE CKADR. 

RECOVERY PROCEDURE. 

VERIFY THAT THE CORRECT DFT DECK IS BEING USED AND THAT ANY PATCH 
CARDS DO NOT EXCEED, AFTER RELOCATION, THE SPECIFIED UPPER BOUNDARY. 
RELOAD THE DFT ACCORDING TO THE 'LOAD NEW DFT' PROCEDURE, 
SECTION 3.2.3. 
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PID MID RID RAD MODI 
0300 E03X 0001 RRRR 0001 



THE HEX PATCH CARD JUST READ CONTAINED OTHER THAN A "BLANK 1 OR 'R' 
IN THE RELOCATION COLUMN BETWEEN DATA FIELDS. 

MODI - 0001 CARD TYPE - PATCH CARD. 

ORIGIN OF ABORT CALL - ROUTINE HEX. 

RECOVERY PROCEDURE. 

CORRECT THE PATCH CARD IN ERROR AND RELOAD THE DFT ACCORDING TO 
THE 'LOAD NEW OFT' PROCEDURE, SECTION 3.2.3. 



PID MID RID RAD MODI 
0300 E032 0001 RRRR XXXX 



AN 11 ZONE PUNCH WAS DETECTED IN A HEXIDECIMAL DATA COLUMN. THE 
DATA IS NOT HEX. 

MODI - 0001 HEX PATCH CARD 

0002 EDIT CARD 

0003 DFT CONTROL CARD 

ORIGIN OF ABORT CALL - ROUTINE HEX. 

RECOVERY PROCEDURE. 

CORRECT THE CARD IN ERROR. IF IT WAS AN EDIT OR PATCH CARD, RELOAD 
THE DFT ACCORDING TO THE 'LOAD NEW DFT' PROCEDURE, SECTION 3.2.3. IF 
IT WAS A CONTRUL CARD FOLLOW THE PROCEDURE FOR ENTERING CONTROL 
CARDS SECTION 3.2.4. 



PID MID RID RAD MODI 
0300 E033 0001 RRRR XXXX 



BOTH A 12 AND A ZONE PUNCH WERE DETECTED IN A HEXIDECIMAL DATA 
COLUMN. THE DATA IS NOT HEX. 

MODI - 0001 HEX PATCH CARD 

0002 EDIT CARD 

0003 DFT CONTROL CARD 

ORIGIN OF ABORT CALL - ROUTINE HEX. 

RECOVERY PROCEDURE. 

CORRECT THE CARD IN ERROR. IF IT WAS AN EDIT OR PATCH CARD, RELOAD 
THE DFT ACCORDING TO THE 'LOAD NEW DFT' PROCEDURE SECTION 3.2.3 IF IT 
WAS A CONTROL CARD, FOLLOW THE PROCEDURE FOR ENTERING CONTROL CARDS 
SECTION 3.2.4. 



PID MID RIO RAD MODI 
0300 E034 0001 RRRR XXXX 



A 12 ZONE ONLY PUNCH WAS DETECTED IN A HEXIDECIMAL DATA COLUMN. 
THE DATA IS NOT HEX. 

MODI 0001 HEX PATCH CARD 

0002 EDIT CARD 

0003 DFT CONTROL CARD 

ORIGIN OF ABORT CALL - ROUTINE HEX. 

RECOVERY PROCEDURE. 

CORRECT THE CARD IN ERROR. IF IT WAS AIM EDIT OR PATCH CARD, RELOAD 
THE DFT ACCORDING TO THE 'LOAD NEW DFT' PROCEDURE, IT IT WAS A CON- 
TROL CARD, FOLLOW THE PROCEDURE FOR ENTERING CONTROL CARDS, SECTION 
3.2.4. 



PID MID RID RAD MODI 
0300 E03S 0001 RRRR XXXX 



MULTIPLE DIGIT PUNCHES WERE DETECTED IN A HEXIDECIMAL DATA COLUMN. 
THE DATA IS NOT HEX. 



MODI 0001 
0002 

0003 



HEX PATCH CARDS 

EDIT CARD 

DFT CONTROL CARD 



ORIGIN OF ABORT CALL - ROUTINE HEX. 



RECOVERY PROCEDURE. 



CORRFCT THE CARD IN ERROR. IF IT WAS AN EDIT OR PATCH CARD, RELOAD 
THE DFT ACCORDING TO THE 'LOAD NEW DFT' PROCEDURE, SECTION 3.2.3 IF 
IT WAS A CONTROL CARD, FOLLOW THE PROCEDURE FOR ENTERING CONTROL 
CARDS, SECTION 3.2.4. 



PID MID RID RAD MODI M0D2 
0300 E036 0001 RRRR XXXX 2002 



THE EDIT CARD LOADER, MPDM2 , HAS BEEIV ENTERED FOR EXECUTION BUT WAS 
NOT CORRECTLY CALLED BY THE CONTROL SECTION. PRIOR TO BRANCHING 
TO ANY OF THE 3 LOADERS, THE CONTROL SECTION STORES AN ID WORD IN 
LOCATION LCLID (FFD9). WHEN THE LOADER IS ENTERED, IT COMPARES 
IT'S CHECK WORD AGAINST THE CONTENTS OF LCLID. THIS ERROR OCCURS 
WHEN THE 2 WORDS DO NUT COMPARE. 

THIS ERROR IS A LOGIC FAILURE WITHIN MPXDM, AND UN LINE DIAGNOSTIC 
OPERATION WILL BE TERMINATED FOLLOWING THE PRINTOUT. 



MODI XXXX 
M0D2 2002 



THE CONTENTS OF LOCATION LCLID. 
THE CHECK WORD ASSIGNED TO MPDM2. 



OKIGIN OF ABORT CALL 
RECOVERY PROCEDURE. 



LOADER MPDM2. 



RELOAD THE ON LINE DIAGNOSTIC SYSTEM ACCORDING TO THE 'LOAD PROGRAM' 
PROCEDURE, SECTION 3.2.1. 
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PID MID RID RAD MODI 
0300 E037 0001 RRRR XXOO 



THE CARD JUST READ WAS NOT AN EDIT CARD. 



MODI XXOO 



THE PID OF THE PROGRAM TO Bfc EDITED, EITHER MPXDM(0300) 
OR THE OFT (XXOO). 



ORIGIN OF ABORT CALL 



RECOVERY PROCEDURE. 



LOADER MPDM2. 



INSURE THAT THE EDIT DECKS CONTAIN ONLY EDIT CARDS. 

1. IF THE ERROR OCCURED WHILE EDITING MPXDM(M0D1=0 300 ) ON LINE 
DIAGNOSTICS WILL BE ABORTED. RELOAD THE ON LINE DIAGNOSTIC 
SYSTEM ACCORDING TO THE 'LOAD PROGRAM' PROCEDURE, SECTION 3.2.1. 

2. IF THE ERROR OCCURED WHILE EDITING THE DFT, RELOAD THE OFT 
ACCORDING TO THE 'LOAD NEW DFT' PROCEDURE, SECTIUN 3.2.3. 



PID MID RID RAD MODI M0D2 
0300 E038 0001 RRRR XXOO YYOO 



PID MID RID RAD MODI M002 M0D3 
0300 E040 0001 RRRR EDXX 0006 ZZOO 

THE ENTRY COUNT ( NUMBER OF DATA FIELDS ON THE EDIT CARD) SPECIFIED 
BY THE 3RD HEX GROUP ON THE CARD IS TOO LARGE. THE ENTRY COUNT CAN 
NOT EXCEED HEX 'C (DECIMAL 12). 

MODI EDXX SEQUENCE NUMBER OF THE CARD IN ERROR. 
M0D2 OOOY THE ENTRY COUNT AS PUNCHED IN THE CARD. 
M0D3 ZZOO PID OF THE PROGRAM BEING EDITED. 

ORIGIN OF ABORT CALL - LOADER MPDM2. 

RECOVERY PROCEDURE. 

CORRECT THE ENTRY COUNT ON THE CARD IN ERROR. 

1. IF THE ERROR OCCURED WHILE EDITING MPXDM (M003=0300) UN LINE 
DIAGNOSTICS WILL BE ABURTEU. RELOAD THE ON LINE DIAGNOSTIC 
SYSTEM ACCORDING TO THE 'LOAD PROGRAM' PROCEDURE, SECTION 3.2.1. 

2. IF THE ERROR OCCURED WHILE EDITING THE DFT, RELOAD THE DFT 
ACCORDING TO THE 'LOAD NEW DFT' PROCEDURE, SECTION 3.2.3. 



THE EDIT CARD JUST READ IS NOT FOR THE PROGRAM BEING EDITED. (THE 
PID ON THE EDIT CARD DOES NOT AGREE WITH PID OF THE PROGRAM BEING 
EDITED). 

MODI XXOO THE PID OF THE PROGRAM BEING EDITED. EITHER MPXDMI0 300) 

OR THE DFT (XXOO ) . 
M0D2 YYOO THE PROGRAM PID AS PUNCHED IN THE EDIT CARD. 

ORIGIN OF ABORT CALL - LOADER MPDM2. 

RECOVERY PROCEDURE. 

OBTAIN THE CORRECT EDIT CARDS FOR EITHER THE MONITOR OR THE DFT TO BE 
RUN. 

1. IF THE ERROR OCCURED WHILE EDITING MPXDM (M0D1=0300), ON LINE 
DIAGNOSTICS WILL BE ABORTED. RELOAD THE ON LINE DIAGNOSTIC 
SYSTEM ACCORDING TO THE 'LOAD PROGRAM' PROCEDURE, SECTION 3.2.1. 

2. IF THE ERROR OCCURED WHILE EDITING THE DFT, RELOAD THE DFT 
ACCORDING TO THE 'LOAD NEW DFT' PROCEDURE, SECTION 3.2.3. 



PID MID RID RAD MUD1 M0D2 M0U3 
0300 E041 0001 RRRR EDOO OOOX 0300 

MPXDM EDIT CARD EDOO CONTAINED AN ENTRY COUNT GREATER THAN 2. THIS 
CARD SHOULD CONTAIN ONLY THE DDEF OF THE CONSOLE INTERRUPT, AND THE 
DDEF OF THE OUTPUT DEVICE. 

MODI EDOO EDIT CARD SEQUENCE NUMBER. 

M0D2 OOOX ENTRY COUNT AS PUNCHED ON THE CARD. 

M0D3 0300 MPXDM PID. 

ON LINE DIAGNOSTICS WILL BE ABORTED FOLLOWING THE PRINTOUT. 

URIGIN UF ABORT CALL - LOADER MPDM2. 

RECOVERY PROCEDURE. 

RELUAD THE ON LINE DIAGNUSTIC SYSTEM ACCORDING TO THE 'LOAD PROGRAM' 
PROCEDURE, SECTION 3.2.1. 



PID MID RID RAD MODI M0D2 M0D3 
0300 E039 0001 RRRR EDXX YYYY ZZOO 

THE EDIT CARD JUST READ IS OUT OF SEQUENCE. 

MODI EDXX EXPECTED CARD SEQUENCE NUMBER. 
M0D2 YYYY ACTUAL CARD SEQUENCE NUMBER READ. 
M0D3 ZZOO PID OF PROGRAM BEING EDITED. 



PID MID RID RAD MODI 
0300 E042 0001 RRRR ZZOO 



ORIGIN OF ABORT CALL 



RECOVERY PROCEDURE. 



LOADER MPDM2. 



PLACE THE EDIT CARD DECK IN CORRECT SEQUENCE, OR OBTAIN ANY EDIT 
CARDS WHICH MAY BE MISSING. 

1. IF THE ERROR OCCURED WHILE EDITING MPXDM (M0D3=0300). ON LINE 
DIAGNOSTICS WILL BE ABORTED. RELOAD THE ON LINE DIAGNOSTIC 
SYSTEM ACCORDING TO THE 'LOAD PROGRAM' PROCEDURE, SECTION 3.2.2. 

2. IF THE ERROR OCCURED WHILE EDITING THE DFT, RELOAD THE DFT 
ACCORDING TO THE 'LOAD NEW DFT' PROCEDURE, SECTIUN 3.2.3. 



AN END OF EDIT CARD WAS READ (SEQUENCE NUMBER OF FFFF) PRIOR TO 
READING ANY EDIT DATA CARDS. 

MODI ZZOO PID OF THE PROGRAM BEING EDITED. 

ORIGIN OF ABORT CALL - LOADER MPDM2. 

RECOVERY PROCEDURE. 

INSURE THAT ALL EDIT CARDS ARE INLCUUED IN THE EDIT CARD DECK FOR 
THE SPECIFIED PROGRAM, AND THAT THE END OF EDIT CARD IS THE LAST 
CARD OF THE EDIT DECK. 

1. IF THE ERROR OCCURED WHILE EDITING MPXDM (MOD1-0300) ON LINE 
DIAGNOSTICS WILL BE ABORTED. FOLLUd RELUAD PROCEDURE 1, 
SECTION 3.3.1. 

2. IF THE ERRUR OCCURED WHILE EDITING THE DFT (M0D1=ZZ00), RELOAD 
THE DFT ACCURDING TO THE 'LOAD NEW DFT' PROCEDORE, SECTION 3.2.3. 
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PID MID RID RAD 
0300 E043 0001 RRRR 



PID MID RID RAD MODI 
0300 E046 0001 RRRR OOOX 



LESS THAN 4 DIAGNOSTIC MONITOR EDIT CARDS WERE READ. A MINIMUM OF 
4 EDIT CARDS ARE REQUIRED BY THE OFF LINE SYSTEM, THEREFORE THAT 
AMOUNT IS CHECKED FOR WHEN ON LINE. 

CARD 1 CONTAINS THE CONSOLE INTERRUPT AND OUTPUT DEVICE DDEF'S. 
CARD 2 DEFINES THE OFF LINE INTERRUPT LEVELS TO BE USED. (THIS 

CARD IS CHECKED FOR ON LINE BUT NOT USED). 
CARD 3 IS THE 1ST CARD OF 'N' NUMBER OF CARDS WHICH DEFINE THE 

DEVICES TO THE MONITOR (DDEF AND CORRESPONDING AREA CODE). 
CARD 4 IS THE MONITOR EDIT END CARD. 

ON LINE DIAGNOSTICS WILL BE ABORTED FOLLOWING THIS PRINTOUT. 

ORIGIN OF ABORT CALL - LOADER MPDM2. 

RECOVERY PROCEDURE. 

ADD THE MISSING EDIT CARDS TO THE MONITOR EDIT CARD DECK AND THEN 
RELOAD THE ON LINE DIAGNOSTIC SYSTEM ACCORDING TO THE 'PROGRAM 
LOAD' PROCEDURE, SECTION 3.2.1. 



THE FUNCTION NUMBER SPECIFIED IN COLUMN 5 OF THE CONTROL CARD IS 
INCORRECT. THE ACCEPTABLE FUNCTION NUMBERS ARE 0,1,2,- AND 3 FOR 
DATA CONTROL CARDS, AND 'F' FOR THE END CONTROL CARD. 

MODI OOOX THE FUNCTION NUMBER AS PUNCHED IN THE CONTROL CARD. 

ORIGIN OF ABORT CALL - LOADER MPDM4. 

RECOVERY PROCEDURE. 

CORRECT THE CONTROL CARD IN ERROR AND THEN FOLLOW THE PROCFDURE FOR 
READING CONTROL CARDS, SECTION 3.2.4. 



PID MID RID RAD MODI 
0300 E047 0001 RRRR OOOX 



AN EDIT OR CONTROL CARD DID NOT CONTAIN A BLANK COLUMN BETWEEN DATA 
FIELDS. EACH DATA FIELD OF 4 COLUMNS MUST BE SEPARATED BY A BLANK 
COLUMN. 



PID MID RID RAD MODI M0U2 
0300 E044 0001 RRRR XXXX 4004 



THE CONTROL CARD LOADER AND ANALYZER, MPDM4, HAS BEEN ENTERED FOR 
EXECUTION BUT WAS NOT CORRECTLY CALLED BY THE CUNTROL SECTION. 
PRIOR TO BRANCHING TO ANY OF THE 3 LOADERS, THE CONTROL SECTION 
STORES AN ID WORD IN LOCATION LCLIDIFFD9). WHEN THE LOADER IS 
ENTERED, IT COMPARES ITS CHECK WORD AGAINST THE CONTENTS OF LCLID. 
THIS ERROR OCCURS WHEN THE 2 WORDS DO NOT COMPARE. 

THIS ERROR IS A LOGIC FAILURE WITHIN MPXDM, AND ON LINE DIAGNOSTIC 
OPERATION WILL BE TERMINATED FOLLOWING THE PRINTOUT. 

MODI XXXX THE CONTENTS OF LOCATION LCLID. 
M0D2 4004 THE CHECK WORD ASSIGNED TO MPDM4. 

ORIGIN OF ABORT CALL - LOADER MPDM4. 

RECOVERY PROCEDURE. 

RELOAD THE ON LINE DIAGNOSTIC SYSTEM ACCORDING TO THE 'PROGRAM LOAD' 
PROCEDORE, SECTION 3.2.1. 



MODI 0002 
0003 



ERROR WAS ON A EDIT CARD. 
ERROR WAS ON A CONTROL CARD. 



ORIGIN OF ABORT CALL 
RECOVERY PROCEDURE. 



ROUTINE HEX. 



CURRECT THE CARD IN ERROR. 

1. IF AM EDIT CARD ERROR, 

A. DURING MPXDM EDIT, RELOAD THE ON LINE DIAGNOSTIC SYSTEM 
ACCORRUING TO THE 'PROGRAM LOAD' PROCEDURE, SECTION 3.2.1. 

B. DURING DFT EDIT, RELUAD THE OFT ACCORDING TO THE 'LOAD MEW 
OFT' PROCEDURE, SECTION 3.2.3. 

2. IF A CONTROL CARD ERROR, FOLLOW THE PRUCEDORE FOR READING 
CONTROL CARDS, SECTION 3.2.4. 



PID MID RID RAD MODI 
0300 E048 0001 kRRR /ZOO 



PID MID RID RAU 
0300 E045 0001 RRRR 



THE CARD JUST READ WAS EITHER INCORRECTLY DEFINED AS A CONTROL CARD 
OR WAS A CARD TYPE OTHER THAN A CONTROL CARD. CONTROL CARDS ARE 
DEFINED TO MPXDM BY '$$FN' PUNCHED IN COLUMNS 1 THROUGH 4. 

ORIGIN OF ABORT CALL - LOADER MPDM4. 

RECOVERY PROCEDURE. 

CORRECT THE CONTkOL CARD IN ERROR AND THEN FOLLOW THE PROCEDURE FOR 
READING CONTROL CARDS, SECTION 3.2.4. 



THE DFT WHOSE PID IS MODI, DUES NOT HAVE A DEVICE ASSIGNED TO IT 
FOR ON LINE OPERATION. THIS ERROR WILL OCCOR WHEN A PROGRAM WITH 
A FICTITIOUS UK 'PATCHED' PID HAS BEEN LOADED FOR OPERATION. SINCE 
OVERLAP OPERATION IS NOT ALLUWED ON LINE, THERE IS NO NEED FUR 
MULTIPLE PIDS IDENTIFYING THE SAME PROGRAM AND ONLY THAT DFT WHICH 
CONTAINS THE ASSIGNED PID WILL BE ACCEPTED ON LINE. 



MODI ZZOO 



THE PID OF THE PROGRAM IN CURE. 



ORIGIN OF ABORT CALL 
RECOVERY PROCEDURE. 



ROUTINE KOOV. 



UBTAIN THE CORRECT DFT AND LOAD IT ACCORDING TO THE 'LOAD NEW DEI 
PROCEDURE, SECTION 3.2.3. 
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PID MID RID RAD MODI MOD2 
0300 E049 0001 RRRR XXOO YYOO 



THE PID PUNCHED IN THE CONTROL CARD JUST READ DOES NOT AGREE WITH THE 
PID OF THE DFT EXECUTING IN CORE. 



MODI XXOO 
M0D2 YYOO 



THE PIO OF THE DFT PRESENTLY IN CORE. 
THE PID AS PUNCHED IN THE CONTROL CARD. 



ORIGIN OF ABORT CALL - LOADER MPDM4 



RECOVERY PROCEDURE 



CORRECT THE PID IN THE CONTROL CARD, OR OBTAIN A PREVIOUSLY PUNCHED 
CORRECT CONTROL CARD AND THEN FOLLOW THE PROCEDURE FOR READING 
CONTROL CARDS, SECTION 3.2.4. 



PID MID RID RAD 
0300 ECXX 0001 RRRR 



AN ERROR WAS DETECTED DURING THE READING OF MPXOM EDIT CARDS, DFT 
OBJECT OR EDIT CARDS, OR DFT CONTROL CARDS. 

ECXX - EC04 = 1442 PARITY ERROR 

- EC05 = 1442 FEED CHECK 

- EC06 = 1442 READ/PUNCH CHECK 

ORIGIN OF ABORT CALL - ROUTINE READ1 
RECOVERY PROCEDURE. 

1. IF THE ERROR OCCURED DURING THE READING OF MPXDM EDIT CARDS, 
RELOAD THE ON LINE DIAGNOSTIC SYSTEM ACCORDING TL> THE 'PROGRAM 
LOADING' PROCEDURE SECTION 3.2.1. 

2. IF THE ERROR OCCURED DURING THE READING OF DFT OBJECT OR EDIT 
CARDS, RELOAD THE DFT ACCORDING TO THE 'LOADING NEW DFT' PRO- 
CEDURE, SECTION 3.2.3. 

3. IF THE ERROR OCCURED DURING THE READING OF DFT CONTROL CARDS, 
RE-ENTER THE CONTROL CARDS ACCORDING TO THE 'READING CONTROL 
CARDS' PROCEDURE, SECTION 3.2.4. 
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5. COMMENTS 

5.1 MPXDM GENERAL DESCRIPTION 

MPXDM IS A DUAL INTERFACE DIAGNOSTIC MONITOR. ONE INTERFACE IS TO 
THE DIAGNOSTIC FUNCTION TEST, AND THE OTHER IS TO THfc MPX SYSTEM. 

DFT INTERFACE 



THE INTERFACE TO THE DFT IS SUCH THAT THE DFT SEE'S NO DIFFERENCE 
BETWEEN IT AND THE OFF LINE DIAGNOSTIC MONITOR INTERFACE. 

THE INTERFACE BETWEEN MPXDM AND THE DFT CONSISTS OF SEVEN BASIC 
ROUTINES AND THEIR SUPPORTING SUBROUTINES. THE DFT CALLS THESE 
ROUTINES VIA THE ROUTINE TRANSFER VECTORS LOCATED IN THE MPXOM HIGH 
CORE COMMUNICATIONS AREA. 



ROUTINE NAME 



XFER VECTOR NAME 



HEX VECTOR LOCATION 



BGIN 

STRT 

MEND 

LG 

ERR 

RODV 

RLDV 



BEGIN 

START 

END 

LOG 

ERROR 

REODV 

RELDV 



FFFb 
FFF6 
FFF7 
FPF8 
FFF9 
FFFA 
FFFB 



ALTHOUGH THE INTERFACE VECTOR ADDRESSES ARE ASSEMBLED AS 12C 
THROUGH 0132 HEX. FOR OFF LINE DIGNOSTIC OPERATION, THE MPXDM 
OBJECT DECK LOADER WILL REPLACE ANY DFT REFERENCE TO THESE VtCTORS 
WITH THEIR ON LINE VECTOR EQUIVALENT. 

♦ROUTINE BGIN* 

THIS ROUTINE IS THE INITIAL INTERFACE BETWEEN MPXDM AND THE DFT. THE 
DFT CALLS THIS ROUTINE AFTER RECEIVING THE 'END CARD' BRANCH. THE 
DFT USES THIS ROUTINE TO NOTIFY MPXDM OF ITS PROGRAM ID, AND MPXDM 
IN TURN SETS THE DFT ON LINE INDICATOR. 

♦ROUTINE STRT* 

THIS ROUTINE IS USED TO ALTERNATE MAIN LINE CONTROL BETWEEN MPXDM 
AND THE DFT. EACH ENTRY TO STRT RESULTS IN THE 'OTHER' PROGRAM 
RECEIVING CONTROL. STRT ALSO HAS THE RESPONSIBILITY OF STARTING 
THE 'NO RESPONSE TIME OUT' OPERATION WHEN THE DFT CALLS IT WITH AN 
INTERRUPT PENDING. 

♦ROUTINE MEND* 

THIS ROUTINE IS CALLED BY THE DFT AT THE COMPLETION OF A PROGRAM 
PASS, AND BY MPXDM WHEN DFT DE-EXECUTION IS SPECIFIED BY C.E. SWITCH 
11. IF CALLED BY THE DFT, MEND WILL CAUSE A RETURN TO THE DFT VIA 
IT'S LOOP PROGRAM ADDRESS. IF CALLED BY MPXDM, MEND WILL CAUSE DFT 
DE-EXECUTION. 

♦ROUTINE LG* 

THIS ROUTINE PROVIDES THE FUNCTIONS OF BINARY TO HEX OR DECIMAL PRINT 
CODE CONVERSION, AND CAUSES THE MPXDM AND DFT MESSAGES TO BE PRINTED 
VIA THE MPX SYSTEM PRINT ROUTINES. 

♦ROUTINE ERR* 

THIS ROUTINE PROVIDES (VIA C.E. SWITCH 12 AND 13 SETTINGS) THE 
CONTROL OVER THE FUNCTIONS OF LOOP ON DFT ERROR AND BYPASS DFT ERROR 
PRINTOUT. 
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♦ROUTINE RUDV* 

THIS ROUTINE VERIFIES THAT ALL CONDITIONS NECESSARY TO TEST THE 
DEVICE ON LINE HAVE BEEN MET. THESE CONDITIONS INCLUDE, LEGAL DDEF, 
CORRECT AREA CODE, DEVICE DEFINED IN MPX SYSTEM, SINGLE DEVICE BEING 
REQUESTED, INTERRUPT LEVEL UNMASKED AND THE DEVICE IS LOGICALLY OFF 
LINE IF NOT CAPABLE OF BEING SHARED. IN ADDITION RQDV INSURES THAT 
THE MPX DEVICE TABLE INTERRUPT VECTOR FOR THE DEVICE UNDER TEST 
IS SET, AND THAT THE VARIABLE CORE AREA BUSY WORD IS INCREMENTED 
WHEN THE DEVICE IS TO CAUSE AN INTERRUPT. WHEN ALL CONDITIONS ARE 
SATISFIED, RODV ASSIGNS THE DEVICE TO THE DFT. 

♦ROUTINE RLDV* 



♦LOADER MPUM2* 

THIS LOADER IS USED TO INPUT BOTH MPXDM AND DFT EDIT CARDS. IT 
VERIFIES EACH CARD FOR CORRECT PID, SEQUENCE NUMBER AND LEGAL CONTENT 
THEN STORES THE DATA IN THE CORRECT PROGRAM. 

♦LOADER MPDM4* 

THIS LOADER IS USED TO INPUT THE DFT CONTROL CARDS. IT VERIFIES 
EACH CARD READ FOR LEGAL CONTENT AMU THEN STORES THE DATA AT THE 
DESIGNATED DFT LOCATIUN. 

♦ROOTINE READ1* 



THIS ROUTINE REMOVES THE DEVICE FROM ASSIGNMENT TO THE DFT. IT 
ALSO INSURES THAT THE VARIABLE CORE AREA BUSY WORD IS PROPERLY 
DECREMENTED, THAT THE DEVICE TABLE INTERRUPT VECTOR IS RESTORED 
AND THAT THE 'NO RESPONSE' TIMEOUT OPERATION IS STOPPED. 



BESIDES THE SEVEN INTERFACE ROUTINES, THE FOLLOWING ROUTINES ARE 
CONTAINED WITHIN MPXDM TO FULFILL IS FUNCTION. 

♦ROUTINE DM1N* 

USED TO INITIALIZE THE DIAGNOSTIC MONITOR UPON COMPLETION OF LOADING. 
IT VERIFIES MPX/MPXDM COMPATABI LITY, SETS UP THE HIGH CORE COMMUNI- 
CATIONS AREA AND CAUSES THE MPXDM EDIT CARDS TO BE READ. THIS 
ROUTINE IS REQUIRED ONLY AT LOAD TIME AND WILL BE OVERLAID BY THE 
1ST DFT LOADED. 

♦ROUTINE DMIR* 

DIAGNOSTIC MONITOR INTERRUPT ROUTINE. TRAPS ALL INTERRUPTS GENERATEU 
BY THE DEVICE UNDER TEST AS A RESULT OF AN XIO ISSUED BY THE DFT. 
PASSES CONTROL TO THE DFT FOR INTERRUPT SERVICE AND RETURNS TO THE 
MPX INTERRUPT PROGRAM. 

♦ROUTINE MCTRL* 

DIAGNOSTIC MONITOR CONTROL ROUTINE. CONTINOUSLY MONITORS THE C.E. 
SWITCHES AND PERFORMS OR CAUSES TO BE PERFORMED, THOSE OPERATIONS 
SPECIFIED IN THE C.E. SWITCHES. THIS ROUTINE ALSO INITIATES THE 
LOADING OF THE DFT OBJECT DECK, IT'S EDIT CARDS AND CONTROL CARDS. 

♦ROUTINE TMOUT* 



THIS ROUTINE IS USED BY THE 3 LOADERS TO CONTROL THE READING OF 
OBJECT, PATCH, EDIT AND CONTROL CARDS. THIS ROUTINE CALLS THE 
CARDZ ROUTINE TO PERFORM THE ACTUAL READ FUNCTION. THE 1442 HILL 
BE PLACED LOGICALLY ON LINE, IF IT IS OFF LINE, IN ORDER TO INPUT 
CARDS, AND THEN RESTORED TO OFF LINE IF THAT WAS ITS INITIAL STATUS. 

-''ROUTINE ABRT* 

ALL ERRORS DETECTED BY MPXDM- (NOT DEVICE UNDER TEST ERRURS), WILL 
RESULT IN A CALL ON THIS ROUTINE. ABRT WILL PRINT AN ERROR MESSAGE 
DEFINING THE ERROR AND THEN PERFORM A CONTROL CARD ABORT, DFT ABORT 
UR A COMPLETE DIAGNOSTIC SYSTEM ABORT DEPENDING ON ThE NATURE OF THE 
ERROR. 

♦ROUTINE CARDZ* 

CARDZ IS A MPX SYSTEM ROUTINE AND IS ThE SAME AS CARDN (CARD READ 
ROUTINE) EXCEPT FUR THE FOLLOWING THINGS. 

1. SUPPORTS ONLY ONE 1442. 

2. ALLOWS ONLY TYPE 1 EXITS. 

3. MUST RESIDE IN THF CALLING PROGRAM. 

4. READS ONLY IN CARD IMAGE FORMAT. 

5. STORAGE PROTECTS 9 WORDS OF THE I/O LIST. 

6. DOES NOT REMOVE PUNCH STOP BIT FROM I/O AREA AFTER A PUNCH 
OPERATION. 

A MORE DETAILED DESCRIPTION OF EACH ROUTINE AND SUBROUTINE, INCLUDING 
ENTRY AND EXIT POINTS, CALLED ROUTINES AND SUBROUTINES AND POSSIBLE 
ERROR ABORT CONDITIONS, CAN BE FOUND IN THE PROGRAM LISTING PRFCFDING 
EACH OF THE ROOTINES AND SUBROUTINES. 



THIS ROUTINE IS USED TO PROVIDE A 'NO RESPONSE' TIME OOT FOR ALL DFT 
ISSUED I/O OPERATIONS TO THE DEVICE UNDER TEST. FAILURE TO RECEIVE 
AN INTERRUPT IN 4 TO 6 SECONDS CAUSES THE DIAGNOSTIC SYSTEM TO BE 
REMOVED FROM AN 'INTERRUPT PENDING' CONDITION AND A LOST INTERRUPT 
ERROR TO BE PRINTED BY THE DFT. 

♦ROUTINE RESTR^ 

THIS ROUTINE IS USED TO RESTORE THE MPX/MPXDM INTERFACE TO A 'NO 
INTERRUPT PENDING' STATE. IT WILL ALSO STOP THE 'NO RESPONSE' 
TIME OUT OPERATION, DECREMENT THE VARIABLE CORE BUSY INDICATOR, 
RESTORE THE DEVICE TABLE INTERRUPT VECTOR AND RE INITIALIZE THE 
MPXDM INTERRUPT CONTROL WORDS. 

♦LOADER MPDMl^ 

THIS LOADER IS USED TO INPUT THE DIAGNOSTIC FUNCTION TEST AND ANY 
•PATCH' CARDS ASSOCIATED WITH IT. IT WILL RELOCATE THE DFT IN CORE 
AND TRANSFER TO IT. 



MPX SYSTEM INTERFACE 

THE INTERFACE BETWEEN MPXDM AND THE MPX SYSTEM IS ESTABLISHED THROUGH 
THE USE OF THE MPX FIXED AREA OF CORE. ALL MPX ROUTINES CALLED ARE 
VIA TRANSFER VECTORS IN THE FIXED AREA. ALSO ANY ADDRESS REQUIRED 
UK IOCC WORDS USED, ARE CONTAINED IN THE FIXED AREA. 

THE MPX ROUTINES USED ARE- 
ROUTINE NAME XFER VECTOR NAME 



IOSET 
LDMON 
TYPEN 
PRNTN 



$IOST 
J.EXIT 
$TYPE 
$PRNT 
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♦ROUTINE IOSET* 

THIS ROUTINE IS CALLED TO OBTAIN THE ADDRESS OF THE VARIABLE CORE 
BUSY WORD. THE BUSY WORD WILL BE INCREMENTED BY MPXDM WHENEVER THE 
OFT IS ABOUT TO ISSUE AN XIO INSTRUCTION, TO THE DEVICE UNDER TEST, 
WHICH WILL RESULT IN AN INTERRUPT. INCREMENTING THE BUSY WORD 
PREVENTS MPXDM AND THE DFT FROM BEING SWAPPED TO DISK DURING PENDING 
INTERRUPT CONDITIONS. 

•ROUTINE LDMON* 

LDMON IS THE PROGRAM WHICH LOADS THE MPX DATA PROCESSING MONITOR. 
WHEN MPXDM CALLS VIA $EXIT THE D.P. MONITOR IS LOADED TO OPERATE 
THE NEXT TIME SHARED JOB. THIS PROCEDURE CAUSES TERMINATION OF ON 
LINE DIAGNOSTICS. 

♦ROUTINE TYPEN* 

THIS ROUTINE IS CALLED TO PRINT THE MPXDM AND DFT MESSAGES ON THE 
1053 TYPEWRITER. THE USE OF THE 1053 IS SPECIFIED BY THE C.E. ON 
THE FIRST MPXDM EDIT CARD. 

♦ROUTINE PRNTN* 

THIS ROUTINE IS CALLED TO PRINT THE MPXDM AND DFT MESSAGES ON THE 
1443 PRINTER. THE USE OF THE 1443 IS SPECIFIED BY THE C.E. ON THE 
FIRST MPXDM EDIT CARD. 



IN ADDITION TO CALLING THE ABOVE ROUTINES VIA THE MPX FIXED AREA 
VECTORS, THE FOLLOWING FIXED AREA LOCATIONS ARE ALSO REFERENCED FOR 
THE REASONS STATED. 

- LOCATIONS $UMK1 AND $UMK2 - 

$UMK1 CONTAINS THE USER MASK REGISTER FOR INTERRUPT LEVELS THRU 

13 AMD $UMK2 CONTAINS THE USER MASK REGISTER FOR INTERRUPT LEVELS 

14 THRU 23. WHEN MPXDM HAS MASKED THE SYSTEM, IT WILL USE THESE 
TWO IOCC WORDS TO PERFORM THE UNMASK FUNCTION. 

- LOCATIONS $MK1 AND $MK1 - 

THESE TWO LOCATIONS CONTAIN THE IOCC WORDS TO MASK INTERRUPT LEVELS 
THRU 23. MPXDM WILL USE THESE IOCC TO PERFORM A SYSTEM MASK 
OPERATION. 

- LOCATION $IMIC - 

THIS LOCATION CONTAINS THE ENTRY ADDRESS TO THE MPX MASTER INTERRUPT 
CONTROL (MIC) ROUTINE, THROUGH WHICH ALL I/O INTERRUPT SERVICE SUB- 
ROUTINES RETURN TO MIC. WHEN MPXDM TRAPS THE INTERRUPTS FOR THE 
DEVICE UNDER TEST, IT WILL RETURN TO THE MPX SYSTEM VIA THIS LOCA- 
TION. 

- LOCATION $CBAS - 

THIS LOCATION IS USED BY MPXDM TO PERFORM THE 'NO RESPONSE' TIME OUT 
OPERATION. MPXDM PLACES THE ADDRESS AT ITS TMOUT ROUTINE IN THIS 
LOCATION TO START THE TIME OUT PROCESS. WHEN THE MPX SYSTEM DETECTS 
A NON-ZERO CONDITION IN $CBAS, IT WILL BRANCH TO THE ADDRESS CON- 
TAINED IN IT AT THE END OF EACH 2 SECOND TIME PERIOD. TO STOP THE 
TIME OUT PROCESS, MPXDM ZEROS LOCATION $CBAS. 
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- LUCATION $CEML - 

THIS LOCATION CONTAINS THE MPXDM MODIFICATION LEVEL NUMBER. A 
SIMILAR NUMBER IS MAINTAINED WITHIN THE MPXDM PROGRAM. THE MODIFI- 
CATION NUMBERS MUST BE IDENTICAL IN BOTH MPX AND MPXDM TO ALLOW ON 
LINE DIAGNOSTIC OPERATION. ANY CHANGE TO THE MPX SYSTEM WHICH 
WOULD REUUIRE A CHANGE IN MPXDM RESULTS IN A CHANGE OF THE 
MODIFICATION NUMBER CONTAINED IN $CEML. 

- LOCATION $TSLK - 

$TSLK IS THE MPX TIME SHARE LOCK WORD. MPXDM WILL SET THIS WORD TO 
NON-ZERO WHEN IT DETECTS C.E. SWITCH 10 ON. THE OPERATION AND USE 
OF THIS WORD IS EXPLANED IN THE DETAILED DESCRIPTION OF C.E. SWITCH 
10 IN TABLE 1 SECTION 3. 

- LOCATIONS $1443, $1442, $PAPT, $MATP, $AIIN, $DINP, $DAOP, $1627, 
$DKPH AND $TYPH - 



THESE LOCATIONS COMPRISE THE MPX DEVICE TABLE ADDRESS TABLE. THE 
ADDRESSES OF THE DEVICE TABLE FOR EACH DEVICE DEFINED IN THE MPX 
SYSTEM WILL APPEAR IN THAT DEVICES ASSIGNED LOCATION IN THE ADDRESS 
TABLE. IF A DEVICE IS UNDEFINED, ITS DEVICE TABLE ADDRESS WILL BE 
ZERO. MPXDM USED THE DEVICE TABLE ADDRESS TABLE TO DETERMINE IF THE 
DEVICE TO BE TESTED IS DEFINED IN THE SYSTEM AND TO LOCATE ITS DEVICE 
TABLE. 



LOCATION 



DEVICE 



$1443 

$1442 

$1442+1 

$PAPT 

$MATP 

$AIIN 

$AIIN+1 

$DINP 

$DAOP 

$DKPH 

$DKPH+1 

$DKPH+2 

STYPH 

$TYPH+1 

$TYPH+2 

$TYPH+3 

$TYPH+4 

$TYPH+5 

$TYPE+6 

$TYPE+7 

- MPX DEVICE TABLES - 



1443 PRINTER 
1442 CARD READ 
1442 CARD READ 
1054/55 PAPER 
2400 MAGNETIC 
ANALOG INPOT B 
ANALOG INPUT E 
DIGITAL INPUTS 
DIGITAL/ANALOG 
1810 PHYSICAL 
1810 PHYSICAL 
1810 PHYSICAL 
1053 PHYSICAL 
1053 PHYSICAL 
1053 PHYSICAL 
1053 PHYSICAL 
1053 PHYSICAL 
1053 PHYSICAL 
1053 PHYSICAL 
1053 PHYSICAL 



i PUNCH #1 




> PUNCH #2 




TAPE READER/PUNCH 


TAPE 




ASIC 




XPANDER 




. OUTPUTS 




DRIVE 




DRIVE 1 




DRIVE 2 




TYPEWRITER 


1 


TYPEWRITER 


2 


TYPEWRITER 


3 


TYPEWRITER 


4 


TYPEWRITER 


5 


TYPEWRITER 


6 


TYPEWRITER 


7 


TYPEWRITER 


H 



EACH DEVICE ON THE 1800 SYSTEM HAS IT'S OWN DEVICE TABLE. THE DEVICE 
TABLE CONTAINS ALL THE INFORMATION NEEDED TO SERVICE THE ASSOCIATED 
DEVICE. MPXDM USES THE DEVICE TABLES FOR THE FOLLOWING PURPOSES- 

1. DETERMINES WHETHER THE DEVICE TO BE TESTED IS LOGICALLY ON OR 
OFF LINE BY CHECKING THE ON/OFF INDICATOR IN THE DEVICE TABLE 

2. PLACES THE ADDRESS OF THE DMIR ROUTINE IN THE INTERRUPT 
TkANSFER ADDRESS LOCATION OF THE DEVICE TABLE IN ORDER TO 
TRAP THE INTERRUPTS FROM THE DEVICE UNDER TEST. 

TO OBTAIN A DETAILED DESCRIPTION OF THE 1800 MPX SYSTEM, REFERENCE 
SHOULD BE MADE TO THE APPROPRIATE MPX MANUALS. 
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5.2 SYSTEM PROTECTION 

IN ORDER TO MAINTAIN A HIGH DEGREE OF PROTECTION AGAINST THE ON LINE 
DIAGNOSTICS AFFECTING THE OPERATING SYSTEM IN ANY WAY, MPXDM WAS 
DESIGNED WITH THE FOLLOWING PROTECTION FEATURES. 

1. A MODIFICATION NUMBER IS MAINTAINED BY BOTH MPXDM AND THE MPX 
SYSTEM. THESE NUMBERS ARE COMPARED IMMEDIATELY AFTER MPXDM IS 
LOADED AND MUST BE IDENTICAL BEFORE MPXDM IS ALLUWEU TO OPERATE. 
THIS NUMBER INSURES COMPATIBILITY BETWEEN THE TWO SYSTEMS. 

2. AN ON LINE COMPATIBILITY INDICATOR HAS BEEN INCLUDED IN THE 
DFT'S. THIS INDICATOR IS SET TO A PREDETERMINED VALUE AT DFT 
ASSEMBLY, AND INDICATES TO MPXDM THAT THE DFT HAS BEEN MODIFIED 
AND TESTED FOR ON LINE OPERATION. THE DFT WILL NOT BE RUN IF 
THE COMPATIBILITY INDICATOR DOES NOT CONTAIN THE CORRECT VALUE. 

3. AS A FURTHER CHECK OF THE ON LINE COMPAT I BI LTI Y OF A DFT, MPXDM 
VERIFIES THAT THE OFF LINE INTERFACE VECTORS CAN BE SWAPPED WITH 
THEIR ON LINE COUNTER PARTS. THE TRANSFER VECTORS ARE FLAGGED 
BY A SPECIFIC COMBINATION OF BITS IN THE RELOCATION FIELD OF 
EACH DFT OBJECT CARD. IN ORDER TO FLAG THESE VECTORS, THE DFT 
MUST BE ASSEMBLED WITH AN ASSEMBLER OPTION PROVIDED FOR THIS 
PURPOSE. A DFT ASSEMBLED WITHOUT THIS OPTION CANNOT BE RUN ON 
LINE. 

4. MPXDM WILL ALLOW ONLY 1 DEVICE AT A TIME TO BE REQUESTED FOR 
TEST. TRYING TO RUN MORE THAN 1 DEVICE RESULTS IN A DFT ABORT. 
OVERLAP OPERATION OF MORE THAN 1 DFT IS ALSO NOT ALLOWED DURING 
ON LINE OPERATION. 

5. THE DEVICE BEING REQUESTED FOR TEST MUST BE DEFINED IN THE MPX 
SYSTEM. 

6. IF THE DFT WAS NOT MODIFIED TO SHARE A DEVICE WITh THE MPX 
SYSTEM (AS AIOPC WAS >,THEN THAT DEVICE MUST BE LOGICALLY OFF 
LINE IN ORDER TO BE TESTED. 

7. THE INTERRUPT LEVEL TO WHICH THE TESTED DEVICE IS ASSIGNED 
MUST BE UNMASKED. 

8. A 'NO RESPONSE' TIME OUT ROUTINE IS PROVIDED TO PREVENT VARIABLE 
CORE FROM BEING 'TIED UP' DO TO A LOST INTERRUPT FROM THE TESTED 
DEVICE. 

9. MPXDM USED THE MPX PRINT ROUTINES FOR MESSAGE OUTPUT IN 
ORDER TO AVOID OUTPUT DEVICE CONFLICTS. 

10. MPXDM TRAPS ONLY THOSE INTERRUPTS GENERATED BY THE DEVICE UNDER 
TEST. 

11. WHILE UN LINE, THE DFT IS NOT ALLOWED TO PERFORM ANY OPERATION 
WHICH REQUIRES PROTECTING STORAGE OR WHICH WOULD RESULT IN AN 
INTERNAL LEVEL INTERRUPT. 

12. THE DFT IS ABORTED ON ANY DETECTED ERROR OTHER THAN THOSE 
GENERATED BY THE DEVICE UNDER TEST. 

13. MPXDM IS ABORTED ON ANY LOGIC ERROR DETECTED WITHIN ITSELF. 



5.3 



5.4 



MPXDM SERVICE AIDS 

THE FOLLOWING PROGRAM SERVICE AIDS HAVE BEEN INCORPORATED INTO MPXDM. 

1. PRIOR TO BRANCHING TO THE DFT, MPXDM STORES THE LOCATION OF THE 
BRANCH IN THE DFT BRANCH WORD DFTOP, LOCATION FFFD HEX. 

2. PRIOR TO BRANCHING TO THE MPX SYSTEM, MPXDM STORES THE LOCATION 
OF THE BRANCH IN THE MPX BRANCH WORD MPXOP, LOCATION FFFE HEX. 

3. ON A RETURN TO MPXDM FROM EITHER MPX OR THE DFT, THE APPROPRIATE 
BRANCH WORD, MPXOP OR DFTUP, WILL BE SET TO ZERO. 



4. 



A LOADER CHECK WORD IS MAINTAINED IN ALL 3 MPXDM LOADERS. PRIOR 
TO BRANCHING TO A LOADER, MPXDM STORES THE ID OE THE LOADER IT 
INTENDS TO CALL IN LOCATION LCLID, FFD9 HEX. WHEN A LOADER IS 
ENTERED, IT COMPARES ITS OWN CHECK WORD AGAINST THE CONTENTS OF 
LCLID, AND ABORTS IF THEY DO NOT COMPARE. 



LOADER NAME 

MPDM1 
MPDM2 
MPDM4 



LOADER CHECK WORD 

100 1 HEX 
200 2 HEX 
4004 HEX 



A STATUS WURD (STAT LOCATION FFEO HEX) IS MAINTAINED FOR THE DFT 
INTERFACE ROUTINES. EACH TIME ONE OF THE SEVEN RUUTINES IS 
ENTERED, ITS ASSIGNED BIT IS TURNED ON. PRIOR TO EXITING FROM 
THE ROUTINE, THE ASSIGNED BIT IS TURNED OFF. 

STATOS WORD 



BIT 





BIT 


1 


BIT 


2 


BIT 


3 


BIT 


4 


BIT 


5 


BIT 


6 



ROUTINE 


XFER VE 


RQDV 


REQDV 


RLDV 


RELDV 


ERR 


ERROR 


LG 


LOG 


MEND 


END 


BGIN 


BEGIN 


STRT 


START 



PATCHING ON-LINE DIAGNOSTIC TESTS 

ON-LINE COMPATIBLE DIAGNOSTICS CAN BE PATCHED IN THE SAME MANNER AS 
'OFF-LINE ONLY' DIAGNOSTICS. CARE .HOWEVER , MUST BE TAKEN WHEN PATCHING 
AN ON-LINE COMPATIBLE DFT , E SPEC I ALL Y WHEN A DIAGNOSTIC MONITOR 
INTERFACE TRANSFER VECTOR IS INVOLVED. 

THE INTERFACE TRANSFER VECTORS ARE , -BEGI N , ST ART , LOG , ERROR , REQDV , RELDV 
AND END-. THE ABSOLUTE VALUE OF THE TRANSFER VECTORS IS DIFFERENT 
BETWEEN ON AND OFF LINE OPERATION (THE ON-LINE MONITOR MAKES THE 
NECESSARY CHANGING). BECAOSE OF THIS D I EFERENCE , ANY PATCH INVOLVING 
THE TRANSFER VECTORS WILL REQUIRE 2 SETS OF PATCH CARDS. ONE SET FOR 
OFF-LINE OPERATION, IN WHICH THE ABSOLUTE VALOE OF THE TRANSFER VECTOR 
IS AS SHOWN IN THE DFT L 1ST li\i. t AND ONE SET FOR ON-LINE OPERATION IN 
WHICH THE ABSOLUTE VALUE OF H.t TRANSFER VECTOR IS AS FOLLOWS. 



BEGIN = /FFF5 
ERROR = /FFF9 



START = /FFFt- 
REQDV = /FFi-A 



END = /FFE7 , LOG = /FFFH 
RFLDV = /EFFB 



ALL PATCH-S FOR ON-LINE OPERA I" ION MUST nE CONTAINED WITHIN THE DFT 
OVERLAY AREA OF THE ON-LINE DIAGNOSTIC MONITOR. THIS AREA IS 2321 DEC 
WORDS LUNG, THEREFORE THE HIGHEST HEX ADDRESS WHICH THE ON-LINE 
DIAGNOSTIC MONITOR WILL ALLOW IS /1110 (DFT ORG ADDRESS 2047 + 2321 
WORDS = 4 368 = HEX 1110). 

A DESCRIPTION OE THE PATCH CARD FORMAT CAN BE FOUND IN THE 
DESCRIPTION FUR THE OFF-LINE MON I TOR , (0 HO 1 ) , SECT I ON 5. 5, SERVICE HINTS 
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6. APPENDIX 

6.1 C.E. CORELOAD PROGRAM 

THIS PROGRAM IS AN MPX SYSTEM PROGRAM. IT'S DESCRIPTION AND 
OPERATING PROCEDORE IS REPRODUCED HERE FOR THE CONVENIENCE OF THE 
C.E. 

THE C.E. CORELOAD PROGRAM PROVIDES THE ABILITY TO INTERROGATE AND 
MODIFY THE STATUS OF I/O DEVICES ON THE SYSTEM. THE FUNCTIONS 
PROVIDED ARE. 

1. SET ON/OFF LINE STATUS. 

2. RESET HARDWARE COUNT 

3. SET LOGICAL AND PHYSICAL UNIT ASSIGNMENTS 

4. SET LIST AND SYSTEM PRINTER ASSIGNMENTS 

5. INTERROGATE AND RESET EXECUTIVE DIRECTOR ERROR COUNTS. 

ERROR PROCEDURES 



IF THE PRINCIPAL 1053 AND ALL ITS BACKUP UNITS ARE OFF-LINE, 
EACH ATTEMPT BY THE C.E. CORE LOAD TO TYPE A MESSAGE WILL CAUSE 
A WAIT WITH A UNIQUE DISPLAY IN THE ' A»-REGI STER. THESE WAITS 
AND THEIR ASSOCIATED MESSAGES ARE AS FOLLOWS. 



FUNCTIONS 



-MESSAGE- 

(TYPEOUT OF C.E. SWITCH SETTINGS) 

C.E. CORELOAD 

SET FUNC IN C.E. SWITCHES 

DEVC OR UNIT NOT ON SYST 

INVALID DEVICE CODE 

INVALID DEVICE FOR SWITCH 

NO DEVICE SELECTED 

TURN ALL SWITCHES OFF TO EXIT 

(EXECUTIVE DIRECTOR ERROR COUNT) 

OFF LINE SYST-FUNC IGNORED 

(STATUS LINE FOR DEVICE UNIT) 

(LIST AND SYSTEM PRINTER STATUS) 



-'A'-REGISTER- 

/F00 2 
/F00 3 
/F004 
/F005 
/F006 
/F007 
/F00 8 
/F009 
/F010 
/F0 13 
/0001 
/OOOC 



/F001 IS DISPLAYED WHEN A VALUE IS TO BE SET IN THE C.E. SWITCHES 
(FOLLOWING SET FUNC IN C.E. SWITCHES , ETC > . 



OPERATING PROCEDURES 



SELECT DEVICE 



C. E. SWITCHES- 


0010 XXXX 


WHERE- XXXX IS 


THE DEVICE CODE AS FOLLOWS 


00018 


2310 DISK 


0001 


1053/1816 TYPEWRITER 


0010 


1443 PRINTER 


0011 


1442 CARD READER/PUNCH 


0100 


2401 MAGNETIC TAPE 


0101 


Al - BASIC 


0110 


AI - EXPANDER 


0111 


1054 


1000 


1055 


1001 


DI 


1010 


DAO 


1011 


1627 PLOTTER 



THE FOLLOWING ITEMS WILL BE TYPED FOR EACH LOGICAL UNIT OF THE 
DEVICE TYPE SPECIFIED. 

1. LOGICAL UNIT NUMBER 

2. PHYSICAL UNIT IDENTIFICATION 

3. ON/OFF LINE STATUS 

4. HARDWARE ERROR COUNT 

EXAMPLE OF TYPED OUTPUT. 

1 TYPE01 ON/OFF 0000 

• • • 

...HARDWARE ERROR COUNT 

...ON/OFF LINE STATUS 

...PHYSICAL UNIT IDENTIFICATION 

.LOGICAL UNIT NUMBER 

THIS FONCTION MUST BE THE FIRST ONE SPECIFIED. IT SELECTS THE 
DEVICE OR DEVICE TYPE TO BE AFFECTED BY THE FOLLOWING FUNCTION. 



THE C.E. CORELOAD WILL BE QUEUED FOR EXECUTION TO A USER SPECIFIED 
AREA BY THE OCCURANCE OF A C.E. INTERRUPT. 

THE C.E. SENSE SWITCHES ARE USED TO SPECIFY THE FUNCTIONS TO BE 
PERFORMED BY THE PROGRAM. THE PROGRAM WILL INITIALLY HALT TO ALLOW 
A FUNCTION TO BE SET IN THE SWITCHES. POSHING START INITIATES THE 
FUNCTION. AFTER EACH FUNCTION IS PERFORMED, THE PROGRAM HALTS TO 
ALLOW SPECIFYING ANOTHER FUNCTION. 

*** NOTE ***... .REFER TO SECTION 6.5.6 OR 6.5.7 FOR PROCEDURE TO 
PUT A 2790 LOOP ADAPTER ON-LINE OR OFF-LINE. 



SET ON/OFF LINE STATUS 

C. E. SWITCHES- 
WHERE. 



01OX OYYY 



X = 0, TAKE UNIT OFF-LINE. 1, PUT UNIT ON-LINE. 
YYY = LOGICAL UNIT NUMBER OF DEVICE **NOTE 1#* 



DATE 
EC NO. 



17JUN68 
411939 



31JUL70 
431327 



PROG ID 
PAGE 



0803-* 
18 



DATE 
EC NO. 



17JUN68 
411939 



31JUL70 
431327 



PROG ID 
PAGE 



0803-* 
18A 



I. I 



I I 



< ,4 4 4 4 4 4 ( 4 4 4 4 4 ( 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
ON-LINE DIAGNOSTIC MONITOR (MPXDM) 



PART NO. 2246291 
PAGE 19 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FUR THE 1800 SYSTEM 
ON-LINE .AGNOSTIC MONITOR (MPXDM) 



PART NO. 2246291 
PAGE 19A 



RESET ERROR COUNT 



EXAMPLES OF USE 



C. E. SWITCHES- 0110 OYYY 
WHERE. 

YYY = LOGICAL UNIT NUMBER OF DEVICE **NOTE 1*# 

SWITCH LOGICAL UNIT ASSIGNMENTS 



(VALID ONLY FOR 1810 OR 10 531 

C. E. SWITCHES- 11 XXX YYY 
WHERE- 



XXX = THE PHYSICAL DEVICE NUMBER TO BE ASSIGNED TO 
LOGICAL CODE YYY 

YYY = THE LOGICAL UNIT NUMBER TO BE ASSIGNED TO PHYSICAL 
DEVICE XXX **NOTE 1** 

THE ABOVE THREE FUNCTIONS WILL TYPE OUT A STATUS LINE FOR THE LOGICAL 
UNIT SPECIFIED. 

**NOTE 1** IF THE DEVICE TYPE IS THE 1053, THE LOGICAL UNIT NUMBER SPECIFIED 
IS ONE LESS THAN THE ACTUAL LOGICAL UNIT NUMBER. 



THE FOLLOWING IS THE TYPEWRITER OUTPUT FOR A C.E. CORELUAD 
APPLICATION WHICH- 

1. TAKES THE 1443 OFF-LINE (1) 

2. SWITCHES LOGICAL 1053 UNITS 1 AND 2 (2) 

3. MAKES THE LIST PRINTER THE 1053 (3) 



E. SWITCHES 00 1000 10 ( 1) 

ON 00 7 
E. SWITCHES OlOOUOOO (1> 

OFF 000 7 
E. SWITCHES 00100001 (2) 

ON 000 3 

UN 0000 
OFF 0000 
E. SWITCHES 1100 1000 (2) 

ON 0000 
E. SWITCHES 1100000 1 (2) 

ON 000 3 
E. SWITCHES 10000000 (3) 
ER = 1053 
NTER = 1053 



SET FUNG IN C.E. SWITCHES 00000000 

(RETURN TO K.P. MONITOR) 



SET 


FUNC IN C. 




PT1443 


SET 


FUNC IN C. 




PT1443 


SET 


FUNC IN C. 




1 TYPE01 




2 TYPE02 




3 TYPE03 


SET 


FUNC IN C. 




1 TYPE02 


SET 


FUNC IN C. 




2 TYPE01 


SET 


FUNC IN C. 




LIST PRINT 




SYSTEM PRI 



SET LIST AND SYSTEM PRINTER ASSIGNMENT 



C. E. SWITCHES- 



100Y XOOO 



WHERE- Y = IF LIST PRINTER IS TO BE SET. 
Y = 1 IF SYSTEM PRINTER IS TO BE SET 

X = IF PRINTER IS THE 1053 

X = 1 IF THE PRINTER IS THE 1443 

THE LIST AND SYSTEM PRINTER ASSIGNEKENTS ARE TYPED OUT FOR THE 
FUNCTION. 



EXIT FROM CORELOAD 

C. E. SWITCHES- 0000 0000 
THIS CAUSES A CALL EXIT TO BE PERFORMED. (TERMINATE C.E. CORELOAD) 

INTERROGATE AND RESET EXECUTIVE ERROR COUNTS 



C. E. SWITCHES- 



1010 OOOX 



WHERE- X = MEANS TO TYPE OUT EXECUTIVE ERROR COUNTS. 
X = 1 MEANS TO RESET ALL ERROR COUNTS. 

THE ERROR COUNTS ARE NOT TYPED OUT FOR THE RESET FUNCTION. 
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6.2 MPX CONTROL CARD FORMAT 
I. NORMAL LOAD FROM 1W»2 

PUNCH THE MPX CONTROL CARDS AS SHOWN BELOW: 

CARD COLUMN - I 2 3 <f 5 6 7 8 9 10 )) 12 I? IU (5 16 17 18 19 20 21 22 23 2fr 25 26 
/ ./ JOB 
/ / BMP 

* S T R E T RD M P X D M 
// XEQ MPXOM L 

* C C E N D 

AN EXPLANATION OF THE CONTENTS OF EACH CARD CAN BE FOUNO IN THE 1800 MPX USERS GUIDE. 

PLACE THE CONTROL CARDS JUST PUNCHED IN FRONT OF AND BEHIND 
THE MPXDM OBJECT DECK AS SHOWN BELOW. 



A 



I 



£ 



'■• CCEND 



// XEQ MPXDM L 



MPXDM (0803) 
OBJECT DECK 



/ 



z 



L 



* STORE T RO MPXDM 



// DMP 



// JOB 



jr 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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6.) DIAGNOSTIC DECK MAKEUP 

I. NORMAL LOAD FROM 141*2 

THE COMPLETED ON LINE 
DIAGNOSTIC DECK SHOULD 
APPEAR AS SHOWN HERE 



I 
IK 



jun68 
xfl939 




'•■STORE T RD MPXDM 



( II DMP 




f II JOB 





I A l I I l I JL. 



3 
Will 
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6.4 DFT CONTROL CARD FORMAT 

DFT CONTROL CARDS ARE OSED TO COMMUNICATE WITH THE DFT DURING ON-LINE 
OPERATION. THE INFORMATION WHICH MAY BE COMMUNCIATEO TO THE DFT VIA 
THE CONTROL CARDS, IS THE SAME INFORMATION WHICH MAY BE COMMUNICATED 
TO THE DFT OFF LINE VIA THE SENSE/PROGRAM AND DATA ENTERY SWITCHES. 

REFER TO THE PROGRAM DESCRIPTION, FOR THE DESIRED P1D, FOR AVAILABLE 
OPTIONS AND TO THE APPENDIX SECTION 6.1 OF THIS DOCUMENT FOR ANY 
SPECIAL OPTIONS WHICH MAY BE AVAILABLE TO ON LINE OPERATION. 



THE CONTROL CARDS SHOULD BE PUNCHED AS SHOWN BELOW. 
THE CONTROL CARD DECK MUST BE AN 'END CONTROL CARD'. 



THE LAST CARD OF 



CARD COLUMN 



1 2 3 4 5 6 7 8 9 10 11 12 13 14 lb 16 17 18 



DATA CARDS 

END CONTROL CARD 



$ $ F 
$ $ F 



N X 
N F 



Y Y 



COMMENTS 
IF DESIRED 



THE 'X' (COLUMN 5) IS THE SWITCH FUNCTION INTO WHICH THE DATA IN 
COLUMNS 12 THRU 15 IS TO BE STORED. THE FUNCTION NUMBERS ARE 0, 1, 2 
OR 3. IN THE OFF LINE SYSTEM, THE FUNCTION IS THE ENTRY IN S/P 
SWITCHES AND 1. 

THE 'YY' (COLUMNS 7 AND 8) IS THE PID OF THE DFT FOR WHICH THE 
CONTROL CARD IS INTENDED. IN THE OFF LINE SYSTEM, THE PID IS THE 
ENTRY IN S/P SWITCHES 2 THRU 7. 

THE 'ZZZZ' (COLUMNS 12-15) IS THE DATA WHICH IS TO BE ENTERED IN THE 
DFT SWITCH FUNCTION SPECIFIED IN COLUMN 5. THE DATA PUNCHED IS THE 
HEXIDECIMAL (OR DECIMAL) REPRESENTATION OF THAT INFORMATION WHICH 
IS NORMALLY ENTERED IN THE DATA ENTRY SWITCHES DURING OFF LINE 
DIAGNOSTIC OPERATION. 



6.5 DFT ON LINE OPERATION 

1. GENERAL 

FOR THE MOST PART, THE OPERATION OF THE DFT'S ON LINE IS IDENTI- 
CAL TO THE OPERATION OF THE DFT'S OFF LINE. THE MAJOR 
DIFFERENCES ARE THAT ONLY 1 DFT AT A TIME MAY BE RUN, ONLY 1 
DEVICE AT A TIME MAY BE TESTED BY ANY DFT AND THAT THE DFT'S WILL 
BE RUN IN THE LOOP PROGRAM MODE. THE LOOP PROGRAM FUNCTION IS 
ESTABLISHED BY MPXDM WITHOUT THE REQUIREMENT OF AN OPTION 
SELECTION. 

WITHIN THE DFT ITSELF, ANY OPERATION WHICH WOULD NORMALLY RESULT 
IN AN INTERNAL LEVEL INTERRUPT, OR ANY OPERATION WHICH REQUIRES 
STORAGE PROTECTING CORE, IS BYPASSED. THIS RESTRICTION IS MADE 
SINCE THE MPX SYSTEM HANDLES ALL INTERNAL INTERRUPTS AND WOULD 
NORMALLY PERFORM A RESTART UPON RECEIPT OF SUCH INTERRUPT. ALSO, 
SINCE THE DIAGNOSTIC SYSTEM CAN BE SWAPPED FROM CORE OR ABORTED 
AT ANY TIME, STORAGE PROTECTING IS BYPASSED TO PREVENT THE 
POSSIBILITY OF LEAVING A CORE LOCATION PROTECTED. 

THE MESSAGES WHICH THE DFT OOTPUTS UN LINE ARE IDENTICAL TO THOSE 
IT OUTPUTS OFF LINE, EXCEPT THAT WHEN ON LINE, THE DIAGNOSTIC 
MONITOR FORCES THE HEADING 'CUST ENG • IN FRONT OF EACH MESSAGE. 
TO INSURE THAT THE C.E. RECEIVES ALL MESSAGES, DEVICE BACKUP 
EXISTS WITHIN THE D1AG. MONITOR. WHEN MPXDM USES THE TYPEN ROU- 
TINE. FOR PRINTING, 1053 BACKUP IS PROVIDED THROUGH THE MPX 
SYSTEM. IF THE C.E. EDITS ThE 1443 AS THE OUTPUT UtVICE AND THE 
1443 AS UNAVAILABLE, MPXDM WILL FORCE THE USE OF THE 1053. ALSO 
IF THE 1443 IS BEING USED BY MPXDM, AND FOR SOME RE ASON BECOMES 
NOT READY, MPXDM WILL BACK UP TO THE 1053. WHEN THE 1443 BECOMES 
READY AGAIN, MPXDM WILL RESUME USING IT. 

COMMUNICATION WITH THE DFT, WHILE ON LINE, IS VIA THE DFT CONTROL 
CARDS RATHER THAN VIA THE SENSE/PROGRAM AND DATA ENTRY SWITCFES. 
THOSE OPTIONS MADE AVAILABLE BY THE DFT OFF LINE ARE ALSO AVAIL- 
ABLE WHILE ON LINE. 



THE INFORMATION FOR DEVICE SET UP, AVAILABLE UPTIUNS, ROUTINE 
DESCRIPTION, ETC. IS CONTAINED IN THE PROGRAM DESCRIPTION 
ASSOCIATED WITH THE DFT. ThE C.E. SHOULD FAMILIARIZE HIMSELF 
WITH ThE CONTENTS OF THAT DOCUMENT AND ALSO READ THE PARTICULAR 
DESCRIPTION, SECTION 6.5.X WHICH FOLLOWS, FOR THE DFT TO BE RON, 
PRIOR TO OPERATING THE UN LINE DIAGNOSTIC SYSTEM. 

THE DESCRIPTION FOR THE DFT'S WHICH FOLLOWS, DESCRIBES THE ON/OFF 
LINE DIFFERENCES FOR EACH DFT AND ANY NECESSARY CONSIDERATIONS 
OR OPERATIONS WHICH MUST BE TAKEN INTO ACCOUNT IN ORDER TO 
OPERATE THE DFT ON LINE. 
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2. PID 0806 



1053/1816 FUNCTION TEST. 



1. ONLY ONE TYPEWRITER (1053 OR 1816) AT A TIME MAY BE SELECTED 
FOR TEST. 

WHEN SELECTING TYPEWRITERS, IT SHOULD BE REMEMBERED THAT 
TYPEWRITER IS THAT TYPEWRITER WHICH IS ASSIGNED AS THE 
MONITOR LOGGING DEVICE (THE TYPEWRITER WHOSE ODEF IS PUNCHED 
IN THE MON.LOG DEVICE ENTRY ON THE DFT EDIT CARD). 

FOR EXAMPLE, IF TYPEWRITER 3 IS ASSIGNED AS THE MONITOR 
LOGGING DEVICE, IT BECOMES TYPEWRITER AND MUST BE SELECTED 
AS SUCH. FURTHER, IN TERMS OF SELECTION, TYPEWRITER 3 NO 
LONGER EXISTS (ITS NORMAL ENTRY POSITION ON THE DFT EDIT 
CARD WOULD BE PUNCHED 0000). 

IF NO TYPEWRITER IS ASSIGNED AS THE MONITOR LOGGING DEVICE, 
THEN TYPEWRITER DOES NOT EXIST. 

THE HEX VALUES TO BE PUNCHED IN THE DFT CONTROL CARD FOR 
FUNCTION 2, AND THE TYPEWRITER EACH SELECTS, ARE AS FOLLOWS. 

(MONITOR LOGGING DEVICE) 



3. PID 0809 - 1810 A/B FUNCTION TEST 

******************************************************************** 
* 

* IN ORDER TO TEST THE 1810 DISK DRIVES ON-LINE, THE FOLLOWING 

* ITEMS MUST BE CONSIDERED AND VERIFIED WITH THE CUSTUMER. 



A. CAN THE CUSTOMER PROCESS BE MAINTAINED IF THE DISK DRIVE 
IN QUESTION IS TAKEN OFF LINE 

B. SINCE THE ON LINE DIAGNOSTIC MONITOR OPERATES AS A BATCH 
JOB, THE TIME SHARING FEATURE OF THE MPX SYSTEM MUST 
STILL BE AVAILABLE AFTER THE 1810 DISK DRIVE TO BE 
TESTED IS TAKEN OFF LINE. 

C. THE C.E. CORELOAO MUST STILL BE AVAILABLE TO PUT THE 
1810 DISK DRIVE BACK ON LINE FOLLOWING TEST COMPLETION. 



/8000 


TYPEWRITER 





/4000 


TYPEWRITER 


1 


/2000 


TYPEWRITER 


2 


/1000 


TYPEWRITER 


3 


/0 800 


TYPEWRITER 


4 


/0400 


TYPEWRITER 


5 


/0200 


TYPEWRITER 


6 


/0100 


TYPEWRITER 


7 


/0080 


TYPEWRITER 


8 



2. THE TYPEWRITER TO BE TESTED MUST BE LOGICALLY OFF LINE. 

3. IF THE OPERATOR DOES NOT SPECIFY (VIA A DFT CONTROL CARD AT 
LOAD TIME) A TYPEWRITE FOR TEST, THEN THE DFT SELECTS THE 
TYPEWRITER WHICH IS DEFINED BY THE 1ST DDEF IN THE DFT EDIT 
CARD. 

4. THE TYPEWRITER BEING TESTED WILL BE DEFINED AS TYPEWRITER 
0000 IN ALL DFT MESSAGES. 

5. THE FOLLOWING FUNCTIONS/ROUTINES ARE BYPASSED WHILE OPERATING 
ON LINE. 

A. ROUTINE 12-KEYBOARD TEST. ONLY THE PRINTER FUNCTION 
OF AN 1816 CAN BE RUN UN LINE. 

B. THE OPERATOR SHOULD NOT DEPRESS THE KEYBOARD REQUEST KEY 
WHILE TESTING THE PRINTER FUNCTION OF AN 1816. SINCE 
THE DFT CAN BE SWAPPED BETWEEN DISK AND CORE DURING 

MPX TIME SHARE OPERATION, IT MAY NOT BE IN CORE AT THE 
TIME THE KEYBOARD REQUEST KEY IS DEPRESSED. 

6. OTHER THAN AS MENTIONED ABOVE, THE 1053/1816 FUNCTION TEST 
OPERATES IN THE SAME MANNER AS IT DOES OFF LINE. REFER TO 
THE DFT PROGRAM DESCRIPTION FOR A DEFINITION OF ALL DFT 
PRINTOUTS. 



* 
* 
* 
* 

* 
* 
* 

* 

* BECAUSE OF THE ABOVE REQUIREMENTS, THE ABILITY TO TEST THE 1810 

* DISK DRIVES ON-LINE IS DEPENDENT UPON THE CONFIGURATION OF THE 

* CUSTOMERS MPX SYSTEM. THE C.E. SHOULD DISCUSS FULLY THESE 

* REQUIREMENTS, AND ANY POSSIBLE CONSEQUENCES, WITH THE CUSTOMER. 

* IF ANY OF THE REQUIREMENTS STATED IN ITEMS A,B AMU C ABOVE 

* CANNOT BE MET, THEN THE RUNNING OF THE 1810 A/B DISK FUNCTION 

* TEST ON LINE SHOULD NOT BE ATTEMPTED. 
* 

****************************** ************************************** 

1. ONLY 1 DISK DRIVE AT A TIME MAY BE OPERATED ON LINE. 

2. THE DISK DRIVE TO BE TESTED MUST BE LOGICALLY OFF LINE, 
AND THE C.E. DISK PACK MOUNTED ON IT. 

******** 

**NOTE** 
******** 



IN MANY CASES IT WILL BE NECESSARY FOR THE CUSTOMER TO CHANGE 
LOGICAL DISK DRIVE ASSIGNMENTS AND SWAP DISK PACKS IN ORDER 
TO 'FREE' THE DISK DRIVE TO BE TESTED. TO ACCOMPLISH THE 
'CHANGE', A STRICT PROCEDURE MUST BE FOLLOWED, AND MUST BE 
PERFORMED PRIOR TO LOADING THE 1810 A/B DIAGNOSTIC TEST. 

THE FOLLOWING EXAMPLE IS PROVIDED AS A GUIDE TO PERFORMING 
THE 'CHANGE' PROCEDURE. IN ALL CASES THE CUSTOMER SHOULD BE 
FULLY AWARE OF THE OPERATIONS TO BE PERFORMED. 

ASSUME THAT THE CUSTOMER DISK DRIVE ASSIGNMENTS ARE. 

PHYSICAL DISK DRIVE = LOGICAL DRIVE 
PHYSICAL DISK DRIVE 1 = LOGICAL DRIVE 1 
PHYSICAL DISK DRIVE 2 = LOGICAL DRIVE 2 



AND THAT LOGICAL DRIVES AND 1 ARE REQU 
OF THE SYSTEM. FURTHER, ASSUME THAT PHYSI 
IS THE DRIVE CAUSING ERRORS AND REQUIRES 
DRIVE 1 IS REQUIRED BY THE SYSTEM, IT WIL 
REASSIGN IT AND TRANSFER THE DISK PACK T 
THE FUNCTIONS TO BE PERFORMED, THEREFORE , 
DRIVE 2 AS LOGICAL DRIVE 1, ASSIGN PHYSIC 
DRIVE 2, MOVE THE CUSTUMER PACK FROM PHYS 
DRIVE 2 (NOW LOGICAL 1), PLACE THE C.E. P 
(NOW LOGICAL 2) AND LEAVE PHYSICAL DRIVE 



IRED IN THE OPERATION 
CAL DRIVE KLOGICAL 1) 

TESTING. SINCE LOGICAL 
L BE NECESSARY TO 
THE REASSIGNED DRIVE. 
ARE TO ASSIGN PHYSICAL 
AL DRIVE 1 AS LOGICAL 
ICAL DRIVE 1 TO PHYSICAL 
ACK ON PHYSICAL DRIVE 1 

1 OFF LINE. 
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THE STEPS REQUIRED TO ACCOMPLISH THE ABOVE FUNCTIONS ARE. 

1. CALL THE C.E. CORE LOAD INTO CORE AND. 

A. TAKE LOGICAL DISK DRIVES 1 AND 2 OFF LINE. 

B. ASSIGN PHYSICAL DRIVE 1 AS LOGICAL DRIVE 2. 

C. ASSIGN PHYSICAL DRIVE 2 AS LOGICAL DRIVE 1. 

2. DROP POWER TO PHYSICAL DRIVES 1 AND 2. 

3. REMOVE THE DISK PACK FROM PHYSICAL DRIVE 1 AND PLACE 
IT ON PHYSICAL DRIVE 2. 

4. PLACE THE C.E. PACK ON PHYSICAL DRIVE 1. 

5. POWER BOTH DISK DRIVES BACK UP. 

6. USING THE C.E. CORE LOAD. 

A. PLACE LOGICAL DRIVE KPHYSICAL 2) BACK ON LINE. 

THE DRIVES ARE NOW REASSIGNED AND PHYSICAL DRIVE 1 IS OFF LINE 
AND AVAILABLE FOR TESTING. THE 2310 A/C DIAGNOSTIC CAN NOW BE 
LOADED TO TEST THE DRIVE, A DFT CONTROL CARD BEING USED TO 
SELECT PHYSICAL DRIVE 1. 

— UNDER NO CIRCUMSTANCES SHOULD THE CHANGING OF LOGICAL DISK 
DRIVE ASSIGNMENTS BE ATTEMPTED WHILE THE 2310 A/C DIAGNOSTIC 
IS IN CORE. — 



PID 080A 



1443 FUNCTION TEST 



1. THE 1443 PRINTER MUST BE LOGICALLY OFF LINE. 

THERE IS NO NEED TO CHANGE THE DIAGNOSTIC MONITOR EDIT 
CARD,EU00,IF THE 1443 HAS BEEN DESIGNATED AS THE 
MONITOR LOGGING DEVICE. THE CONITOR WILL RECOGNIZE THE 
FACT THAT THE 1443 IS LOGICALLY OFF LINE AND AUTOMATICALLY 
SELECT THE TYPEWRITER (AT LEAST ONE TYPEWRITER IS REQUIRED 
BY MPX) AS THE OUTPUT DEVICE. 

2. THE 1443 DFT OPERATES ON LINE IN THE SAME MANNER AS OFF 
LINE. NO ROUTINES OR FUNCTIONS ARE BYPASSED. 

3. REFER TO THE DFT PROGRAM DESCRIPTION FOR A DEFINITION UF AIL 
DFT PRINTOUTS. 



WHEN TESTING HAS BEEN COMPLETED AND IT IS DESIRED TO RESTORE THE 
THE DISK DRIVES TO THEIR ORIGINAL ASSIGNMENTS, THE FOLLOWING 
PROCEDURE SHOULD BE FOLLOWED. 

1. TERMINATE ON LINE DIAGNOSTICS BY FOLLOWING THE 
TERMINATION PROCEDURE IN SECTION 3.4. 

2. USING THE C.E. CORE LOAD. 

A. TAKE LOGICAL DRIVES 1 AND 2 OFF LINE. 

B. ASSIGN PHYSICAL DRIVE 1 AS LOGICAL DRIVE 1. 

C. ASSIGN PHYSICAL DRIVE 2 AS LOGICAL DRIVE 2. 

3. DROP POWER TO PHYSICAL DRIVES 1 AND 2. 

4. REMOVE THE C.E. DISK PACK FROM PHYSICAL DRIVE 1. 

5. REMOVE THE CUSTOMER PACK FROM PHYSICAL DRIVE 2 AND 
PLACE IT ON PHYSICAL DRIVE 1. 

6. POWER BOTH DISK DRIVES BACK UP. 

7. USING THE C.E. CURE LOAD. 

A. PLACE LOGICAL DRIVES 1 AND 2 ON LINE. 



3. IF THE OPERATOR DOES NOT SPECIFY (VIA A DFT CONTROL CARD 
AT LOAD TIMEJ A DISK DRIVE FOR TEST* THEN THE DFT SELECTS 
THE DISK DRIVE WHICH IS DEFINED BY THE 1ST DDEF IN THE DFT 
EDIT CARD. 



4. 



THE FOLLOWING FUNCTIONS/ROUTINES ARE BYPASSED WHILE OPERA- 
TING ON LINE. 



A. THE SEQUENTIAL SECTOR CHECK IN THE PRE-CONTROL ROOTINE. 

B. THE C.E. MODE CHECK IN ROUTINE 1. 

C. ROUTINE 2 - STORAGE PROTECT CHECK. 

OTHER THAN AS MENTIONED ABOVE, THE 1810 A/B FUNCTION TEST 
OPERATES IN THE SAME MANNER AS IT DOES OFF LINE. REFER TO 
THE DFT PROGRAM DESCRIPTION FOR A DEFINITION OF ALL DFT 
PRINTOUTS. 
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5. PID 0823 - AI-DPC FUNCTION TEST 

1. EITHER AI BASIC OR AI EXPANDER MAY BE TESTED ON LINE. THE 
DEVICE TO BE TESTED IS DEFINED BY THE DDEF IN THE AIDPC EDIT 
CARDS. 

2. AI MAY BE EITHER tOGICALLY OFF LINE OR LOGICALLY ON LINE 
DURING TESTING, 

******** 
**NOTE*« 

******** 

DO NOT CHANGE THE ON-UFF LINE STATUS OF AI AFTER THE AIDPC 
PROGRAM HAS BEEN LOADED. IF IT IS DESIRED TO SWITCH AI FROM 
ON-LINE TO OFF-LINE, OR FROM OFF-LINE TO ON-LINE STATUS, FIRST 
ABORT ON-LINE DIAGNOSTICS BY FOLLOWING THE PROGRAM TERMINATION 
PROCEDURE, SECT ION 3.4. THE C.E. CORELOAD MAY THEN BE CALLED TO 
PERFORM THE DESIRED STATUS CHANGE. 

3. AI-DPC MESSAGES WHICH OCCUR WHILE RUNNING AI IN THE LOGICAL 
OFF LINE MODE ARE DEFINED IN THE DESCRIPTION FOR PROGRAM 0823 
AIDPC FUNCTION TEST. AI-DPC MESSAGES WHICH OCCUR WHILE 
RUNNING AI IN THE LOGICAL ON LINE MODE, CAN BE FOUND IN THIS 
DOCUMENT UNDER THE HEADING *A1 LOGICALLY ON LINE*, 
PARAGRAPH 8. .PRINTOUTS . 

*AI LOGICALLY OFF LINE* 

1. IF AI IS LOGICALLY OFF LINE, THEN THE AIDPC PROGRAM WILL 
OPERATE IN THE SAME MANNER AS IT DOES OFF LINE WITH THE 
EXCEPTION THAT PROGRAM TIMING RATHER THAN A HARDWARE TIMER 
WILL BE USED TO TIME A.I. OPERATIONS. 

2. THE AI POINTS (SOLID STATE OR RELAY) TO BE TESTED AS WELL 
AS THE RANGE, DIGITS CYCLES, ETC. ARE DEFINED IN THE AIDPC 
EDIT CAROS. REFER TO THE AIDPC PROGRAM DESCRIPTION, 
APPENDIX SECTION 6.1 FOR THE EDIT PROCEDURE. 

3. IF THE DATA ENTRY ROUTINE IS TO BE USED (REFER TO AIDPC 
PROGRAM DESCRIPTION SECTION 3.5.2) THfcN EACH DATA WORD TO BE 
ENTERED IN FUNCTION 3 MUST BE PUNCHED ON A SEPARATE CONTROL 
CARD. EACH CONTROL CARD MUST THEN BE FOLLOWED BY A $$FNF 
CARD. AFTER ENTERING THE CONTROL CARD FOR FUNCTION 2, ALL 
THE CONTROL CAROS FOR FUNCTION 3 MAY BE ENTERED BY COMPLE- 
MENTING C.E. SWITCH 8 ONCE FOR EACH CARD TO BE READ. 

*AI LOGICALLY ON LINE* 

1. WHEN THE AIDPC PROGRAM DETECTS THAT A.I. IS LOGICALLY ON 
LINE, IT WILL BRANCH TO ROUTINE ft. ROUTINE B HAS BfcEN IN- 
CLUDED IN THE AIDPC PROGRAM FOR ON LINE OPERATION ONLY AND 
CANNOT BE RUN OFF LINE. ROUTINE B ALLOWS FOR THE SHARING 
OF AI BETWEEN THE DFT AND THE CUSTOMER. 

2. IF THE AIDPC DFT IS TO BE RUN WITH AI LOGICALLY ON LINE, THE 
FOLLOWING INFORMATION SHOULD BE ENTERED, VIA CONTROL CARDS, 
AT DFT LOAD TIME. 

A. THE MULTIPLEX ADDRESS OF THE POINT TO BE TESTED (SOLID 
STATE OR RELAY). 

B. THE RANGE FOR THE POINT TO BE TESTED. 

C. THE NUMBER OF ROUTINE CYCLES TU BE PERFORMED. 



3. PUNCH THE REQUIRED INFORMATION INTO CONTROL CARDS (FORMAT 
EXPLAINED IN SECTION 6.4) AS FOLLOWS. 

$$FNI 2300 AAAA 

$$FN2 2300 RRRR 

$$FN3 2300 CCCC 
«FNF 

WHERE- 

AAAA = THE MULTIPLEX ADDRESS IN DECIMAL. 
MAX RELAY ADDRESS = 1023 
MAX SOLID STATE ADDRESS = 5119 

RRRR = THE MILLVULT RANGE OF THE POINT TO BE 
TESTED IN DECIMAL. 
MAX RANGE IS 5000 MILLIVOLTS = 5 VOLTS 

CCCC = NUMBER OF ROUTINE CYCLES TO BE 
PERFORMED IN DECIMAL. 
MAX CYCLES IS 9999. 

THE FOLLOWING DEFAULT VALUES WILL BE USED FOR ANY CONTROL 
CARD NOT ENTERED, OR ANY MAX DECIMAL VALUE EXCEEDED. 

MULTIPLEX ADDRESS = 4864 - C.E. POINT 
MILLIVOL RANGE = 5000 - 5 VULTS 
ROUTINE CYCLES =0010 - 10 CYCLES 

4. THE SPECIFIED POINT WILL BE ADDRESSED AND EVALUATED ONCE 

UN EACH ROUTINE CYCLE, AND THE RESULTS PRINTED FOR OPERATOR 
OBSERVATION. 

5. WHEN THE NUMBER OF CYCLES HAVE BEEN TAKEN, MESSAGE COO 1 WILL 
BE PRINTED AND DFT OPERATION WILL BE SUSPENDED. 

6. TO RE-INITIATE ROUTINE B OPERATION, DE-EXECOTE THE AIDPC 
PROGRAM BY TURNING C.E. SWITCH 11 ON, THEN FOLLOWING THE DE- 
EXtCUTE PRINTOOT, TORN C.E. SWITCH 11 OFF TO EXECUTE, ROUTINE 
B WILL PERFORM THE NUMBER OF CYCLES SPECIFIED. 

7. CONTROL CAROS CONTAINING NEW PARAMETERS MAY BE ENTERED AT ANY 
TIME, HOWEVER THE NEW PARAMETERS WILL NOT BECOME EFFECTIVE 
UNTIL ALL CYCLES FOR THE PRESENT OPERATION HAVE BEEN COM- 
PLETED, OR THE DFT DE-EXECUTEO AND RE-EXECUTED. 

8. PRINTOOTS 

FIVE PRINTOUTS CAN OCCUR FROM RUUTINE B. ONE PRINTOUT 
PROVIDES THE RESULTS OF EACH TEST ON THE SPECIFIED POINT, 
AND THE OTHER FOUR PRUVIDE FOR STATUS, COMMAND AND ERROR 
INFORMATION. 

A. DATA EVALOATION PRINTOOT 

CUST ENG OOOOAAAA OOOORRRR SCCC.CCCCC SDDDDDDDD 

AAAA= THE MULTIPLEX ADDRESS IN DECIMAL. 

RRRR= THE MILLIVOLT RANGE IN DECIMAL. 

S= SIGN. UNLY NEGATIVE SIGN IS PRINTED. 

CCCCCCCC= ADC READING IN DECIMAL. 

THE READING IS VOLTS IF USING THE 5V RANGE ANO MILLI- 
VOLTS FOR ALL UTHER RANGES 

0DDDDOU0= DIGITS VALUE IN DECIMAL. 
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B. STATUS MESSAGE 

PID MID RID RAD 
CUST ENG 2300 A002 OOOB RRRR 

THIS MESSAGE IS PRINTED WHEN ROUTINE B DETECTS THAT A.I. HAS BEEN 
LOGICALLY TAKEN OFF LINE. THIS MESSAGE WILL BE FOLLOWED BY 
MESSAGE COOl. 

ROUTINE B CANNOT TEST AI IF IT IS LOGICALLY OFF LINE. THE AIDPC 
PROGRAM MUST BE RELOADED IF IT IS DESIRED TO TEST AI WHILE IT 
IS LOGICALLY OFF LINE. 

TO RELOAD AIDPC, FOLLOW THE PROCEDURE FOR 'LOADING NEW DFT' 
SECTION 3.2.3. 



C. COMMAND MESSAGE 



PID MID RID RAD 
CUST ENG 2300 COOl OOOB RRRR 

THIS MESSAGE IS PRINTED FOLLOWING THE COMPLETION UF THE SPECIFIED 

NUMBER OF ROUTINE CYCLES, AND FOLLOWING MESSAGE A002 IF AI WAS 

LOGICALLY TAKEN OFF LINE. THIS IS A SELECT OPTION MESSAGE. 

FOLLOWING THIS MESSAGE, ROUTINE B ENTERS AN IDLE LOOP. IF 

THE MESSAGE OCCURED DUE TO THE COMPLETION OF THE SPECIFIED NUMBER 

OF CYCLES, THEN THE ROUTINE CAN BE REPEATED BY DE-EXECUTING 

AND THEN RE-EXECUTING THE DFT. 

IF THE MESSAGE OCCURED FOLLOWING THE A002 PRINTOUT, THEN THE 
PRCEDURE DEFINED IN THE A0U2 PRINTOUT EXPLANATION SHOULD BE 
FOLLOWED. 

D. ERROR PRINTOUTS 

PID MID RID RAD 
CUST ENG 2300 E009 OOOB RRRR 

THIS MESSAGE INDICATES THAT A LOST INTERRUPT HAS BEEN DETECTED. 
THE ON LINE DIAGNOSTIC MONITOR ALLOWS 4 TO 6 SECONDS FOR AN 
INTERRUPT TO OCCUR, BEFORE NOTIFYING THE ROUTINE OF THE TIMEOUT 
CONDITION. 



9. ROUTINE B GENERAL DESCRIPTION 

THE DFT SHARES AI BY HAVING ROOTINE B CALL ON ThE MPX SYSTEM 
FOR THE USE OF AI. ROUTINE B WILL CALL THE MPX GETQ ROUTINE 
TO ENTER ITS I/O RUUTINE IN THE A.I. QUEUE. BY ENTERING 
INTO THE QUEUE, ROUTINE B WILL NOT ISSUE I/O COMMANDS TO 
A.I. UNTIL ALL PREVIOUS REQUEST TO USE A.I. HAVE BEEN 
SATISFIED. WHEN THE I/O ROUTINE IN ROUTINE 'B' IS CALLED IN 
TURN, IT WILL ISSUE IT'S I/O COMMAND TO THE SPECIFIED ADDRESS 
AND THEN SETUP TO AWAIT THE A.I. INTERRUPT. WHEN THE 
INTERRUPT IS RECEIVED, ROUTINE B WILL READ THE CONVERTED 
POINT, REMOVE ITSELF FROM THE AI QUEUE BY CALLING ON THE MPX 
GETQ RUUTINE, AND THEN CALL ON THE NEXT PROGRAM, IF ANY, 
WHICH IS AWAITING ITS TURN IN THE QUEUE. ROUTINE B WILL 
THEN EVALUATE THE READING OBTAINED AND OUTPUT THE DATA 
EVALUATION MESSAGE. THIS OPERATION WILL BE REPEATED THE 
NUMBER OF TIMES SPECIFIED BY THE CYCLE COUNT ENTRY. 



CUST ENG 



PID MID RID RAD MODI 
2300 EOOA OOOB RRRR DDDD 



MODI -DDDD 



THE AI DSW AT THE TIME OF THE ERROR. 



THIS MESSAGE IS PRINTED WHENEVER THE DSW INDICATES AN AI ERROR 
CONDITION. THE ERROR ENCOUNTERED IS AS SHOWN IN THE DSW. 
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6. 082E - 2790 BASIC OFT 

1. ONLY ONE LOOP ADAPTER 127901 AT A TIME MAY BE SELECTED 
FOR TESTING. 

2. THE 2790 LOOP ADAPTER TO BE TESTED MUST BE LOGICALLY 
OFF-LINE. THIS IS DONE BY THE USE OF THE CE CORE LOAD 
EXTENSION FOR THE 2790 (CECLX). 

A. SELECT 2790 FUNCTION BY REQUESTING THE CE CORE 
LOAD AND SETTING THE CE SENSE SWITCHES 

TO '00000011 » AND PRESSING START. 

B. SET 2790 FUNCTION '1000000Y' IN THE CE SENSE 
SWITCHES AND PRESSING START. Y=0...LO0P 1 

Y=1...L00P 2 
A MESSAGE WILL BE PRINTED AS FOLLOWS 

•YOU REOUESTED LOOP I10R2) OFF. IF OK, TURN ON 
SW 11 ANO PRESS START.' 

C. TURN ON SW 11 AND PRESS START. 

A MESSAGE WILL BE PRINTED AS FOLLOWS 

•COMPLETION CODE /OOXX.' XX=01...L00P Y COMPLETED OK 
ALL OTHER COMPLETION CODES SHOULD BE REFERED TU IN 
THE CE CORE LOAD DOCUMENTATION. 

D. TURN OFF CE SENSE SWS AND PRESS START. 

3. THE 2790 DFT ROUTINES OPERATE ON-LINE IN THE SAME MANNER 
AS THE OFF-LINE. 

4. REFER TO THE OFT PROGRAM DOCUMENTATION FOR A DESCRIPTION OF 
THE ON-LINE PRINTOUTS. 

5. LOCATION $2790 CONTAINS THE ADDRESS OF THE 2790 LOOP 
ADAPTER COMMUNICATIONS AREA. THE COMMUNICATIONS AREA 
CONTAINS THE ADDRESSES OF THE 2790 LOOP ADAPTER DEVICE 
TABLES. ADDRC2 = LOOP NUMBER 1 DEVICE TBL ADDR . 

ADDR63 = LOOP NUMBER 2 DEVICE TBL ADDR. 

6. AN OPTION TO BYPASS THE A10E PRINTOUTS HAS BEEN SET UP 
THROUGH THE USE OF THE BYPASS DFT ERROR PRINTOUT. (SW 13 

OF THE MPXDM OPTION) THIS ALLOWS BY PASSING AIDE PRINTOUTS 
AND EXPEDITING THE EXECUTION OF THE OTHER MPXDM OPTIONS. 

*** NOTE ***... .MPXDM LOOP ON DFT ERROR AND DFT PROGRAM AIDE 
OPTION MAY NOT BE EXECUTED AT THE SAME TIME. 

7. TO SET THE 2790 LOOP ADAPTER BACK ON-LINE. 

A. EXECUTE STEP 2. A ABOVE. 

B. SET 2790 FUNCTION '1000001Y' IN THE CE SENSE SWITCHES 
AND PRESSING START. Y=O...LOOP 1 

Y=1...L00P 2 

A MESSAGE WILL BE PRINTED AS FOLLOWS 

•YOU REOUESTED LOOP ( 1 OR 2) ON. IF OK, TURN ON 
SW 11 AND PRESS START.' 

C. EXECUTE STEPS 2.C AND 2.D ABOVE. 



PID 082F - 2790 RD/WRT DFT 

1. ONLY ONE LOOP ADAPTER (2790) AT A TIME MAY BE SELECTED 
FOR TESTING. 

2. THE 2790 LOOP ADAPTER TO BE TESTED MUST BE LOGICALLY 
OFF-LINE. THIS IS DONE BY THE USE OF THE CE CORE LOAD 
EXTENSION FOR THE 2790 (CFCLX). 

A. SELECT 2 790 FUNCTION BY REQUESTING THE CE CORE 
LOAD AND SETTING THE CE SENSE SWITCHES 

TO '00000011 • AND PRESSING START. 

B. SET 2790 FUNCTION • 1000000Y * IN THE CE SENSE 
SWITCHES AND PRESSING START. Y=0...LO0P 1 

Y=1...L00P 2 

A MESSAGE WILL BE PRINTED AS FOLLOWS 

•YOU REQUESTED LOOP (10R2) OFF. IF OK, TURN ON 
SW 11 AND PRESS START. ' 

C. TURN ON SW 11 AND PRESS START. 

A MESSAGE WILL BE PRINTED AS FOLLOWS 

'COMPLETION CODE /OOXX.' XX=01...LOOP Y COMPLETED OK 
ALL OTHER COMPLETION CODES SHOULD BE REFERED TO IN 
THE CE CORE LOAD DOCUMENTATION. 

D. TURN OFF CE SENSE SWS AND PRESS START. 

3. THE 2790 DFT ROUTINES OPERATE ON-LINE IN THE SAME MANNER 
AS THE OFF-LINE. 

4. REFER TO THE DFT PROGRAM DOCUMENTATION FOR A DESCRIPTION OF 
THE ON-LINE PRINTOUTS. 

5. LOCATION $2790 CONTAINS THE ADDRESS OF THE 2790 LOUP 
ADAPTER COMMUNICATIONS AREA. THE COMMUNICATIONS AREA 
CONTAINS THE ADDRESSES OF THE 2790 LOOP ADAPTER DEVICE 
TABLES. ADDRK2 = LOOP NUMBER 1 DEVICE TBL ADDR. 

ADDRS3 = LOOP NUMBER 2 DEVICE TBL ADDR. 

6. AN OPTION TO BYPASS THE AIDE PRINTOUTS HAS BEEN SET UP 
THROUGH THE USE OF THE BYPASS DFT ERROR PRINTOUT. (SW 13 

OF THE MPXDM OPTION) THIS ALLOWS BY PASSING AIDE PRINTOUTS 
AND EXPEDITING THE EXECUTION OF THE OTHER MPXDM OPTIONS. 



**# NOTE ***. 



.MPXDM LOOP ON DFT ERROR AND DFT PROGRAM AIDE 
OPTION MAY NOT BE EXECUTED AT THE SAME TIME. 



TO SET THE 2790 LOOP ADAPTER BACK ON-LINE. 

A. EXECUTE STEP 2. A ABOVE. 

B. SFT 2790 FUNCTION '1000001Y' IN THE CE SENSE SWITCHES 
AND PRESSING START. Y=0...L00P 1 

Y=1...L00P 2 

A MESSAGE WILL BE PRINTED AS FOLLOWS 

•YOU REOUESTED LOOP (1 OR 2) ON. IF OK, TURN ON 
SW 11 AND PRESS START. ' 

C. EXECUTE STEPS 2.C AND 2.D ABOVE. 
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